Return to loncron CVS log | Up to [LON-CAPA] / loncom |
version 1.103.2.7, 2020/05/06 14:40:08 | version 1.103.2.8, 2020/05/09 19:24:25 |
---|---|
Line 535 sub clean_balanceIDs { | Line 535 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, |