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; |
} |
} |
} |
} |