loncom/lontrans.pm - diff

Return to lontrans.pm CVS log

Up to [LON-CAPA] / loncom

version 1.8, 2004/04/01 20:18:29	version 1.9, 2004/07/02 07:58:01
Line 42 sub handler {	Line 42 sub handler {
my (undef,undef,$udom,$uname,@ufile)=split(/\//,$fn);	my (undef,undef,$udom,$uname,@ufile)=split(/\//,$fn);
$ufile[-1]=~s/^[\~\.]+//;	$ufile[-1]=~s/^[\~\.]+//;
my $chome=&Apache::lonnet::homeserver($uname,$udom);	my $chome=&Apache::lonnet::homeserver($uname,$udom);
if ($chome eq $Apache::lonnet::perlvar{'lonHostID'}) {	my $allowed=0;
	my @ids=&Apache::lonnet::current_machine_ids();
	foreach my $id (@ids) { if ($id eq $chome) { $allowed=1; } }
	if ($allowed) {
$r->filename(&Apache::loncommon::propath($udom,$uname).	$r->filename(&Apache::loncommon::propath($udom,$uname).
'/userfiles/'.(join('/',@ufile)));	'/userfiles/'.(join('/',@ufile)));
}	}