Changeset 850 for LATMOS-Accounts/lib/LATMOS/Accounts/Cli.pm

Timestamp:

03/30/10 22:43:40 (14 years ago)

Author:

nanardon

Message:

• add functions to find already expired account

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Cli.pm (modified) (2 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Cli.pm

@@ -75 +75 @@
             },
         });
+    $env->add_func('expired', {
+        help => 'expired [delay] - list expired account more than delay (default is now)',
+        code => sub {
+            my ($env, $expire) = @_;
+            my @users = $env->base->find_expired_users($expire);
+            print $OUT map { "$_\n" } @users;
+            $env->{_lastsearchtype} = 'user';
+            $env->{_lastsearch} = \@users;
+        },
+    }) if ($env->base->can('find_expired_users'));
+    $env->add_func('expires', {
+        help => 'expires [delay] - list account expiring before delay (default is 1 month)',
+        code => sub {
+            my ($env, $expire) = @_;
+            my @users = $env->base->find_next_expire_users($expire);
+            print $OUT map { "$_\n" } @users;
+            $env->{_lastsearchtype} = 'user';
+            $env->{_lastsearch} = \@users;
+        },
+    }) if ($env->base->can('find_next_expire_users'));
     $env->add_func('select', {
             help => 'select object_type - select objects to perform action on it',
@@ -142 +162 @@
                 }
             } else {
-                foreach (@{$env->{_objects}}) {
-                    print $OUT sort map { ($_ || '') . "\n" } $_->get_attributes($attr);
+                foreach my $u (@{$env->{_objects}}) {
+                    print $OUT sort map { $u->id . ': ' .($_ || '') . "\n" } $u->get_attributes($attr);
                 }
             }