Changeset 824

Timestamp:

03/16/10 23:08:35 (14 years ago)

Author:

nanardon

Message:

• ajout de --noexpire à la-web-directory

File:

• LATMOS-Accounts/bin/la-web-directory (modified) (5 diffs)

LATMOS-Accounts/bin/la-web-directory

@@ -6 +6 @@
 use Getopt::Long;
 use Pod::Usage;
+use POSIX qw(strftime);
 
 =head1 NAME
@@ -29 +30 @@
     'noexp'      => \my $noexp,
     'exp'        => \my $exp,
+    'noexpire'   => \my $noexpire,
     'filter=s'   => \my @filters,
     'help'       => sub { pod2usage(0) },
@@ -54 +56 @@
 Take into account only propagated objects (attribute 'exported'=1)
 
+=item --noexpire
+
+Exclude expired accounts
+
 =cut
 
@@ -62 +68 @@
 $labase->wexported($exp ? 1 : 0);
 my %users;
+my $now = strftime('%Y/%m/%d', gmtime);
+warn $now;
 
 foreach my $user (sort $labase->search_objects('user',
@@ -67 +75 @@
     my $ouser = $labase->get_object('user', $user);
     $ouser->get_attributes('sn') or next;
+    if ($noexpire && (my $exp = $ouser->get_attributes('expireText'))) {
+        if ($now gt $exp) {
+            next;
+        }
+    }
     my @oaddress;