loncom/auth/lontokacc.pm - diff

Return to lontokacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.5, 2002/08/02 14:45:04	version 1.6, 2002/08/08 13:45:21
Line 40 sub handler {	Line 40 sub handler {
$r->log_reason("Spoof request ".$reqhost);	$r->log_reason("Spoof request ".$reqhost);
return FORBIDDEN;	return FORBIDDEN;
}	}
	if ($reqhost eq 'localhost.localdomain') {
	$r->register_cleanup(\&removefile);
	return OK;
	}
my $readline;	my $readline;
my $lontabdir=$r->dir_config('lonTabDir');	my $lontabdir=$r->dir_config('lonTabDir');
{	{
Line 64 sub handler {	Line 68 sub handler {

sub removefile {	sub removefile {
my $r=shift;	my $r=shift;
if ($r->status==HTTP_OK) {	if ($r->status==200) {
	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);
}	}
}	}
1;	1;