version 1.10, 2004/02/11 00:10:02
|
version 1.11, 2004/10/26 15:03:08
|
Line 50 sub handler {
|
Line 50 sub handler {
|
my $r = shift; |
my $r = shift; |
my $args=$r->args; |
my $args=$r->args; |
&Apache::loncommon::get_unprocessed_cgi($args,['token','tokenissued']); |
&Apache::loncommon::get_unprocessed_cgi($args,['token','tokenissued']); |
my (undef,undef,$udom,$uname,$ufile)=split(/\//,$r->uri); |
my (undef,undef,$udom,$uname,$ufile)=split(/\//,$r->uri,5); |
$ufile=~s/^[\~\.]+//; |
$ufile=~s/^[\~\.]+//; |
my $remoteserver=$ENV{'form.tokenissued'}; |
my $remoteserver=$ENV{'form.tokenissued'}; |
my $reply=&Apache::lonnet::reply('tokenauthuserfile:'. |
my $reply=&Apache::lonnet::reply('tokenauthuserfile:'. |