| # |
| |
| # To permit this cgi, replace # on the first line above with the |
| # appropriate #!/path/to/perl shebang, and set this script executable |
| # with chmod 755. |
| # |
| # Note that it is subject to cross site scripting attacks on MS IE |
| # and any other browser which fails to honor RFC2616, so never use |
| # it in a live server environment, it is provided only for testing. |
| |
| ## |
| ## 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"; |
| } |
| |
