[BACK]Return to lonnet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / lonnet / perl

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.517 and 1.520

version 1.517, 2004/06/30 12:33:47 version 1.520, 2004/07/02 21:55:13
Line 1600  sub getannounce { Line 1600  sub getannounce {
  if ($announcement=~/\w/) {    if ($announcement=~/\w/) { 
     return       return 
    '<table bgcolor="#FF5555" cellpadding="5" cellspacing="3">'.     '<table bgcolor="#FF5555" cellpadding="5" cellspacing="3">'.
    '<tr><td bgcolor="#FFFFFF"><pre>'.$announcement.'</pre></td></tr></table>';      '<tr><td bgcolor="#FFFFFF"><tt>'.$announcement.'</tt></td></tr></table>'; 
  } else {   } else {
     return '';      return '';
  }   }
Line 3585  sub revokecustomrole { Line 3585  sub revokecustomrole {
   
   
 # ------------------------------------------------------------ Portfolio Director Lister  # ------------------------------------------------------------ Portfolio Director Lister
   # returns listing of contents of user's /userfiles/portfolio/ directory
   # 
   
 sub portfoliolist {  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  
     #   
     my ($udom,$uname,$uhome);  
     $uname=$ENV{'user.name'};      $uname=$ENV{'user.name'};
     $udom=$ENV{'user.domain'};      $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.'/';
       $uname =~ /^(.?)(.?)(.?)/;
       $portfolioRoot = $portfolioRoot.$1.'/'.$2.'/'.$3.'/'.$uname.'/userfiles/portfolio';
       my $listing = &reply('ls:'.$portfolioRoot.$currentPath, &homeserver($uname,$udom));
     return $listing;      return $listing;
 }  }
   
Line 4913  sub getfile { Line 4916  sub getfile {
  my @parts = ($cdom,$cnum);    my @parts = ($cdom,$cnum); 
  if ($filename =~ m|^(.+)/[^/]+$|) {   if ($filename =~ m|^(.+)/[^/]+$|) {
     push @parts, split(/\//,$1);      push @parts, split(/\//,$1);
     }   }
  foreach my $part (@parts) {   foreach my $part (@parts) {
     $path .= '/'.$part;      $path .= '/'.$part;
     if (!-e $path) {      if (!-e $path) {
Removed from v.1.517  
changed lines
  Added in v.1.520

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>