![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.17, 2000/07/17 16:37:14 | version 1.18, 2000/07/17 21:36:33 |
|---|---|
| Line 595 sub assignrole { | Line 595 sub assignrole { |
| sub dirlist { | sub dirlist { |
| my $uri=shift; | my $uri=shift; |
| $uri=~/^\/res\/(\w+)\/(\w+)\//; | $uri=~s/^\///; |
| $uri=~s/\/$//; | |
| $uri=~/^res\/(\w+)\/(\w+)/; | |
| my $listing=reply('ls:'.$perlvar{'lonDocRoot'}.'/'.$uri,homeserver($2,$1)); | my $listing=reply('ls:'.$perlvar{'lonDocRoot'}.'/'.$uri,homeserver($2,$1)); |
| return split(/:/,$listing); | return split(/:/,$listing); |
| } | } |