Changeset 417 for LATMOS-Accounts/lib

Timestamp:

09/03/09 17:31:29 (15 years ago)

Author:

nanardon

Message:

• add testing options to la-warn-expire

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Maintenance.pm (modified) (3 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Maintenance.pm

@@ -40 +40 @@
 }
 
+=head2 warn_next_expire_users(%options)
+
+Send a mail to user having account expiring soon
+
+C<%options are>
+
+=over 4
+
+=item users => []
+
+Warn only this users (if need)
+
+=item to
+
+Send the only to this person.
+
+=back
+
+=cut
+
 sub warn_next_expire_users {
-    my ($self) = @_;
+    my ($self, %options) = @_;
 
     require Mail::Sendmail;
@@ -52 +72 @@
     );
     foreach my $user ($self->find_next_expire_users) {
+        if ($options{users} && ! grep { $_ eq $user->{name} } @{$options{users}}) {
+            next;
+        }
         my %mail = (
             From => ($self->val('_default_', 'mailFrom') ||
@@ -69 +92 @@
         my ($to, @cc) = grep { $_ } ($mail, $managermail, $self->val('_default_',
             'allwayscc'));
-        $mail{to} = 'nanardon@nanardon.zarb.org';
-
+        if ($options{to}) {
+            $mail{to} = $options{to};
+        } else {
+            $mail{to} = $to;
+            $mail{cc} = join(', ', @cc);
+        }
+        $mail{to} or next;
         my $message;
         $template->process('account_expire.mail', $user, \$message)
             or die $template->error();
+
         if (Mail::Sendmail::sendmail(
             %mail,
             Message => $message,
         )) {
-            warn "mail sent to " . ($to || '') . " cc " . (join(', ', @cc) || '') . "\n";
+            printf("Mail normally set to %s; cc to %s\n",
+                $to, (join(', ', @cc) || ''));
         } else {
             warn $Mail::Sendmail::error