Return to nph-status.pl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / lighttpd / tests / docroot / www

Annotation of embedaddon/lighttpd/tests/docroot/www/nph-status.pl, revision 1.1.1.1

1.1       misho       1: #!/usr/bin/perl
                      2: 
                      3: my $status = 200;
                      4: 
                      5: if (defined $ENV{"QUERY_STRING"}) {
                      6:        $status = $ENV{"QUERY_STRING"};
                      7: }
                      8: 
                      9: print "HTTP/1.0 ".$status." FooBar\r\n";
                     10: print "\r\n";