Browse Source
git-svn-id: svn://svn.lighttpd.net/lighttpd/branches/lighttpd-1.4.x@1948 152afb58-edef-0310-8abb-c4023f1b3aa9svn/tags/lighttpd-1.4.17
4 changed files with 27 additions and 6 deletions
@ -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