loncom/auth/lonuploadedacc.pm - diff

Return to lonuploadedacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

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:'.