![[BACK]](/icons/back.gif){kind=icon}
Return to lonpubdir.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher|
Return to lonpubdir.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
| version 1.10, 2001/07/12 21:23:12 | version 1.11, 2001/07/13 12:56:12 |
|---|---|
| Line 93 sub handler { | Line 93 sub handler { |
| opendir(DIR,$fn); | opendir(DIR,$fn); |
| my @files=sort(readdir(DIR)); | my @files=sort(readdir(DIR)); |
| foreach my$filename (@files) { | foreach my $filename (@files) { |
| my ($cdev,$cino,$cmode,$cnlink, | my ($cdev,$cino,$cmode,$cnlink, |
| $cuid,$cgid,$crdev,$csize, | $cuid,$cgid,$crdev,$csize, |
| $catime,$cmtime,$cctime, | $catime,$cmtime,$cctime, |