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.2

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