Changeset 1755

Timestamp:

04/25/16 15:29:29 (8 years ago)

Author:

nanardon

Message:

deny to set wrong password unless with --force

File:

• trunk/LATMOS-Accounts/bin/la-passwd (modified) (2 diffs)

trunk/LATMOS-Accounts/bin/la-passwd

@@ -45 +45 @@
     't|test'     => \my $test,
     's|sync=s'   => \my $sync,
+    'f|force'    => \my $force,
     'help'       => sub { pod2usage(0) },
 ) or pod2usage();
@@ -69 +70 @@
 chomp($password);
 
-print "Password quality: " . $obj->check_password($password) . "\n";
+my $res = $obj->check_password($password);
+
+if ($res !~ /^ok$/) {
+    print "Password quality: " . $res . "\n";
+    die "Cannot set bad password, use --force to bypass security\n" unless($force);
+}
 
 exit(0)  if($test);