|
version 1.20, 2010/03/23 12:01:49
|
version 1.21, 2018/07/05 15:23:59
|
|
Line 137 sub main {
|
Line 137 sub main {
|
| foreach my $filename (@allfiles) { |
foreach my $filename (@allfiles) { |
| if ($filename=~/^\./) { next; } |
if ($filename=~/^\./) { next; } |
| if ($filename=~/^publicuser_/) { next; } |
if ($filename=~/^publicuser_/) { next; } |
| |
if ($filename=~/^[a-f0-9]+_(linked|lti_\d+)\.id$/) { 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, |
![[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