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

Timestamp:

10/01/19 19:16:21 (5 years ago)

Author:

nanardon

Message:

Add lock/banpasswd functions

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli

Files:

• Base.pm (modified) (1 diff)
• Context.pm (modified) (1 diff)
• Object.pm (modified) (2 diffs)

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

@@ -430 +430 @@
 =cut
 
-sub base { $_[0]->Context->base }
-sub term { $_[0]->Context->Term }
-sub print { shift->Context->print(@_) }
+sub La           { $_[0]->Context->La   }
+sub base         { $_[0]->Context->base }
+sub term         { $_[0]->Context->Term }
+sub Interractive { $_[0]->Context->Interactive }
+sub print        { shift->Context->print(@_) }
 
 sub Top {

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

@@ -33 +33 @@
 has TransStarted => ( is => 'rw', isa => 'Bool', default => 0 );
 has base => ( is => 'ro' );
+has La => ( is => 'ro' );
 has Out => ( is => 'ro' );
+has Interractive => ( is => 'rw', isa => 'Bool', default => 1 );
 
 =head1 FUNCTIONS

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

@@ -422 +422 @@
 
     if (lc($self->otype) eq 'user') {
+
+=head2 USER OBJECT FUCNTION
+
+=cut
+
         $self->add_func('group', {
             help => 'group add|remove|primary goupname',
@@ -476 +481 @@
             },
         });
+
+=head3 lock
+
+Lock user account making it not usable
+
+=cut
+
+        $self->add_func('lock', {
+            code => sub {
+                my ( $env, $ban ) = @_;
+                foreach my $obj (@{$env->{_objects}}) {
+                    $obj->set_c_fields('locked', 1);
+                    if ($ban) {
+                        $obj->banCurrentPassword;
+                    }
+                }
+                $env->commit;
+            },
+            completion => sub {
+                if (!$_[2]) {
+                    return (qw(ban));
+                }
+            },
+        });
+
+=head3 unlock
+
+Unlock user account making it usable again
+
+=cut
+
+        $self->add_func('unlock', {
+            code => sub {
+                my ( $env, $ban ) = @_;
+                foreach my $obj (@{$env->{_objects}}) {
+                    $obj->set_c_fields('locked', undef);
+                    if ($ban) {
+                        $obj->banCurrentPassword;
+                    }
+                }
+                $env->commit;
+            },
+            completion => sub {
+                if (!$_[2]) {
+                    return (qw(ban));
+                }
+            },
+        });
+
+=head3 banpasswd
+
+Ban current pasword making it not usable by user
+
+=cut
+
+        $self->add_func('banpasswd', {
+            code => sub {
+                my ( $env, $ban ) = @_;
+                foreach my $obj (@{$env->{_objects}}) {
+                    $obj->banCurrentPassword;
+                }
+                $env->commit;
+            },
+            completion => sub {},
+        });
+
     } elsif ($self->otype eq 'group') {
+
+=head2 GROUP OBJECT FUNCTIONS
+
+=cut
+
         $self->add_func('member', {
             help => 'member add|remove user',