Home
/
CGI

CGI OS Version

OS Version

#!perl

print "Content-type: text/html\n\n";

$Perl_Version = "Perl Version $]";

if (-d "C:/" || $^O eq "MSWin32") {
        $windows = 1;
        $platform = "WINDOWS";

} elsif (-e "/etc") {
        $unix = 1;
        $platform = "UNIX";

} else {
        $unix = 1;
        $platform = "UNKNOWN PLATFORM";
}

foreach $key (keys(%ENV)) {
if ($key =~ /cookie/i) { $key = "" }
$My_Key .= "<TR><TD>$key<TD> $ENV{$key}</TD></TR>\n";
if ($ENV{$key} =~ /\w:\\.+\\pathtest.pl/ && $windows eq "1") { $path = "$ENV{$key}"; }
}
if ($0 =~ /pathtest.pl/) { $path = "$0"; }
elsif ($ENV{'SCRIPT_FILENAME'}) { $path = "$ENV{'SCRIPT_FILENAME'}"; }
$path =~ s/pathtest\.pl//;
$path =~ s/\\$//;
$path =~ s/\/$//;


if ($platform eq "UNIX") {
$Sendmail = `whereis sendmail`;
}

@Sendmail = split(/\s+/, $Sendmail);

foreach $place(@Sendmail) {
if($place !~ /\./) {
push(@SendMail, "$place \&nbsp\; ");
 }
}

if ($platform eq "UNIX") {
$Path_to_Sendmail = "<B>sendmail</B> = <FONT COLOR=black FACE=Verdana size=2>@SendMail</FONT><P>";
}

print <<"EOT";

<HTML>
<HEAD>
<TITLE>Config</TITLE>
</HEAD>
<BODY bgcolor=white text=black>
<FONT face=Verdana size=2>
<B>OS:</B> $platform<BR>
<B>Perl Version:</B> $Perl_Version<BR>
<B>Directory:</B> $path
<P>
EOT
print "</body></html>";


exit;

Related Snippets