#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "\n";
print "Local configuration:
\n";
$date = `date`;
print "Now is: $date
";
$uname = `uname -sr`;
print "The operating system is: $uname
\n";
print "The web server is: " . $ENV{SERVER_SOFTWARE} . "
\n";
$pwd = `pwd`;
print "The current directory is $pwd
\n";
$login = (getpwuid($<))[0];
print "
The cgi scripts run as user " . $login;
print " (if your cgi needs to write to a file,
";
print "make sure the user $login has permissions to write to the file).
\n";
print "
Perl configuration:
\n";
print "Your perl scripts need to start with: #!";
find_command('perl');
$perlver = `perl -v`;
if ($perlver =~ m/.*version ([0-9\.\_\-]+).*/) {
print "The perl version is $1
\n";
}
find_module ('CGI.pm');
print "
Some commands:
\n";
print "date: ";
find_command ('date');
print "sendmail: ";
find_command ('sendmail');
print "
Environment:
\n";
for $name (sort keys %ENV) { print "$name: " . $ENV{$name} . "
\n"; }
print "
\n\n\n";
sub find_command {
my $cmd = $_[0];
my $dir;
for $dir (
'/bin',
'/usr/local/bin',
'/usr/bin',
'/usr/gnu/bin',
'/sbin',
'/usr/sbin',
'/usr/local/sbin',
'/usr/lib'
) {
if (-x "$dir/$cmd") { print "$dir/$cmd
\n"; return 0;}
}
}
sub find_module {
my $mod = $_[0];
for $dir (@INC) {
if (-f "$dir/$mod") { print "The module $mod is installed
\n"; }
}
}