loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.399, 2008/04/16 22:51:21	version 1.400, 2008/04/21 15:27:34
Line 1535 sub ls3_handler {	Line 1535 sub ls3_handler {
&Failure($client,"refused\n","$cmd:$tail");	&Failure($client,"refused\n","$cmd:$tail");
return 1;	return 1;
}	}
} elsif (defined($alternate_root)) {	} elsif ($alternate_root ne '') {
$dir_root = $alternate_root;	$dir_root = $alternate_root;
}	}
if (defined($dir_root)) {	if ($dir_root ne '') {
$ulsdir = $dir_root.'/'.$ulsdir;	if ($ulsdir =~ /^\//) {
	$ulsdir = $dir_root.$ulsdir;
	} else {
	$ulsdir = $dir_root.'/'.$ulsdir;
	}
}	}
my $obs;	my $obs;
my $rights;	my $rights;
Line 1576 sub ls3_handler {	Line 1580 sub ls3_handler {
}	}
} else {	} else {
$ulsout='no_such_dir';	$ulsout='no_such_dir';
}	}
if ($ulsout eq '') { $ulsout='empty'; }	if ($ulsout eq '') { $ulsout='empty'; }
&Reply($client, \$ulsout, $userinput); # This supports debug logging.	&Reply($client, \$ulsout, $userinput); # This supports debug logging.
return 1;	return 1;
}	}
&register_handler("ls3", \&ls3_handler, 0, 1, 0);	&register_handler("ls3", \&ls3_handler, 0, 1, 0);