Sign in
chromium
/
chromium
/
src.git
/
f72a62734e82e6930428116ab1f39692ec163c2a
/
.
/
third_party
/
blink
/
web_tests
/
http
/
tests
/
xmlhttprequest
/
resources
/
print-referer.cgi
blob: 9c6aff1dceb57dc4c4ca6d8c93e9bee4d66ba401 [
file
] [
log
] [
blame
]
#!/usr/bin/perl -wT
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"
;
}