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     ! 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";