Free Web Hosting by Netfirms
Web Hosting by Netfirms | Free Domain Names by Netfirms

Env Variables

Cut and paste into wordpad or whatever and upload into your cgi-bin

#!/usr/bin/perl

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

$in = $ENV{'QUERY_STRING'};

$ipaddress = $ENV{'REMOTE_ADDR'};

#$mypath = $ENV{'SCRIPT_NAME'};

$mypath = $ENV{'SCRIPT_FILENAME'};

$mydoc = $ENV{'DOCUMENT_ROOT'};

 

#$myemail = = $ENV{'HTTP_FROM'};

#$ruser = $ENV{'REMOTE_USER'};

 

print "<h1>mypath $mypath ip $ipaddress emaddress $myemail doc $mydoc<h1>";