printenv revision 8606595dda2827ddf9a9572e779c3c001ae98bc8
b8670d4ea3a3efcd12c3e1eddf68ef6fabef49fend# To permit this cgi, replace # on the first line above with the
b8670d4ea3a3efcd12c3e1eddf68ef6fabef49fend# appropriate #!/path/to/perl shebang, and on Unix / Linux also
b8670d4ea3a3efcd12c3e1eddf68ef6fabef49fend# set this script executable with chmod 755.
b8670d4ea3a3efcd12c3e1eddf68ef6fabef49fend# ***** !!! WARNING !!! *****
b8670d4ea3a3efcd12c3e1eddf68ef6fabef49fend# This script echoes the server environment variables and therefore
b8670d4ea3a3efcd12c3e1eddf68ef6fabef49fend# leaks information - so NEVER use it in a live server environment!
b8670d4ea3a3efcd12c3e1eddf68ef6fabef49fend# It is provided only for testing purpose.
b8670d4ea3a3efcd12c3e1eddf68ef6fabef49fend# Also note that it is subject to cross site scripting attacks on
b8670d4ea3a3efcd12c3e1eddf68ef6fabef49fend# MS IE and any other browser which fails to honor RFC2616.
b8670d4ea3a3efcd12c3e1eddf68ef6fabef49fend## printenv -- demo CGI program which just prints its environment
b8670d4ea3a3efcd12c3e1eddf68ef6fabef49fenduse strict;
b8670d4ea3a3efcd12c3e1eddf68ef6fabef49fenduse warnings;
b8670d4ea3a3efcd12c3e1eddf68ef6fabef49fendprint "Content-type: text/plain; charset=iso-8859-1\n\n";
b8670d4ea3a3efcd12c3e1eddf68ef6fabef49fendforeach my $var (sort(keys(%ENV))) {
b8670d4ea3a3efcd12c3e1eddf68ef6fabef49fend my $val = $ENV{$var};
b8670d4ea3a3efcd12c3e1eddf68ef6fabef49fend $val =~ s|\n|\\n|g;
b8670d4ea3a3efcd12c3e1eddf68ef6fabef49fend $val =~ s|"|\\"|g;
b8670d4ea3a3efcd12c3e1eddf68ef6fabef49fend print "${var}=\"${val}\"\n";