loncom/auth/lontokacc.pm - diff

Return to lontokacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.15, 2005/03/03 05:44:51	version 1.17, 2007/03/02 23:17:48
Line 59 sub handler {	Line 59 sub handler {
$readline=~s/\s*$//;	$readline=~s/\s*$//;
my ($id,$domain,$role,$name)=split(/:/,$readline);	my ($id,$domain,$role,$name)=split(/:/,$readline);
foreach my $hostid (@{$hostids}) {	foreach my $hostid (@{$hostids}) {
my $hostname=$Apache::lonnet::hostname{$hostid};	my $hostname=&Apache::lonnet::hostname($hostid);
if ($name =~ /^\Q$hostname\E$/i) {	if ($name =~ /^\Q$hostname\E$/i) {
return OK;	return OK;
}	}
Line 80 sub removefile {	Line 80 sub removefile {
} else {	} else {
&Apache::lonnet::logthis('Failed to transfer '.$r->filename);	&Apache::lonnet::logthis('Failed to transfer '.$r->filename);
}	}
	return OK;
}	}
1;	1;
__END__	__END__