#!/usr/local/bin/perl
# mass_delete_user.cgi
# Delete multiple users, after asking for confirmation
require './ldap-useradmin-lib.pl';
&ReadParse();
$ldap = &ldap_connect();
%ulist = map { $_->{'user'}, $_ } &list_users();
&error_setup($text{'umass_err'});
foreach $name (split(/\0/, $in{'d'})) {
$user = $ulist{$name};
if ($user) {
&can_edit_user($user) ||
&error(&text('umass_euser', $name));
push(@dlist, $user);
$delete_sys = $user if ($user->{'uid'} < 10 &&
(!$delete_sys || $user->{'uid'} < $delete_sys->{'uid'}));
}
}
@dlist || &error($text{'umass_enone'});
if ($in{'disable'}) {
# Disabling a bunch of users
&ui_print_unbuffered_header(undef, $text{'dmass_title'}, "");
if ($in{'confirmed'}) {
foreach $user (@dlist) {
# Show username
print "",&text('dmass_doing', $user->{'user'}),"
\n";
print "
\n"; } else { print "$text{'dmass_already'}
\n"; } &unlock_user_files(); &made_changes(); print "
\n"; } else { print "$text{'emass_already'}
\n"; } &unlock_user_files(); &made_changes(); print "
\n"; } else { print "$text{'udel_done'}
\n";
}
}
# Delete from the LDAP db
&lock_user_files();
print "$text{'udel_pass'}
\n";
&delete_user($user);
print "$text{'udel_done'}
\n";
# Delete from groups
print "$text{'udel_groups'}
\n";
foreach $g (&list_groups()) {
@mems = split(/,/, $g->{'members'});
$idx = &indexof($user->{'user'}, @mems);
if ($idx >= 0) {
splice(@mems, $idx, 1);
%newg = %$g;
$newg{'members'} = join(',', @mems);
&modify_group($g, \%newg);
}
$mygroup = $g if ($g->{'group'} eq $user->{'user'});
}
print "$text{'udel_done'}
\n";
# Delete private group
if ($mygroup && !$mygroup->{'members'}) {
local $another;
foreach $ou (&list_users()) {
$another = $ou if ($ou->{'gid'} == $mygroup->{'gid'});
}
if (!$another) {
print "$text{'udel_ugroup'}
\n";
&delete_group($mygroup);
print "$text{'udel_done'}
\n";
}
}
&unlock_user_files();
# Delete his addressbook entry
if ($config{'addressbook'}) {
print "$text{'udel_book'}
\n";
$err = &delete_ldap_subtree($ldap, "ou=$user->{'user'}, $config{'addressbook'}");
if ($err) {
print &text('udel_failed', $err),"
\n"; } else { print "$text{'udel_done'}
\n";
}
}
# Delete home directory
if ($in{'delhome'} && $user->{'home'} !~ /^\/+$/) {
print "$text{'udel_home'}
\n";
if ($config{'delete_only'}) {
&lock_file($user->{'home'});
&system_logged("find \"$user->{'home'}\" ! -type d -user $user->{'uid'} | xargs rm -f >/dev/null 2>&1");
&system_logged("find \"$user->{'home'}\" -type d -user $user->{'uid'} | xargs rmdir >/dev/null 2>&1");
rmdir($user->{'home'});
&unlock_file($user->{'home'});
}
else {
&system_logged("rm -rf \"$user->{'home'}\" >/dev/null 2>&1");
}
print "$text{'udel_done'}
\n";
# Delete his IMAP mailbox only if home gets
# deleted, too
if ($config{'imap_host'}) {
print "$text{'udel_imap'}
\n";
$imap = &imap_connect();
$rv = $imap->delete("user".
$config{'imap_foldersep'}.
$user->{'user'});
$imap->logout();
print "$text{'udel_done'}
\n"; } } &made_changes(); print "