koozali
/
smeserver-expire-accounts
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix delete date

This commit is contained in:
Daniel Berteaud 2016-03-04 08:57:39 +01:00
parent 1addbf8eb8
commit ab7648d9c0
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
root/sbin/e-smith/expire-accounts
View File

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