|
|
|
![]() |
|||||
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>"; |
|||||
|
|||||