repo.or.cz
/
chromium-blink-merge.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Merge Chromium + Blink git repositories
[chromium-blink-merge.git]
/
third_party
/
WebKit
/
LayoutTests
/
http
/
tests
/
xmlhttprequest
/
resources
/
access-control-basic-allow-print-headers.cgi
blob
6881b2a21b50a759a867a15b23b4abd365a0cb47
1
#!/usr/bin/perl -wT
2
use
strict
;
3
4
print
"Content-Type: text/plain
\n
"
;
5
print
"Cache-Control: no-store
\n
"
;
6
print
"Access-Control-Allow-Origin: *
\n\n
"
;
7
8
foreach
(
keys
%ENV
) {
9
if
(
$_
=~
"HTTP_"
) {
10
print
$_
.
": "
.
$ENV
{
$_
} .
"
\n
"
;
11
}
12
}