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