Sorry Al,
the script should be ...
jwm
print "Content-Type:text/html\n\n"; # w/o space works OK on my server :)
print <<EndOfHTML;
<html><head><title>Print Environment</title></head>
<body>
EndOfHTML
print 'I am at ' . `pwd` . "<br>\n";
print "\$CGI_HOME = $CGI_HOME<p>";
foreach $key (sort(keys %ENV)) {
if ($key eq PATH)
{
@paths=split /:/, $ENV{$key};
if ($#path > 0)
{
print "$key = $ENV{$key}<br>\n";
}
else
{
print "PATHS are:<br><center>\n";
foreach $path (@paths)
{
print "$path<br>";
}
print '</center>';
}
}
else
{
print "$key = $ENV{$key}<br>\n";
}
}
print '<p><b>INC follows:</b><p>';
foreach $b (@INC) {
print '$INC[' . $i++ . "]= $b<br>\n";
print '</body></html>';
-----Original Message-----
From: Al Hospers [mailto:[EMAIL PROTECTED]]
Sent: June 08, 2001 16:05
To: [EMAIL PROTECTED]
Subject: RE: using modules installed in local CGI bin
> Oops ... too much paste ...
sorry John. does not compute? <grin>
Al
