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