| OLD | NEW |
| 1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -wT |
| 2 | 2 |
| 3 print "Content-type: text/plain\n"; | 3 print "Content-type: text/plain\n"; |
| 4 | 4 |
| 5 if ($ENV{'REQUEST_METHOD'} eq "POST") { | 5 if ($ENV{'REQUEST_METHOD'} eq "POST") { |
| 6 if ($ENV{'QUERY_STRING'} eq "allow") { | 6 if ($ENV{'QUERY_STRING'} eq "allow") { |
| 7 print "Access-Control-Allow-Origin: *\n"; | 7 print "Access-Control-Allow-Origin: *\n"; |
| 8 } | 8 } |
| 9 print "\n"; | 9 print "\n"; |
| 10 if ($ENV{'CONTENT_LENGTH'}) { | 10 if ($ENV{'CONTENT_LENGTH'}) { |
| 11 read(STDIN, $request, $ENV{'CONTENT_LENGTH'}) || die "Could not get quer
y\n"; | 11 read(STDIN, $request, $ENV{'CONTENT_LENGTH'}) || die "Could not get quer
y\n"; |
| 12 } else { | 12 } else { |
| 13 $request = ""; | 13 $request = ""; |
| 14 } | 14 } |
| 15 print $request; | 15 print $request; |
| 16 } else { | 16 } else { |
| 17 print "\n"; | 17 print "\n"; |
| 18 print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n"; | 18 print "Wrong method: " . $ENV{'REQUEST_METHOD'} . "\n"; |
| 19 } | 19 } |
| OLD | NEW |