--- loncom/Attic/lcuseradd	2000/10/29 22:07:20	1.2
+++ loncom/Attic/lcuseradd	2000/10/29 22:20:43	1.3
@@ -18,8 +18,9 @@ use strict;
 # Standard input usage
 # First line is USERNAME
 # Second line is PASSWORD
+# Third line is PASSWORD
 
-# Command-line arguments [USERNAME] [PASSWORD]
+# Command-line arguments [USERNAME] [PASSWORD] [PASSWORD]
 # Yes, but be very careful here (don't pass shell commands)
 # and this is only supported to allow perl-system calls.
 
@@ -27,9 +28,15 @@ use strict;
 $ENV{'PATH'}=""; # Nullify path information.
 $ENV{'BASH_ENV'}=""; # Nullify shell environment information.
 
-# Add user entry to /etc/passwd and /etc/groups.
+# Add user entry to /etc/passwd and /etc/groups in such
+# a way that www is a member of the user-specific group
 
-# Set password with lcpasswd (which creates smbpasswd entry).
+# useradd [-c comment] [-d home_dir]
+#               [-e expire_date] [-f inactive_time]
+#               [-g initial_group] [-G group[,...]]
+#               [-m [-k skeleton_dir] | -M] [-p passwd]
+#               [-s shell] [-u uid [ -o]] [-n] [-r] login
+system('/usr/sbin/useradd','-c','LON-CAPA user','-G','www','junk');
 
-# www becomes member of this user group
+# Set password with lcpasswd (which creates smbpasswd entry).