#!/usr/local/bin/perl
#=======================================================================================
# myserver Version 2000/10
#=======================================================================================
$ENV{'HTTP_HOST'} = $ENV{'SERVER_NAME'};
$ENV{'REMOTE_ADDR'} = $ENV{'SERVER_NAME'};
$ENV{'SERVER_ADDR'} = $ENV{'SERVER_NAME'};
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print "\n";
print "Environment Value\n";
print "\n";
print "\n";
print "\n";
print "
\n";
print "
\n";
print "\n";
print "
|
\n";
print "| OS | ", `uname -a`, " |
\n";
print "| Path | ", `pwd`, " |
\n";
print "| Perl | ", `which perl`, " |
\n";
print "| Perl Vertion | ", $], " |
\n";
print "| cp | ", `which cp`, " |
\n";
print "| Sendmail | ", `which sendmail`, " |
\n";
print "| Qmail | ", `which qmail`, " |
\n";
print "| GD | ", `which GD.pm`, " |
\n";
print "| Uuencode | ", `which uuencode`, " |
\n";
print "| Base64 | ", `which Base64`, " |
\n";
print "| Date | ", `date`, " |
\n";
print "| Date | ", localtime(time), " |
\n";
print "
|
\n";
foreach (sort keys %ENV) {
$value = $ENV{$_};
$value =~ s/^c://i;
if (!$value) { $value = '(none)'; }
if ($_ ne 'HTTP_COOKIE') {
print "| $_ | $value |
\n";
}
}
print "
|
\n";
print "
\n";
print "\n";
print "\n";
exit;