Return to get-post-len.pl CVS log | Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / lighttpd / tests / docroot / www |
1.4.33
#!/usr/bin/perl print "Content-Type: text/plain\r\n\r\n"; if ($ENV{"REQUEST_METHOD"} eq "POST") { my $l = 0; while(<>) { $l += length($_); } print $l; } else { print "0"; }