Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv26605
Modified Files:
sandweb-admin
Log Message:
sandweb-admin no longer asks for full name
Index: sandweb-admin
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb-admin,v
retrieving revision 1.4
retrieving revision 1.5
diff -U2 -r1.4 -r1.5
--- sandweb-admin 2001/09/17 05:26:16 1.4
+++ sandweb-admin 2001/10/07 13:32:10 1.5
@@ -94,17 +94,17 @@
# get full name
- print "Enter full name for $name: ";
- $tmp = <STDIN>;
- chomp ($tmp);
- if ($tmp) {
- $full_name = $tmp;
- }
- else {
- print "error: no full name entered, aborting.\n";
- exit 25;
- }
+ #print "Enter full name for $name: ";
+ #$tmp = <STDIN>;
+ #chomp ($tmp);
+ #if ($tmp) {
+ # $full_name = $tmp;
+ #}
+ #else {
+ # print "error: no full name entered, aborting.\n";
+ # exit 25;
+ #}
open(PW, ">>$passwd_file") or fexit('26', "Unable to open $passwd_file : $!");
- print PW "$name:$uid:$enc_pwd:$full_name\n";
+ print PW "$name:$uid:$enc_pwd\n";
close PW;
|