Changeset 704 for LATMOS-Accounts/bin/la-warn-expire

Timestamp:

01/22/10 19:39:11 (14 years ago)

Author:

nanardon

Message:

• add --at option to la-warn-expire to specify expiration delay to find

File:

• LATMOS-Accounts/bin/la-warn-expire (modified) (3 diffs)

LATMOS-Accounts/bin/la-warn-expire

@@ -22 +22 @@
     'm|mail'     => \my $mail,
     'help'       => sub { pod2usage(0) },
-    'users|u=s'    => \my @users,
+    'users|u=s'  => \my @users,
     'to=s'       => \my $to,
+    'at=s'       => \my $delay,
 ) or pod2usage();
 
@@ -49 +50 @@
 Instead sending email to user(s) and eventually his/her/their manager(s), send the mail to
 only this email address.
+
+=item --at DELAY
+
+Search account expiring in DELAY. Delay must must a number follow by a time
+unit. Example:
+
+    1 month
+    2 days
 
 =back
@@ -82 +91 @@
 
 if ($mail) {
-    $LA->warn_next_expire_users(to => $to, users => (@users ? \@users : undef));
+    $LA->warn_next_expire_users(
+        to => $to,
+        users => (@users ? \@users : undef),
+        delay => $delay
+    );
 } else {
-    foreach ($LA->find_next_expire_users()) {
+    foreach ($LA->find_next_expire_users($delay)) {
         printf("%-10s %s (%s)\n", $_->{delay}, $_->{obj}->get_c_field('displayName'),
             $_->{obj}->id);