loncom/auth/lontokacc.pm - diff

Return to lontokacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.7, 2002/10/21 19:15:10	version 1.9, 2003/08/01 17:25:40
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 Data::Dumper;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 45 sub handler {	Line 45 sub handler {
return FORBIDDEN;	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 59 sub handler {	Line 58 sub handler {
while ($readline=<$fh>) {	while ($readline=<$fh>) {
my ($id,$domain,$role,$name,$ip)=split(/:/,$readline);	my ($id,$domain,$role,$name,$ip)=split(/:/,$readline);
if ($name =~ /$reqhost/i) {	if ($name =~ /$reqhost/i) {
$r->register_cleanup(\&removefile);
return OK;	return OK;
}	}
}	}