Return to get-post-len.pl CVS log

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

Annotation of embedaddon/lighttpd/tests/docroot/www/get-post-len.pl, revision 1.1.1.1

1.1       misho       1: #!/usr/bin/perl
                      2: 
                      3: 
                      4: print "Content-Type: text/plain\r\n\r\n";
                      5: 
                      6: if ($ENV{"REQUEST_METHOD"} eq "POST") {
                      7:        my $l = 0;
                      8:        while(<>) {
                      9:                $l += length($_);
                     10:        }
                     11:        print $l;
                     12: } else {
                     13:        print "0";
                     14: }
                     15: