loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

-version 1.253, 2004/09/14 09:30:07
+version 1.254, 2004/09/14 10:27:22
  Line 3799  sub get_institutional_code_format_handle
 ,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);
+ #
  #
  #
  #