WebXtractions.com - Env. Variables

Environment Test Scripts

CGI Environment Test Script

Copy, paste and upload this CGI script as path.pl or path.cgi to your server and CHMOD it to what your server requires. It's usually 755. Then call the script up in your browser.

This button will automatically copy the code to clipboard in IE.

#!/usr/bin/perl

#######################################################################
#                                                  		      #
# If this script doesn't work for you change the first line above to: #
#								      #
#		    #!/usr/local/bin/perl                             #
#								      #
#	DO NOT REMOVE THE # OR ! or add any spaces.                   #
#	Name it whatever you wish with a .cgi or .pl extension        #
#	CHMOD this script to 755 then call it on your browser         #
#								      #
#######################################################################

$path = $0;
 $filename = $path;
 if (-d "C:/" || $^O eq "MSWin32") {
 $windows = 1;
 $platform = "WINDOWS";
 $filename =~ s/^.*\\//;
 $path =~ s/$filename//;
 $path =~ s/\\$//;
 } elsif (-e "/etc/passwd") {
 $unix = 1;
 $platform = "UNIX";
 $filename =~ s/^.*\///;
 $path =~ s/$filename//;
 $path =~ s/\/$//;
 }

else {
  $unix = 1;
  $platform = "UNKNOWN PLATFORM";
  $path = "Unable to determine path, please consult your system administrator.";
}

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

print qq~
<HTML>
<HEAD>
<TITLE>Environment Test</TITLE></HEAD>
<BODY BGCOLOR=#FFFFFF TEXT=#000000>
<CENTER>
<H2>Environment Test</H2></CENTER>
<HR size=3 width=500>
The operating system is:
$platform
<HR size=3 width=600> 
~;

foreach $key (sort keys(%ENV)) {
print "$key = $ENV\n";
}

print qq~
The Perl Version is: $] 
<HR size=3 width=600>

Courtsey of: 
<a href=http://www.webxtractions.com/>
 http://www.webxtractions.com/</a>


</body>
</html>
~;
 exit;