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:
17: # Standard input usage
18: # First line is USERNAME
19: # Second line is PASSWORD
20:
21: # Command-line arguments [USERNAME] [PASSWORD]
22: # Yes, but be very careful here (don't pass shell commands)
23: # and this is only supported to allow perl-system calls.
24:
25: # Security
26: $ENV{'PATH'}=""; # Nullify path information.
27: $ENV{'BASH_ENV'}=""; # Nullify shell environment information.
28:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>