loncom/auth/lontokacc.pm - diff

Return to lontokacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.14, 2005/02/10 22:30:56	version 1.16, 2006/02/07 19:46:26
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}) {
if ($name =~ /^\Q$hostid\E$/i) {	my $hostname=$Apache::lonnet::hostname{$hostid};
	if ($name =~ /^\Q$hostname\E$/i) {
return OK;	return OK;
}	}
}	}
}	}

}	}
$r->log_reason("Invalid request for user file transfer from $reqhost",	$r->log_reason("Invalid request for user file transfer from $reqhost (".join(",",@{$hostids}).")",
$r->filename);	$r->filename);
return FORBIDDEN;	return FORBIDDEN;
}	}
Line 79 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__