Sign in
nest-open-source
/
manifest_repos
/
chromium_src
/
1389d67935ffbffe8a70c1fa06867f6cf7ecf464
/
.
/
chromium
/
src
/
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"
;
}