Return to lontrans.pm CVS log | Up to [LON-CAPA] / loncom |
version 1.9, 2004/07/02 07:58:01 | version 1.10, 2006/01/16 19:27:09 |
---|---|
Line 40 sub handler { | Line 40 sub handler { |
my $fn = $r->uri(); | my $fn = $r->uri(); |
$fn=~s/^\/raw//; | $fn=~s/^\/raw//; |
my (undef,undef,$udom,$uname,@ufile)=split(/\//,$fn); | my (undef,undef,$udom,$uname,@ufile)=split(/\//,$fn); |
$ufile[-1]=~s/^[\~\.]+//; | if (@ufile) { $ufile[-1]=~s/^[\~\.]+//; } |
my $chome=&Apache::lonnet::homeserver($uname,$udom); | my $chome=&Apache::lonnet::homeserver($uname,$udom); |
my $allowed=0; | my $allowed=0; |
my @ids=&Apache::lonnet::current_machine_ids(); | my @ids=&Apache::lonnet::current_machine_ids(); |