Changeset 1879 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Timestamp:

12/27/16 09:51:29 (8 years ago)

Author:

nanardon

Message:

Add summary option to delunexpireduser

File:

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

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

@@ -45 +45 @@
 
 A copy of warning are sent to this email address
+
+=head2 summary
+
+If set, send a summmary to this address
 
 =head2 to
@@ -172 +176 @@
             }
             $self->{_base}->commit;
+        }
+    }
+
+    if (my $sumto = $self->{syncm}->ini->val($self->{name}, 'summary')) {
+        my @summary;
+        foreach my $manager (sort keys %expired) {
+            foreach (@{$expired{$manager}{users}}) {
+                push(@summary, sprintf("%s - %s (%s, %s)\n",
+                        $_->id,
+                        ($expired{$manager}{manager}
+                            ? $expired{$manager}{manager}->get_attributes('displayName')
+                            : $manager),
+                        $_->get_attributes('displayName'),
+                        $_->get_attributes('expireText'),
+                    )
+                );
+            }
+        }
+
+        if (@summary) {
+            my %mail = (
+                Subject => 'LATMOS expired account (to disable)',
+                'X-LATMOS-Reason' => 'Account expiration',
+                To => $sumto,
+            );
+            my $summail = LATMOS::Accounts::Mail->new(
+                $self, \join('', @summary), {}
+            );
+            if ($summail->process(\%mail)) {
+                la_log(LA_NOTICE, "Expiration summary mail sent to %s",
+                    $self->val('_default_', 'expire_summary_to'),
+                );
+            }
         }
     }