| Home | Submit | Free Hosting | Link To Us | Contacts |
CGI OS Version CGI
 Download (.zip)#!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 \ \; "); } } 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; |
