loncom/auth/lontokacc.pm - diff

Return to lontokacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

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 ".