version 1.5, 2002/11/12 22:28:48
|
version 1.6, 2002/11/12 22:37:18
|
Line 34 use Apache::lonnet();
|
Line 34 use Apache::lonnet();
|
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
|
my $c = $r->connection; |
my $args=$r->args; |
my $args=$r->args; |
&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 ($homeserver)=($ENV{'form.token'}=~/\_([a-zA-Z0-9]+)$/); |
my ($homeserver)=($ENV{'form.token'}=~/\_([a-zA-Z0-9]+)$/); |
my $remoteip=$ENV{'REMOTE_ADDR'}; |
my $remoteip=$c->remote_ip; |
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'}, |
$remoteserver); |
$remoteserver); |