Fix delete date

root/sbin/e-smith/expire-accounts

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