From: Nick J. <nje...@us...> - 2001-10-07 13:32:13
|
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; |