loncom/auth/lonuploadedacc.pm - diff

Return to lonuploadedacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

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