Cross Reference: printenv
xref
: /
bind-9.6-ESV-R11
/
bin
/
tests
/
system
/
unknown
/
ns1
/
broken4.db
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
printenv revision d465130a2383063c73545375b4444bcef3cf30f6
#!/
usr
/
local
/
bin
/
perl
##
## printenv -- demo CGI program which just prints its environment
##
print
"Content-type:
text
/
plain
; charset=iso-8859-1\n\n"
;
foreach
$var
(
sort
(
keys
(%
ENV
)
)
)
{
$val
=
$ENV
{
$var
};
$val
=~ s|\n|\\n|g;
$val
=~ s|
"|\\"
|g;
print
"${var}=\"${val}\"\n"
;
}