loncom/auth/lonuploadedacc.pm - diff

Return to lonuploadedacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.4, 2002/11/12 22:23:37	version 1.5, 2002/11/12 22:28:48
Line 40 sub handler {	Line 40 sub handler {
$ufile=~s/^[\~\.]+//;	$ufile=~s/^[\~\.]+//;
my ($homeserver)=($ENV{'form.token'}=~/\_([a-zA-Z0-9]+)$/);	my ($homeserver)=($ENV{'form.token'}=~/\_([a-zA-Z0-9]+)$/);
my $remoteip=$ENV{'REMOTE_ADDR'};	my $remoteip=$ENV{'REMOTE_ADDR'};
&Apache::lonnet::logthis("remote server $remoteserver");
my $remoteserver=$Apache::lonnet::iphost{$remoteip};	my $remoteserver=$Apache::lonnet::iphost{$remoteip};
	&Apache::lonnet::logthis("remote server $remoteip $remoteserver");

my $reply=&Apache::lonnet::reply('tokenauthuserfile:'.	my $reply=&Apache::lonnet::reply('tokenauthuserfile:'.
$udom.'/'.$uname.'/'.$ufile.':'.$ENV{'form.token'},	$udom.'/'.$uname.'/'.$ufile.':'.$ENV{'form.token'},
Line 50 sub handler {	Line 50 sub handler {
return OK;	return OK;
} else {	} else {
&Apache::lonnet::logthis(	&Apache::lonnet::logthis(
"Refused userfile access $uname at $udom for $ufile from $server with $ENV{'form.token'}: $reply");	"Refused userfile access $uname at $udom for $ufile from $remoteip -> $remoteserver home $homeserver with $ENV{'form.token'}: $reply");
return FORBIDDEN;	return FORBIDDEN;
}	}
}	}