Diff for /loncom/lond between versions 1.255 and 1.257

version 1.255, 2004/09/14 11:45:04 version 1.257, 2004/09/14 20:15:22
Line 2091  sub mkdir_user_file_handler { Line 2091  sub mkdir_user_file_handler {
  if (-e $udir) {   if (-e $udir) {
     my $newdir=$udir.'/userfiles/'.$ufile;      my $newdir=$udir.'/userfiles/'.$ufile;
     if (!-e $newdir) {      if (!-e $newdir) {
  mkdir($newdir);   my @parts=split('/',$newdir);
    my $path;
    foreach my $part (@parts) {
       $path .= '/'.$part;
       if (!-e $path) {
    &logthis("Making $path");
    mkdir($path,0770);
       }
    }
  if (!-e $newdir) {   if (!-e $newdir) {
     &Failure($client, "failed\n", "$cmd:$tail");      &Failure($client, "failed\n", "$cmd:$tail");
  } else {   } else {
Line 3818  sub get_institutional_code_format_handle Line 3826  sub get_institutional_code_format_handle
   0,1,0);    0,1,0);
   
 #  #
 #    Portofolio directory list:  
 #  
 # Parameters:  
 #    cmd     - Command request that got us called.  
 #    tail    - the remainder of the command line.  In this case this is a colon  
 #              separated list containing the username and domain.  
 #              used to locate their portfolio.  
 #    client  - Socket openon the client.  
 # Returns:  
 #    1 indicating processing should continue.  
 #  
 sub list_portfolio {  
     my ($cmd, $tail, $client) = @_;  
     my ($uname, $udom)        = split(/:/, $tail);  
     my $userinput             = "$cmd:$tail";  
       
     my $udir=propath($udom,$uname).'/userfiles/portfolio';  
     my $dirLine='';  
     my $dirContents='';  
     if (opendir(LSDIR,$udir.'/')){  
  while ($dirLine = readdir(LSDIR)){  
     $dirContents = $dirContents.$dirLine.'<br />';  
  }  
     } else {  
  $dirContents = "No directory found\n";  
     }  
     &Reply( $client, $dirContents."\n", $userinput);  
       
   
   
     return 1;  
 }  
 &register_handler("portls", \&list_portfolio, 0,1,0);  
   
 #  
 #  #
 #  #
 #  #

Removed from v.1.255  
changed lines
  Added in v.1.257


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