diff options
author | Jan Kneschke <jan@kneschke.de> | 2007-08-18 11:35:27 +0000 |
---|---|---|
committer | Jan Kneschke <jan@kneschke.de> | 2007-08-18 11:35:27 +0000 |
commit | 41e836b4105cee225f4759e63a8e037e964bc695 (patch) | |
tree | cf821ec80df752cbf640215a817fbaab55d9ebf6 /tests/docroot | |
parent | f67cdb67df59e921c19493b8616b7d8e80807d47 (diff) | |
download | lighttpd-git-41e836b4105cee225f4759e63a8e037e964bc695.tar.gz |
fixed extracting status code from NPH scripts (fixes #1125)
git-svn-id: svn://svn.lighttpd.net/lighttpd/branches/lighttpd-1.4.x@1948 152afb58-edef-0310-8abb-c4023f1b3aa9
Diffstat (limited to 'tests/docroot')
-rwxr-xr-x | tests/docroot/www/nph-status.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/docroot/www/nph-status.pl b/tests/docroot/www/nph-status.pl index 528791be..d817c7fd 100755 --- a/tests/docroot/www/nph-status.pl +++ b/tests/docroot/www/nph-status.pl @@ -1,4 +1,10 @@ #!/usr/bin/perl -print "HTTP/1.0 30 FooBar\r\n"; +my $status = 200; + +if (defined $ENV{"QUERY_STRING"}) { + $status = $ENV{"QUERY_STRING"}; +} + +print "HTTP/1.0 ".$status." FooBar\r\n"; print "\r\n"; |