3 # This code was developped by IDEALX (http://IDEALX.org/) and
4 # contributors (their names can be found in the CONTRIBUTORS file).
6 # Copyright (C) 2001-2002 IDEALX
8 # This program is free software; you can redistribute it and/or
9 # modify it under the terms of the GNU General Public License
10 # as published by the Free Software Foundation; either version 2
11 # of the License, or (at your option) any later version.
13 # This program is distributed in the hope that it will be useful,
14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 # GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License
19 # along with this program; if not, write to the Free Software
20 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
23 # Purpose of smbldap-userdel : user (posix,shadow,samba) deletion
27 use FindBin
qw($RealBin);
37 my $ok = getopts('r?', \%Options);
39 if ( (!$ok) || (@ARGV < 1) || ($Options{'?'}) ) {
40 print "Usage: $0 [-r?] username\n";
41 print " -r remove home directory\n";
45 # Read only first @ARGV
49 # user must not exist in LDAP
50 if (!defined($dn=get_user_dn($user))) {
51 print "$0: user $user does not exist\n";
56 print "You must be root to delete an user\n";
61 if (defined($Options{'r'})) {
62 $homedir=get_homedir($user);
65 # remove user from groups
66 my $groups = find_groups_of $user;
67 my @grplines = split(/\n/,$groups);
70 foreach $grp (@grplines) {
72 if ( $grp =~ /dn: cn=([^,]+),/) {
77 group_remove_member($gname, $user);
84 # delete dir -- be sure that homeDir is not a strange value
85 if (defined($Options{'r'})) {
86 if ($homedir !~ /^\/dev/ and $homedir !~ /^\/$/) {
87 system "rm -rf $homedir";
91 my $nscd_status = system "/etc/init.d/nscd status >/dev/null 2>&1";
93 if ($nscd_status == 0) {
94 system "/etc/init.d/nscd restart > /dev/null 2>&1";
99 ############################################################
103 smbldap-userdel.pl - Delete a user account and related files
107 smbldap-userdel.pl [-r] login
111 The smbldap-userdel.pl command modifies the system
112 account files, deleting all entries that refer to login.
113 The named user must exist.
115 -r Files in the user's home directory will be removed along with
116 the home directory itself. Files located in other file
117 systems will have to be searched for and deleted manually.