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]+)$/); |