#!C:/Perl/bin/perl
##
##  printenv -- demo CGI program which just prints its environment
##

print <<"END";
Content-type: text/html


<html><head>
<title>Environment</title>
</head><body>
<h3>Environment variables</h3><ul>
END

foreach $var (sort(keys(%ENV))) {
  $val = $ENV{$var};
  $val =~ s|\n|\\n|g;
  $val =~ s|"|\\"|g;
  print "<li>${var}=\"${val}\"</li>\n";
}

print '</ul><hr/><pre>';
## print '<![CDATA[';

print "--------------STDIN----------------\n";
##print '<xmp>';
##while (<>) {
##  print $_;
##  print "\n";
##}
##print '</xmp>';

while (<>) {
  $buffer = $_;
  $buffer =~ s/&/&amp\;/g;
  $buffer =~ s/</&lt\;/g;
  $buffer =~ s/>/&gt\;/g;

  print $buffer;
}


print "--------------END----------------\n";

## print ']]>';
print '</pre></body></html>';


