| weinig@apple.com | cdaa197 | 2008-06-28 06:09:23 +0000 | [diff] [blame] | 1 | #!/usr/bin/perl -wT |
| 2 | use strict; |
| 3 | |
| 4 | # in whitelist |
| 5 | print "content-type: text/plain\n"; |
| 6 | print "cache-control: no cache\n"; |
| 7 | print "content-language: en\n"; |
| 8 | print "expires: Fri, 30 Oct 1998 14:19:41 GMT\n"; |
| 9 | print "last-modified: Tue, 15 Nov 1994 12:45:26 GMT\n"; |
| 10 | print "pragma: no-cache\n"; |
| 11 | |
| 12 | # not in whitelist |
| 13 | print "x-webkit: foobar\n"; |
| 14 | |
| dimich@chromium.org | f5d9457 | 2009-02-18 00:21:21 +0000 | [diff] [blame] | 15 | print "Access-Control-Allow-Origin: *\n\n"; |
| weinig@apple.com | cdaa197 | 2008-06-28 06:09:23 +0000 | [diff] [blame] | 16 | |
| 17 | print "PASS: Cross-domain access allowed.\n"; |
