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-c4023f1b3aa9svn/tags/lighttpd-1.4.17
parent
f67cdb67df
commit
41e836b410
@ -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";
|
||||
|
Loading…
Reference in New Issue