Update of /cvsroot/sandweb/sandweb/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv28238/bin
Modified Files:
sandweb-admin
Log Message:
made it so password is not echoed, and it makes the user dir group
writable too
Index: sandweb-admin
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb-admin,v
retrieving revision 1.15
retrieving revision 1.16
diff -U2 -r1.15 -r1.16
--- sandweb-admin 28 Mar 2002 06:39:41 -0000 1.15
+++ sandweb-admin 12 Jan 2003 11:12:08 -0000 1.16
@@ -133,5 +133,8 @@
# get password
print "Enter password for $name: ";
+ system("stty", "-echo");
my $tmp = <STDIN>;
+ system("stty", "sane");
+ print "\n";
chomp ($tmp);
if ($tmp) {
@@ -157,5 +160,5 @@
fexit('27', "Unable to create $name.\n");
}
- system('chmod', "u=rwx,g=rx,o=", "$users_dir/$name");
+ system('chmod', "u=rwx,g=rwx,o=", "$users_dir/$name");
if (!$?) {
print "Username $name successfully added!\n";
@@ -249,5 +252,8 @@
my $name = shift;
print "Enter password for $name: ";
+ system("stty", "-echo");
my $tmp = <STDIN>;
+ system("stty", "sane");
+ print "\n";
my $enc_pwd;
chomp ($tmp);
|
