Originally posted by berniejones
Dave
my $remote_host = $ENV{'REMOTE_HOST'}; my $remote_addr = $ENV{'REMOTE_ADDR'}; my $remote_client = $ENV{'HTTP_CLIENT_IP'}; my $remote_httpx = $ENV{'HTTP_X_FORWARDED_FOR'}; if (($remote_host eq $remote_addr) || ($remote_host eq '')) { $remote_host = gethostbyaddr(pack('C4', split(/\./, $remote_addr)), 2) || $remote_addr; } $::s_VariableTable{$::VARPREFIX.'GENERALUSERDEFINED'} = $remote_addr . ' ' . $remote_host . ' ' . $remote_client . ' ' . $remote_httpx;
<B>Your PC info has been logged for security Purposes : </B>NETQUOTEVAR:GENERALUSERDEFINED
Comment