OLD | NEW |
1 #!/usr/bin/perl -wT | 1 #!/usr/bin/perl -wT |
2 use strict; | 2 use strict; |
3 | 3 |
4 print "Content-Type: text/plain\n"; | 4 print "Content-Type: text/plain\n"; |
5 print "Cache-Control: no-cache, no-store\n"; | 5 print "Cache-Control: no-cache, no-store\n"; |
| 6 print "Access-Control-Allow-External: true\n"; |
6 print "Access-Control-Allow-Origin: *\n\n"; | 7 print "Access-Control-Allow-Origin: *\n\n"; |
7 | 8 |
8 print "PASS: Cross-domain access allowed.\n"; | 9 print "PASS: Cross-domain access allowed.\n"; |
9 print "HTTP_ORIGIN: " . $ENV{"HTTP_ORIGIN"} . "\n"; | 10 print "HTTP_ORIGIN: " . $ENV{"HTTP_ORIGIN"} . "\n"; |
OLD | NEW |