Sign in
webkit
/
WebKit
/
fdc942c5052133d9f3534312553b7ba8c309c092
/
.
/
LayoutTests
/
http
/
tests
/
xmlhttprequest
/
resources
/
print-headers.cgi
blob: 32d0f42e6aea092b1a1abefa028b5ce6cca68f0b [
file
] [
log
] [
blame
]
#!/usr/bin/perl -wT
use
strict
;
print
"Content-Type: text/plain\n"
;
print
"Cache-Control: no-store\n\n"
;
foreach
(
keys
%
ENV
)
{
if
(
$_
=~
"HTTP_"
)
{
print
$_
.
": "
.
$ENV
{
$_
}
.
"\n"
;
}
}