1 #!/usr/bin/perl -wT 2 use strict; 3 4 print "Content-Type: text/html\n"; 5 print "Cache-Control: no-store\n\n"; 6 7 my $failed = 0; 8 foreach (keys %ENV) { 9 if ($_ =~ "HTTP_REFERER") { 10 print "FAIL. " . $_ . ": " . $ENV{$_} . "\n"; 11 $failed = 1; 12 } 13 } 14 if (!$failed) { 15 print "PASS\n"; 16 } 17 18 print "<script>if (window.layoutTestController) layoutTestController.notifyDone()</script>"; 19
