Changeset 312 for LATMOS-Accounts/bin

Timestamp:

08/07/09 18:54:32 (15 years ago)

Author:

nanardon

Message:

• query password from console w/o printing it

File:

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

LATMOS-Accounts/bin/la-passwd

@@ -6 +6 @@
 use Getopt::Long;
 use Pod::Usage;
+use Term::ReadKey;
+
+=head1 NAME
+
+    la-passwd - set user password
+
+=head1 SYNOPSIS
+
+    la-passwd [options] userid
+
+=cut
 
 GetOptions(
@@ -22 +33 @@
     die "Object $otype $ARGV[0] not found\n";
 };
-if ($obj->set_password($ARGV[1])) {
+
+ReadMode('noecho');
+print "Enter password: ";
+my $password = ReadLine(0);
+ReadMode 0;
+print "\n";
+
+if ($obj->set_password($password)) {
     print "Password succefully changed\n";
     exit 0;