Sign in
webkit
/
WebKit
/
6372d18ed2fb0e5306b33bd85febb537c2fcf56a
/
.
/
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"
;
}