loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.511, 2004/06/17 18:31:25
+version 1.514, 2004/06/28 15:59:50
  Line 3575  sub revokecustomrole {
             $deleteflag);
  }
+ # ------------------------------------------------------------ Portfolio Director Lister
+ sub portfoliolist {
+ #FIXME us the ls: command instead please
+ #FIXME uhome should never be an argument to any lonnet functions
+     # returns listing of contents of user's /userfiles/portfolio/ directory
+     #
+     my ($udom,$uname,$uhome);
+     $uname=$ENV{'user.name'};
+     $udom=$ENV{'user.domain'};
+     $uhome=$ENV{'user.home'};
+     my $listing = &reply('portls:'.$uname.':'.$udom, $uhome);
+     return $listing;
+ }
+ sub portfoliomanage {
+ #FIXME please user the existing remove userfile function instead and
+ #add a userfilerename functions.
+ #FIXME uhome should never be an argument to any lonnet functions
+     # handles deleting and renaming files in user's userfiles/portfolio/ directory
+     #
+     my ($filename, $fileaction, $filenewname) = @_;
+     my ($udom, $uname, $uhome);
+     $uname=$ENV{'user.name'};
+     $udom=$ENV{'user.domain'};
+     $uhome=$ENV{'user.home'};
+     my $listing = reply('portfoliomanage:'.$uname.':'.$udom.':'.$filename.':'.$fileaction.':'.$filenewname, $uhome);
+     return $listing;
+ }
  # ------------------------------------------------------------ Directory lister
  sub dirlist {