Changeset 1878 for trunk

Timestamp:

12/27/16 09:51:17 (7 years ago)

Author:

nanardon

Message:

Don't unexport freshly modified users

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Delexpiredusers.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Task/Delexpiredusers.pm

@@ -32 +32 @@
 
 If unset no user are unexported.
+
+=head2 modifdelay
+
+The time to wait in minutes after user modification before unexporting it.
+
+This time avoid the module deleting a user in the same time an administrator
+is trying to reactivate it.
+
+Default is 60 minutes.
 
 =head2 cc
@@ -179 +188 @@
     my $expiredDate = DateTime->now()->subtract(days => $warnDelay + $unexportDelay);
 
-    my $waitAfterModif = DateTime->now->subtract( hours => 3 )->iso8601;
+    my $modifDelay = $self->{syncm}->ini->val($self->{name}, 'modifdelay', 60);
+    my $waitAfterModif = DateTime->now->subtract( minutes => $modifDelay  )->iso8601;
 
     foreach my $user ($self->{_base}->search_objects('user',