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

use strict;

# This script is a setuid script that should
# be run by user 'www'.  It DOES NOT delete directories.
# All it does is remove a user's entries from
# /etc/passwd, /etc/groups, and /etc/smbpasswd.



# Standard input usage
# First line is USERNAME

# Command-line arguments [USERNAME]
# 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.