loncom/auth/lontokacc.pm - diff

Return to lontokacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lontokacc.pm between versions 1.6 and 1.13

version 1.6, 2002/08/08 13:45:21	version 1.13, 2005/02/07 17:04:53
Line 32 use strict;	Line 32 use strict;
use Apache::Constants qw(:common :remotehost);	use Apache::Constants qw(:common :remotehost);
use Apache::lonnet();	use Apache::lonnet();
use Apache::File();	use Apache::File();
	use IO::Socket;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
my $reqhost;	my $reqhost = $r->get_remote_host(REMOTE_NOLOOKUP);
unless ($reqhost=$r->get_remote_host(REMOTE_DOUBLE_REV)) {	my $netaddr=inet_aton($reqhost);
$r->log_reason("Spoof request ".$reqhost);	($reqhost) = gethostbyaddr($netaddr,AF_INET);
return FORBIDDEN;	if (!$reqhost) {
	$r->log_reason("Unable to do hostname $reqhost lookup for ".$r->get_remote_host(REMOTE_NOLOOKUP));
	return FORBIDDEN;
}	}
if ($reqhost eq 'localhost.localdomain') {	if ($reqhost eq 'localhost.localdomain') {
$r->register_cleanup(\&removefile);
return OK;	return OK;
}	}
my $readline;	my $readline;
Line 53 sub handler {	Line 55 sub handler {
return FORBIDDEN;	return FORBIDDEN;
}	}
while ($readline=<$fh>) {	while ($readline=<$fh>) {
my ($id,$domain,$role,$name,$ip)=split(/:/,$readline);	$readline=~s/\s*$//;
if ($name =~ /$reqhost/i) {	my ($id,$domain,$role,$name)=split(/:/,$readline);
$r->register_cleanup(\&removefile);	if ($name =~ /\Q$reqhost\E/i) {
return OK;	return OK;
}	}
}	}

}	}
Line 70 sub removefile {	Line 72 sub removefile {
my $r=shift;	my $r=shift;
if ($r->status==200) {	if ($r->status==200) {
unlink($r->filename);	unlink($r->filename);
&Apache::lonnet::logthis('Unlinking '.$r->filename);	#&Apache::lonnet::logthis('Unlinking '.$r->filename);
} else {	} else {
&Apache::lonnet::logthis('Failed to transfer '.$r->filename);	&Apache::lonnet::logthis('Failed to transfer '.$r->filename);
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.6
changed lines
	Added in v.1.13