develooper Front page | perl.beginners | Postings from March 2002

Environment Variables help

From:
Naika - EV1
Date:
March 2, 2002 20:33
Subject:
Environment Variables help
Message ID:
FNEGIMDBGNALHCKFMBOMMEIJCEAA.naika@ev1.net
Can anyone help with this? On a script that is writing to a file I'm able to
get some of the variables but not others. Why?



$ipaddress = "$ENV{'REMOTE_ADDR'}";
###### Works Fine

$where_from = "$ENV{'HTTP_REFERER'}";
###### only seems to report the current page being viewed

$host = "$ENV{'REMOTE_HOST'}";
####### Not working

$server = "$ENV{'SERVER_NAME'}";
####### Not working

$user = "$ENV{'REMOTE_USER'}";
####### Not working

$serveraddrs = "$ENV{'SERVER_ADDR'}";
####### Not working

$serveradmin = "$ENV{'SERVER_ADMIN'}";
####### Not working

$servername = "$ENV{'SERVER_NAME'}";
####### Not working

if ($ipaddress =~ /$yourip/) {
}
else {
     open (LOG, ">>$logfile");
     print LOG "<LI> $ENV{'REMOTE_HOST'} -
$ENV{'HTTP_USER_AGENT'} -$ENV{'SERVER_NAME'} - $FULLDATE -
$ENV{'HTTP_REFERER'} - $user - $server - $serveraddrs - $serveradmin -
$servername<BR> \n";
     close (LOG);

Thanks

 - Naika
   http://www.naikaonline.com





nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About