Return to lcuserdel CVS log

Up to [LON-CAPA] / loncom

Annotation of loncom/lcuserdel, revision 1.1

1.1     ! harris41    1: #!/usr/bin/perl
        !             2: #
        !             3: # lcuserdel
        !             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 DOES NOT delete directories.
        !            12: # All it does is remove a user's entries from
        !            13: # /etc/passwd, /etc/groups, and /etc/smbpasswd.
        !            14: 
        !            15: 
        !            16: 
        !            17: # Standard input usage
        !            18: # First line is USERNAME
        !            19: 
        !            20: # Command-line arguments [USERNAME]
        !            21: # Yes, but be very careful here (don't pass shell commands)
        !            22: # and this is only supported to allow perl-system calls.
        !            23: 
        !            24: # Security
        !            25: $ENV{'PATH'}=""; # Nullify path information.
        !            26: $ENV{'BASH_ENV'}=""; # Nullify shell environment information.
        !            27: