| OLD | NEW |
| 1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -wT |
| 2 #use CGI (); | 2 #use CGI (); |
| 3 | 3 |
| 4 print "Content-type: text/plain;charset=utf-8\n\n"; | 4 print "Content-type: text/plain;charset=utf-8\n\n"; |
| 5 | 5 |
| 6 if ($ENV{'REQUEST_METHOD'} eq "POST") { | 6 if ($ENV{'REQUEST_METHOD'} eq "POST") { |
| 7 read(STDIN, $request, $ENV{'CONTENT_LENGTH'}) | 7 read(STDIN, $request, $ENV{'CONTENT_LENGTH'}) |
| 8 || die "Could not get query\n"; | 8 || die "Could not get query\n"; |
| 9 # print CGI::escape($request); | 9 # print CGI::escape($request); |
| 10 print $request; | 10 print $request; |
| 11 } else { | 11 } else { |
| 12 print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n"; | 12 print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n"; |
| 13 } | 13 } |
| OLD | NEW |