showenv.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:55 2010 from showenv.pl 2005/06/15 992.

#!/perl
print "Hello, World...\n";
##push(@INC, "/cgi-bin");
##require("cgi-lib.pl");
##print &PrintHeader;
my $outfil = 'tempenv.htm';
my ($OF);
my $var;
my $sepitems = 1;
open $OF, ">$outfil" or die "Can not create $outfil!\n";
prt( "<html>\n" );
prt( "<head><title>Local Environment Variables</title></head>\n" );
prt( "<body>\n" );
print $OF <<"EOF";
<center>
<table border=0 cellpadding=0 cellspacing=0>
<th align=left><h3>Environment Variable</h3></th>
<th align=left><h3>Contents </h3></th><tr>
EOF
foreach $var (sort keys(%ENV))
{
   my $val = $ENV{$var};
   if ($sepitems) {
      $val =~ s/;/;\<br\>/g;
   }
   ###prt( "<tr>\n <td>$var</td>\n <td>$ENV{$var}</td>\n</tr>\n" );
   prt( "<tr>\n <td valign='top'>$var</td>\n <td>$val</td>\n</tr>\n" );
}
prt_tail();
close($OF);
system($outfil);
sub prt_tail {
print $OF <<"EOF"
</table>
</center>
</body>
</html>
EOF
}
sub prt {
   my ($txt) = @_;
   print $txt;
   print $OF $txt;
}
#eof

index -|- top

checked by tidy  Valid HTML 4.01 Transitional