loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.518, 2004/07/02 21:14:36
+version 1.519, 2004/07/02 21:34:55
  Line 3585  sub revokecustomrole {
  # ------------------------------------------------------------ Portfolio Director Lister
+ # returns listing of contents of user's /userfiles/portfolio/ directory
+ #
  sub portfoliolist {
- #FIXME us the ls: command instead please
+ 	my ($currentPath, $currentFile) = @_;
- #FIXME uhome should never be an argument to any lonnet functions
+ 	my ($udom, $uname, $portfolioRoot);
-     # returns listing of contents of user's /userfiles/portfolio/ directory
+ 	$uname=$ENV{'user.name'};
-     #
-     my ($udom,$uname,$uhome);
-     $uname=$ENV{'user.name'};
      $udom=$ENV{'user.domain'};
-     $uhome=$ENV{'user.home'};
+     # really should interrogate the system for home directory information, but . . .
-     my $listing = &reply('portls:'.$uname.':'.$udom, $uhome);
+     $portfolioRoot = '/home/httpd/lonUsers/'.$udom.'/';
-     return $listing;
+     $uname =~ /^(.?)(.?)(.?)/;
+     $portfolioRoot = $portfolioRoot.$1.'/'.$2.'/'.$3.'/'.$uname.'/userfiles/portfolio';
+ 	my $listing = &reply('ls:'.$portfolioRoot.$currentPath, homeserver($uname,$udom));
+ 	return $listing;
  }
  sub portfoliomanage {