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     ! 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: