|
version 1.255, 2004/09/14 11:45:04
|
version 1.256, 2004/09/14 12:08:54
|
|
Line 3818 sub get_institutional_code_format_handle
|
Line 3818 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; |
|
| } |
|
| ®ister_handler("portls", \&list_portfolio, 0,1,0); |
|
| |
|
| # |
|
| # |
# |
| # |
# |
| # |
# |
![[BACK]](/icons/back.gif){kind=icon}
Return to lond CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom