loncom/auth/lonuploadedacc.pm - diff

Return to lonuploadedacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.2, 2002/08/08 13:45:21	version 1.3, 2002/09/30 21:01:41
Line 36 sub handler {	Line 36 sub handler {
my $r = shift;	my $r = shift;
my $args=$r->args;	my $args=$r->args;
&Apache::loncommon::get_unprocessed_cgi($args,['token']);	&Apache::loncommon::get_unprocessed_cgi($args,['token']);
my ($dum1,$dum2,$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 ($server)=($ENV{'form.token'}=~/\_([a-zA-Z0-9]+)$/);