version 1.19, 2007/05/16 09:45:58
|
version 1.20, 2020/12/18 15:23:03
|
Line 36 use IO::Socket;
|
Line 36 use IO::Socket;
|
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
my $reqhost = $r->get_remote_host(REMOTE_NOLOOKUP); |
my $reqhost = &Apache::lonnet::get_requestor_ip($r,REMOTE_NOLOOKUP,1); |
my @hostids= &Apache::lonnet::get_hosts_from_ip($reqhost); |
my @hostids= &Apache::lonnet::get_hosts_from_ip($reqhost); |
if (!@hostids && $reqhost ne '127.0.0.1' ) { |
if (!@hostids && $reqhost ne '127.0.0.1' ) { |
$r->log_reason("Unable to find a host for ". |
$r->log_reason("Unable to find a host for ". |