loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

-version 1.200, 2004/06/21 13:25:53
+version 1.201, 2004/06/21 14:08:20
  Line 3033  sub make_new_child {
  			Reply($client, "refused\n", $userinput);
  		    }
+ # ----------------------------------------- portfolio directory list (portls)
+                 } elsif ($userinput =~ /^portls/) {
+                     if(isClient) {
+                         my ($cmd,$uname,$udom)=split(/:/,$userinput);
+                         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";
+                         }
+                         print $client $dirContents."\n";
+                     } else {
+                         Reply($client, "refused\n", $userinput);
+                     }
  # -------------------------------------------------------------------------- ls
  		} elsif ($userinput =~ /^ls/) {
  		    if(isClient) {