loncom/lontrans.pm - diff

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