--- loncom/Attic/lcuseradd	2000/10/30 03:08:28	1.12
+++ loncom/Attic/lcuseradd	2000/10/30 03:30:26	1.13
@@ -3,7 +3,8 @@
 # lcuseradd
 #
 # Scott Harrison
-# October 27, 2000
+# SH: October 27, 2000
+# SH: October 29, 2000
 
 use strict;
 
@@ -43,6 +44,20 @@ use strict;
 # print "uh-oh" if $exitcode;
 
 # These are the exit codes.
+# ( (0,"ok"),
+# (1,"User ID mismatch.  This program must be run as user 'www'"),
+# (2,"Error. This program needs 3 command-line arguments (username, password 1, password 2)."),
+# (3,"Error. Three lines should be entered into standard input."),
+# (4,"Error. Too many other simultaneous password change requests being made."),
+# (5,"Error. User $username does not exist."),
+# (6,"Error. Could not make www a member of the group \"$safeusername\"."),
+# (7,"Error. Root was not successfully enabled.),
+# (8,"Error. Cannot open /etc/passwd."),
+# (9,"Error. The user name specified has invalid characters."),
+# (10,"Error. A password entry had an invalid character."),
+# (11,"Error. User already exists.),
+# (12,"Error. Something went wrong with the addition of user \"$safeusername\"."),
+# (13,"Error. Password mismatch."),
 
 # Security
 $ENV{'PATH'}=""; # Nullify path information.
@@ -117,14 +132,14 @@ if ($pbad) {
 if (-e "/home/$safeusername") {
     print "Error. User already exists.\n" unless $noprint;
     unlink('/tmp/lock_lcpasswd');
-    exit 8;
+    exit 11;
 }
 
 # Only add user if the two password arguments match.
 if ($password1 ne $password2) {
     print "Error. Password mismatch.\n" unless $noprint;
     unlink('/tmp/lock_lcpasswd');
-    exit 7;
+    exit 13;
 }
 
 &enable_root_capability;
@@ -135,7 +150,7 @@ if ($password1 ne $password2) {
 if (system('/usr/sbin/useradd','-c','LON-CAPA user',$safeusername)) {
     print "Error.  Something went wrong with the addition of user \"$safeusername\".\n" unless $noprint;
     unlink('/tmp/lock_lcpasswd');
-    exit 5;
+    exit 12;
 }
 
 # Make www a member of that user group.