#!/usr/bin/perl

#Make sure that the above line is at the very top, not several lines down!

#This is the Unix (Linux, Sun, etc) test script.  Rename it to test.pl and
#install it into the directory that your scripts are supposed to go into.
#Make sure that you send it in ASCII mode only using a program like WsFTP.
#Change permissions for this script to 755 and point your browser to it.
#If it doesn't work, ask your server administrator why.  If it does, all
#you have to do is use the information it returns to determine paths on
#your server

print "Content-type: text/html\n\n";
print "
The results below contains some of your system variables and information
about your system.  Pay special attention to the items that are in <B>bold</B>,
since they will be most useful to you in figuring out the path/s you need to
use.  You will not be able to use any of these values directly, but they may
show parts of the full system path that you can't see using FTP or telnet.<pre>\n\n";
foreach $key (sort(keys(%ENV))) { 
if ($key eq "SCRIPT_FILENAME" || $key eq "DOCUMENT_ROOT" || $key eq "PATH_TRANSLATED"){
print "<B>$key=$ENV{$key}</b>\n"; }
else{
print "$key=$ENV{$key}\n"; 
}
}