#!/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
# 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.
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>