Return to lcuseradd CVS log

Up to [LON-CAPA] / loncom

adjusting comments and shell command execution order in lcuserdel.  lcuseradd
is beginning to take form, but is still buggy...

    1: #!/usr/bin/perl
    2: #
    3: # lcuseradd
    4: #
    5: # Scott Harrison
    6: # October 27, 2000
    7: 
    8: use strict;
    9: 
   10: # This script is a setuid script that should
   11: # be run by user 'www'.  It creates a /home/USERNAME directory
   12: # as well as a /home/USERNAME/public_html directory.
   13: # It adds user entries to
   14: # /etc/passwd and /etc/groups.
   15: # Passwords are set with lcpasswd.
   16: # www becomes a member of this user group.
   17: 
   18: # Standard input usage
   19: # First line is USERNAME
   20: # Second line is PASSWORD
   21: 
   22: # Command-line arguments [USERNAME] [PASSWORD]
   23: # Yes, but be very careful here (don't pass shell commands)
   24: # and this is only supported to allow perl-system calls.
   25: 
   26: # Security
   27: $ENV{'PATH'}=""; # Nullify path information.
   28: $ENV{'BASH_ENV'}=""; # Nullify shell environment information.
   29: 
   30: # Add user entry to /etc/passwd and /etc/groups.
   31: 
   32: # Set password with lcpasswd (which creates smbpasswd entry).
   33: 
   34: # www becomes member of this user group
   35: