loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.519, 2004/07/02 21:34:55	version 1.520, 2004/07/02 21:55:13
Line 3589 sub revokecustomrole {	Line 3589 sub revokecustomrole {
#	#

sub portfoliolist {	sub portfoliolist {
my ($currentPath, $currentFile) = @_;	my ($currentPath, $currentFile) = @_;
my ($udom, $uname, $portfolioRoot);	my ($udom, $uname, $portfolioRoot);
$uname=$ENV{'user.name'};	$uname=$ENV{'user.name'};
$udom=$ENV{'user.domain'};	$udom=$ENV{'user.domain'};
# really should interrogate the system for home directory information, but . . .	# really should interrogate the system for home directory information, but . . .
$portfolioRoot = '/home/httpd/lonUsers/'.$udom.'/';	$portfolioRoot = '/home/httpd/lonUsers/'.$udom.'/';
$uname =~ /^(.?)(.?)(.?)/;	$uname =~ /^(.?)(.?)(.?)/;
$portfolioRoot = $portfolioRoot.$1.'/'.$2.'/'.$3.'/'.$uname.'/userfiles/portfolio';	$portfolioRoot = $portfolioRoot.$1.'/'.$2.'/'.$3.'/'.$uname.'/userfiles/portfolio';
my $listing = &reply('ls:'.$portfolioRoot.$currentPath, homeserver($uname,$udom));	my $listing = &reply('ls:'.$portfolioRoot.$currentPath, &homeserver($uname,$udom));
return $listing;	return $listing;
}	}

sub portfoliomanage {	sub portfoliomanage {