Return to get-header.pl CVS log

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

Annotation of embedaddon/lighttpd/tests/docroot/www/get-header.pl, revision 1.1

1.1     ! misho       1: #!/usr/bin/perl
        !             2: 
        !             3: my $s = $ENV{$ENV{"QUERY_STRING"}};
        !             4: 
        !             5: printf("Content-Length: %d\r\n", length($s));
        !             6: print "Content-Type: text/plain\r\n\r\n";
        !             7: 
        !             8: print $s;