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