|
|
@ -72,9 +72,11 @@ foreach my $user ($a->users){ |
|
|
|
day => $3, |
|
|
|
day => $3, |
|
|
|
); |
|
|
|
); |
|
|
|
my $delete_date = $locked->add( days => $delete ); |
|
|
|
my $delete_date = $locked->add( days => $delete ); |
|
|
|
|
|
|
|
if ( $delete_date < $now ){ |
|
|
|
print $user->key . ": Account must be deleted\n" if $debug; |
|
|
|
print $user->key . ": Account must be deleted\n" if $debug; |
|
|
|
push @delete, $user->key; |
|
|
|
push @delete, $user->key; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
} |
|
|
|
next; |
|
|
|
next; |
|
|
|
} |
|
|
|
} |
|
|
|
my $lock_date = $user->prop('ExpireLockOn') || 'never'; |
|
|
|
my $lock_date = $user->prop('ExpireLockOn') || 'never'; |
|
|
|