![[BACK]](/icons/back.gif){kind=icon}
Return to userstatus.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / cgi|
Return to userstatus.pl CVS log | Up to [LON-CAPA] / loncom / cgi |
| version 1.11, 2004/09/22 15:00:04 | version 1.12, 2005/08/25 19:43:40 |
|---|---|
| Line 80 sub main { | Line 80 sub main { |
| my @allfiles=(sort(readdir(DIR))); | my @allfiles=(sort(readdir(DIR))); |
| foreach my $filename (@allfiles) { | foreach my $filename (@allfiles) { |
| if ($filename=~/^\./) { next; } | if ($filename=~/^\./) { next; } |
| if ($filename=~/^publicuser_/) { next; } | |
| my ($dev,$ino,$mode,$nlink, | my ($dev,$ino,$mode,$nlink, |
| $uid,$gid,$rdev,$size, | $uid,$gid,$rdev,$size, |
| $atime,$mtime,$ctime, | $atime,$mtime,$ctime, |