#!/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 "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; foreach (sort keys %ENV) { $value = $ENV{$_}; $value =~ s/^c://i; if (!$value) { $value = '(none)'; } if ($_ ne 'HTTP_COOKIE') { print "\n"; } } print "\n"; print "

OS", `uname -a`, "
Path", `pwd`, "
Perl", `which perl`, "
Perl Vertion", $], "
cp", `which cp`, "
Sendmail", `which sendmail`, "
Qmail", `which qmail`, "
GD", `which GD.pm`, "
Uuencode", `which uuencode`, "
Base64", `which Base64`, "
Date", `date`, "
Date", localtime(time), "

$_$value

\n"; print "
\n"; print "\n"; exit;