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