Return to get-post-len.pl CVS log | Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / lighttpd / tests / docroot / www |
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: }