#!/usr/bin/perl
#
# lcuseradd
#
# Scott Harrison
# October 27, 2000

use strict;

# This script is a setuid script that should
# be run by user 'www'.  It creates a /home/USERNAME directory
# as well as a /home/USERNAME/public_html directory.
# It adds user entries to
# /etc/passwd and /etc/groups.
# Passwords are set with lcpasswd.
# www becomes a member of this user group.

# Standard input usage
# First line is USERNAME
# Second line is PASSWORD

# Command-line arguments [USERNAME] [PASSWORD]
# Yes, but be very careful here (don't pass shell commands)
# and this is only supported to allow perl-system calls.

# Security
$ENV{'PATH'}=""; # Nullify path information.
$ENV{'BASH_ENV'}=""; # Nullify shell environment information.

# Add user entry to /etc/passwd and /etc/groups.

# Set password with lcpasswd (which creates smbpasswd entry).

# www becomes member of this user group