Fix delete date

tags/smeserver-expire-accounts-0.1.7-1
Daniel Berteaud 9 years ago
parent 1addbf8eb8
commit ab7648d9c0
  1. 2
      root/sbin/e-smith/expire-accounts

@ -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';

Loading…
Cancel
Save