Return to loncron CVS log | Up to [LON-CAPA] / loncom |
version 1.123, 2020/05/06 14:31:59 | version 1.124, 2020/05/09 19:17:33 |
---|---|
Line 542 sub clean_balanceIDs { | Line 542 sub clean_balanceIDs { |
my $cleaned=0; | my $cleaned=0; |
my $active=0; | my $active=0; |
if (-d $perlvar{'lonBalanceDir'}) { | if (-d $perlvar{'lonBalanceDir'}) { |
while (my $fname=<$perlvar{'balanceDir'}/*.id>) { | while (my $fname=<$perlvar{'lonBalanceDir'}/*.id>) { |
my ($dev,$ino,$mode,$nlink, | my ($dev,$ino,$mode,$nlink, |
$uid,$gid,$rdev,$size, | $uid,$gid,$rdev,$size, |
$atime,$mtime,$ctime, | $atime,$mtime,$ctime, |