version 1.3, 2002/09/30 21:01:41
|
version 1.4, 2002/11/12 22:23:37
|
Line 38 sub handler {
|
Line 38 sub handler {
|
&Apache::loncommon::get_unprocessed_cgi($args,['token']); |
&Apache::loncommon::get_unprocessed_cgi($args,['token']); |
my (undef,undef,$udom,$uname,$ufile)=split(/\//,$r->uri); |
my (undef,undef,$udom,$uname,$ufile)=split(/\//,$r->uri); |
$ufile=~s/^[\~\.]+//; |
$ufile=~s/^[\~\.]+//; |
my ($server)=($ENV{'form.token'}=~/\_([a-zA-Z0-9]+)$/); |
my ($homeserver)=($ENV{'form.token'}=~/\_([a-zA-Z0-9]+)$/); |
|
my $remoteip=$ENV{'REMOTE_ADDR'}; |
|
&Apache::lonnet::logthis("remote server $remoteserver"); |
|
my $remoteserver=$Apache::lonnet::iphost{$remoteip}; |
|
|
my $reply=&Apache::lonnet::reply('tokenauthuserfile:'. |
my $reply=&Apache::lonnet::reply('tokenauthuserfile:'. |
$udom.'/'.$uname.'/'.$ufile.':'.$ENV{'form.token'}, |
$udom.'/'.$uname.'/'.$ufile.':'.$ENV{'form.token'}, |
$server); |
$remoteserver); |
if ($reply eq 'ok') { |
if ($reply eq 'ok') { |
return OK; |
return OK; |
} else { |
} else { |