| OLD | NEW |
| 1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -wT |
| 2 | 2 |
| 3 use Config; | 3 use Config; |
| 4 | 4 |
| 5 print "Content-type: text/plain\n\n"; | 5 print "Content-type: text/plain\n\n"; |
| 6 | 6 |
| 7 if ($ENV{'REQUEST_METHOD'} eq "POST") { | 7 if ($ENV{'REQUEST_METHOD'} eq "POST") { |
| 8 if ($ENV{'CONTENT_LENGTH'}) { | 8 if ($ENV{'CONTENT_LENGTH'}) { |
| 9 read(STDIN, $postData, $ENV{'CONTENT_LENGTH'}) || die "Could not get pos
t data\n"; | 9 read(STDIN, $postData, $ENV{'CONTENT_LENGTH'}) || die "Could not get pos
t data\n"; |
| 10 } else { | 10 } else { |
| 11 $postData = ""; | 11 $postData = ""; |
| (...skipping 65 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 77 } | 77 } |
| 78 | 78 |
| 79 if ($postData eq $expectedData) { | 79 if ($postData eq $expectedData) { |
| 80 print "OK"; | 80 print "OK"; |
| 81 } else { | 81 } else { |
| 82 print "FAILED"; | 82 print "FAILED"; |
| 83 } | 83 } |
| 84 } else { | 84 } else { |
| 85 print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n"; | 85 print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n"; |
| 86 } | 86 } |
| OLD | NEW |