Gecko [ thearyasamaj.org ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	6.18 KB	-rw-r--r--
acl_security.pl	7.55 KB	-rwxr-xr-x
batch_exec.cgi	15.72 KB	-rwxr-xr-x
batch_form.cgi	2.49 KB	-rwxr-xr-x
cgi_args.pl	501 B	-rwxr-xr-x
config	388 B	-rw-r--r--
config-ALL-linux	416 B	-rw-r--r--
config-coherent-linux	385 B	-rw-r--r--
config-debian-linux	406 B	-rw-r--r--
config-debian-linux-3.1	395 B	-rw-r--r--
config-debian-linux-4.0-ALL	388 B	-rw-r--r--
config-debian-squirrelmail-lin...	560 B	-rw-r--r--
config-macos	466 B	-rw-r--r--
config-mandrake-linux	385 B	-rw-r--r--
config-openSUSE-Linux-15.0-ALL	394 B	-rw-r--r--
config-pardus-linux	397 B	-rw-r--r--
config-redhat-linux	385 B	-rw-r--r--
config-sol-linux	385 B	-rw-r--r--
config-suse-linux	394 B	-rw-r--r--
config-syno-linux	452 B	-rw-r--r--
config-trustix-linux	394 B	-rw-r--r--
config-united-linux	394 B	-rw-r--r--
config.info	5.65 KB	-rw-r--r--
config.info.ca	6 KB	-rw-r--r--
config.info.de	6.47 KB	-rw-r--r--
config.info.es	4.93 KB	-rw-r--r--
config.info.fr	0 B	-rw-r--r--
config.info.nl	5.99 KB	-rw-r--r--
config.info.no	5.75 KB	-rw-r--r--
config.info.pt_BR	6.06 KB	-rw-r--r--
cpan_modules.pl	85 B	-rwxr-xr-x
defaultacl	318 B	-rw-r--r--
edit_group.cgi	4.17 KB	-rwxr-xr-x
edit_user.cgi	14.83 KB	-rwxr-xr-x
index.cgi	7.52 KB	-rwxr-xr-x
install_check.pl	612 B	-rwxr-xr-x
ldap-useradmin-lib.pl	33.47 KB	-rwxr-xr-x
log_parser.pl	1.55 KB	-rwxr-xr-x
mass_delete_group.cgi	2.04 KB	-rwxr-xr-x
mass_delete_user.cgi	7.17 KB	-rwxr-xr-x
module.info	261 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	172 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	234 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	320 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	270 B	-rw-r--r--
module.info.ca	169 B	-rw-r--r--
module.info.cs	35 B	-rw-r--r--
module.info.cs.auto	126 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	155 B	-rw-r--r--
module.info.de	174 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	347 B	-rw-r--r--
module.info.es	31 B	-rw-r--r--
module.info.es.auto	142 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	186 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	284 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	185 B	-rw-r--r--
module.info.fr	0 B	-rw-r--r--
module.info.fr.auto	190 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	194 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	183 B	-rw-r--r--
module.info.hu	0 B	-rw-r--r--
module.info.hu.auto	193 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	157 B	-rw-r--r--
module.info.ja	0 B	-rw-r--r--
module.info.ja.auto	205 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	174 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	184 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	176 B	-rw-r--r--
module.info.ms	172 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	168 B	-rw-r--r--
module.info.nl	35 B	-rw-r--r--
module.info.nl.auto	142 B	-rw-r--r--
module.info.no	32 B	-rw-r--r--
module.info.no.auto	126 B	-rw-r--r--
module.info.pl	0 B	-rw-r--r--
module.info.pl.auto	186 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	163 B	-rw-r--r--
module.info.pt_BR	38 B	-rw-r--r--
module.info.pt_BR.auto	134 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	184 B	-rw-r--r--
module.info.ru	0 B	-rw-r--r--
module.info.ru.auto	279 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	192 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	185 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	166 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	303 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	194 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	289 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	295 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	206 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	130 B	-rw-r--r--
module.info.zh_TW	0 B	-rw-r--r--
module.info.zh_TW.auto	136 B	-rw-r--r--
postinstall.pl	224 B	-rwxr-xr-x
prefs.info	50 B	-rw-r--r--
raw.cgi	967 B	-rwxr-xr-x
save_group.cgi	9.38 KB	-rwxr-xr-x
save_user.cgi	24.6 KB	-rwxr-xr-x
search_group.cgi	1.31 KB	-rwxr-xr-x
search_user.cgi	1.46 KB	-rwxr-xr-x

Code Editor : mass_delete_user.cgi

#!/usr/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 "<ul>\n";

# Run the before command
			local @secs;
			foreach $g (&list_groups()) {
				@mems = split(/,/, $g->{'members'});
				if (&indexof($user->{'user'}, @mems) >= 0) {
					push(@secs, $g->{'gid'});
					}
				}
			&set_user_envs($user, 'MODIFY_USER', undef, \@secs);
			$merr = &making_changes();
			&error(&text('usave_emaking', "<tt>$merr</tt>"))
				if (defined($merr));

# Do it
			&lock_user_files();
			print "$text{'dmass_pass'} \n";
			if ($user->{'pass'} !~ /^$useradmin::disable_string/) {
				$user->{'pass'} =
				 $useradmin::disable_string.$user->{'pass'};
				&modify_user($user, $user);
				print "$text{'udel_done'}\n";
				}
			else {
				print "$text{'dmass_already'}\n";
				}
			&unlock_user_files();

&made_changes();
			print "</ul>\n";
			}

