Sign in
webkit
/
WebKit
/
1ebf7e1e8f30e7430c10eeac68b89a569f4602b2
/
.
/
LayoutTests
/
http
/
tests
/
xmlhttprequest
/
resources
/
print-referer.cgi
blob: 7be156b68e68e323db7dc8730456c8bbc4058c1f [
file
] [
log
] [
blame
]
#!/usr/bin/perl -w
use
CGI qw
(:
standard
);
my
$cgi
=
new CGI
;
print
"Content-type: text/plain\n\n"
;
if
(
$cgi
->
referer
)
{
print
$cgi
->
referer
;
}
else
{
print
"NO REFERER"
;
}