Changeset 2287 for trunk

Timestamp:

10/02/19 09:56:44 (5 years ago)

Author:

nanardon

Message:

Add passwd command to users object

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Object.pm (modified) (3 diffs)

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

@@ -9 +9 @@
 use LATMOS::Accounts::Utils;
 use Term::ReadLine;
+use Term::ReadKey;
 use Text::ParseWords;
 use Getopt::Long;
@@ -538 +539 @@
         $self->add_func('banpasswd', {
             code => sub {
-                my ( $env, $ban ) = @_;
+                my ( $env ) = @_;
                 foreach my $obj (@{$env->{_objects}}) {
                     $obj->banCurrentPassword;
@@ -545 +546 @@
             },
             completion => sub {},
+        });
+
+=head3 passwd
+
+Set password to selected user. If multiple users are selected the same password will be set to all users
+
+Options:
+
+=over 4
+
+=item -f|--force Ignore password quality check
+
+=item -r|--random Generate a random password for each users
+
+=item -o|--output Write login:password into a file (usefull with --random)
+
+=back
+
+=cut
+
+        $self->add_func('passwd', {
+            code => sub {
+                my $env = shift;
+                my %gen_options = ();
+                my ( $password ) = $self->getoption(
+                    {
+                        'f|force'  => \my $force,
+                        'r|random' => \my $random,
+                        'p'        => \$gen_options{nonalpha},
+                        'syl'      => \$gen_options{syllables},
+                        'l=i'      => \$gen_options{length},
+                        'o=s'      => \my $output,
+
+                    }, @_
+                );
+
+                if (!($password || $random)) {
+                    ReadMode('noecho');
+                    print "Enter password: ";
+                    $password = ReadLine(0);
+                    ReadMode 0;
+                    print "\n";
+                    chomp($password);
+                }
+
+                $password ||= '';
+                my %resPasswd = ();
+
+                my $sbase = $self->La->sync_access();
+
+                foreach my $obj (@{$env->{_objects}}) {
+                    my $sobj = $sbase->get_object($obj->type, $obj->id);
+                    if ($random) {
+                        $password = LATMOS::Accounts::Utils::genpassword(
+                            %gen_options
+                        );
+                    }
+
+                    my $res = $sobj->check_password($password);
+                    if ($res ne 'ok') {
+                        warn "Password quality: $res\n";
+                        if (!$force) {
+                            warn "Cannot set bad password, use --force to bypass security\n";
+                            return;
+                        }
+                    }
+                    if ($sobj->set_password($password)) {
+                        $resPasswd{$obj->id} = $password;
+                        print "Password succefully changed\n";
+                        $env->commit;
+                        return 1;
+                    } else {
+                        warn "Error when trying to change password\n";
+                        return 0;
+                    }
+                }
+
+                if ($output) {
+                    open(my $handle, '>', $output) or do {
+                        warn "Cannot open $output: $!";
+                        return;
+                    };
+                    foreach (sort keys %resPasswd) {
+                        print $handle $_ . ':' . $resPasswd{$_} . "\n";
+                    }
+                    close($handle);
+                }
+            },
+            completion => sub {
+                return (qw(-f --force -r --random -p --syl -l -o));
+            },
         });