&webmin_log("disable", "users", scalar(@dlist),
			    { 'user' => [ map { $_->{'user'} } @dlist ] });

&ui_print_footer("", $text{'index_return'});
		}
	else {
		# Ask if the user is sure
		print &ui_confirmation_form(
			"mass_delete_user.cgi",
			&text('dmass_sure', scalar(@dlist)),
			[ [ "confirmed", 1 ],
			  [ "disable", 1 ],
			  map { [ "d", $_->{'user'} ] } @dlist ],
			[ [ undef, $text{'dmass_dis'} ] ],
			);

&ui_print_footer("", $text{'index_return'});
		}
	}
elsif ($in{'enable'}) {
	# Enabling a bunch of users
	&ui_print_unbuffered_header(undef, $text{'emass_title'}, "");

foreach $user (@dlist) {
		# Show username
		print "",&text('emass_doing', $user->{'user'})," \n";
		print "<ul>\n";

# Run the before command
		local @secs;
		foreach $g (&list_groups()) {
			@mems = split(/,/, $g->{'members'});
			if (&indexof($user->{'user'}, @mems) >= 0) {
				push(@secs, $g->{'gid'});
				}
			}
		&set_user_envs($user, 'MODIFY_USER', undef, \@secs);
		$merr = &making_changes();
		&error(&text('usave_emaking', "<tt>$merr</tt>"))
			if (defined($merr));

# Do it
		&lock_user_files();
		print "$text{'emass_pass'} \n";
		if ($user->{'pass'} =~ s/^$useradmin::disable_string//) {
			&modify_user($user, $user);
			print "$text{'udel_done'}\n";
			}
		else {
			print "$text{'emass_already'}\n";
			}
		&unlock_user_files();

&made_changes();
		print "</ul>\n";
		}

&webmin_log("enable", "users", scalar(@dlist),
		    { 'user' => [ map { $_->{'user'} } @dlist ] });

&ui_print_footer("", $text{'index_return'});
	}
else {
	# Deleting a bunch of users
	&ui_print_unbuffered_header(undef, $text{'umass_title'}, "");

if ($in{'confirmed'}) {
		foreach $user (@dlist) {
			# Show username
			print "",&text('umass_doing', $user->{'user'})," \n";
			print "<ul>\n";

# Run the before command
			local @secs;
			foreach $g (&list_groups()) {
				@mems = split(/,/, $g->{'members'});
				if (&indexof($user->{'user'}, @mems) >= 0) {
					push(@secs, $g->{'gid'});
					}
				}
			&set_user_envs($user, 'DELETE_USER', undef, \@secs);
			$merr = &making_changes();
			&error(&text('usave_emaking', "<tt>$merr</tt>"))
				if (defined($merr));

# Go ahead and do it!
			if ($mconfig{'default_other'}) {
				print "$text{'udel_other'} \n";
				local $error_must_die = 1;
				eval { &other_modules("useradmin_delete_user",$user); };
				if ($@) {
					print &text('udel_failed', $@),"\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 "</ul>\n";
			}

&webmin_log("delete", "users", scalar(@dlist),
			    { 'user' => [ map { $_->{'user'} } @dlist ] });

&ui_print_footer("", $text{'index_return'});
		}
	else {
		# Sum up home directories
		foreach $user (@dlist) {
			if ($user->{'home'} ne "/" && -d $user->{'home'}) {
				$size += &disk_usage_kb($user->{'home'});
				}
			}

# Ask if the user is sure
		print &ui_confirmation_form(
			"mass_delete_user.cgi",
			&text('umass_sure', scalar(@dlist),
			 &nice_size($size*1024)),
			[ [ "confirmed", 1 ],
			 map { [ "d", $_->{'user'} ] } @dlist ],
			[ [ undef, $text{'umass_del1'} ],
			 [ "delhome", $text{'umass_del2'} ] ],
			&ui_checkbox("others", 1, $text{'udel_dothers'},
 	 $mconfig{'default_other'}),
			$delete_sys && $delete_sys->{'user'} eq 'root' ?
				"$text{'udel_root'}"
				: ""
			);

&ui_print_footer("", $text{'index_return'});
		}
	}

${this.title}

Code Editor : mass_delete_user.cgi