[Sandweb-commit] CVS: sandweb/bin sandweb-admin,1.15,1.16

[Rob H. <for...@us...>]

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);