Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	273 B	-rw-r--r--
add.cgi	2.09 KB	-rwxr-xr-x
cluster-useradmin-lib.pl	5.5 KB	-rwxr-xr-x
config	150 B	-rw-r--r--
config.info	558 B	-rw-r--r--
config.info.ca	644 B	-rw-r--r--
config.info.ca.UTF-8	655 B	-rw-r--r--
config.info.cz	71 B	-rw-r--r--
config.info.cz.UTF-8	79 B	-rw-r--r--
config.info.de	669 B	-rw-r--r--
config.info.de.UTF-8	669 B	-rw-r--r--
config.info.es	90 B	-rw-r--r--
config.info.es.UTF-8	90 B	-rw-r--r--
config.info.fr	75 B	-rw-r--r--
config.info.fr.UTF-8	77 B	-rw-r--r--
config.info.hr	0 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.ms_MY	131 B	-rw-r--r--
config.info.ms_MY.UTF-8	131 B	-rw-r--r--
config.info.nl	129 B	-rw-r--r--
config.info.nl.UTF-8	129 B	-rw-r--r--
config.info.no	141 B	-rw-r--r--
config.info.no.UTF-8	141 B	-rw-r--r--
config.info.pl	118 B	-rw-r--r--
config.info.pl.UTF-8	121 B	-rw-r--r--
create_group.cgi	3.32 KB	-rwxr-xr-x
create_user.cgi	9.72 KB	-rwxr-xr-x
delete_group.cgi	3.61 KB	-rwxr-xr-x
delete_host.cgi	257 B	-rwxr-xr-x
delete_user.cgi	5.22 KB	-rwxr-xr-x
edit_group.cgi	5.4 KB	-rwxr-xr-x
edit_host.cgi	2.78 KB	-rwxr-xr-x
edit_user.cgi	17.68 KB	-rwxr-xr-x
group_form.cgi	2.24 KB	-rwxr-xr-x
index.cgi	7.28 KB	-rwxr-xr-x
log_parser.pl	542 B	-rwxr-xr-x
module.info	387 B	-rw-r--r--
module.info.ca	259 B	-rw-r--r--
module.info.ca.UTF-8	277 B	-rw-r--r--
module.info.cz	38 B	-rw-r--r--
module.info.cz.UTF-8	46 B	-rw-r--r--
module.info.de	151 B	-rw-r--r--
module.info.de.UTF-8	163 B	-rw-r--r--
module.info.es	36 B	-rw-r--r--
module.info.es.UTF-8	42 B	-rw-r--r--
module.info.fr	44 B	-rw-r--r--
module.info.fr.UTF-8	50 B	-rw-r--r--
module.info.hu	29 B	-rw-r--r--
module.info.hu.UTF-8	37 B	-rw-r--r--
module.info.ms_MY	253 B	-rw-r--r--
module.info.ms_MY.UTF-8	265 B	-rw-r--r--
module.info.nl	40 B	-rw-r--r--
module.info.nl.UTF-8	46 B	-rw-r--r--
module.info.no	36 B	-rw-r--r--
module.info.no.UTF-8	42 B	-rw-r--r--
module.info.pl	230 B	-rw-r--r--
module.info.pl.UTF-8	252 B	-rw-r--r--
refresh.cgi	2.31 KB	-rwxr-xr-x
save_group.cgi	4.65 KB	-rwxr-xr-x
save_user.cgi	12.76 KB	-rwxr-xr-x
search_group.cgi	1.69 KB	-rwxr-xr-x
search_user.cgi	1.73 KB	-rwxr-xr-x
sync.cgi	4.92 KB	-rwxr-xr-x
sync_form.cgi	2.99 KB	-rwxr-xr-x
user_form.cgi	9.08 KB	-rwxr-xr-x

Code Editor : delete_group.cgi

#!/usr/bin/perl
# delete_group.cgi
# Delete a group, after asking for confirmation

require './cluster-useradmin-lib.pl';
&ReadParse();
&error_setup($text{'gdel_err'});
@hosts = &list_useradmin_hosts();
@servers = &list_servers();

foreach $h (@hosts) {
	local ($g) = grep { $_->{'group'} eq $in{'group'} } @{$h->{'groups'}};
	if ($g) {
		%group = %$g;
		last;
		}
	}
%group || &error($text{'gdel_ealready'});

# Setup error handler for down hosts
sub del_error
{
$del_error_msg = join("", @_);
}
&remote_error_setup(\&del_error);

$| = 1;
&ui_print_header(undef, $text{'gdel_title'}, "");
if ($in{'confirmed'}) {
	# Do the deletion on all hosts
	foreach $host (@hosts) {
		$del_error_msg = undef;
		($serv) = grep { $_->{'id'} == $host->{'id'} } @servers;
		($group) = grep { $_->{'group'} eq $in{'group'} }
				     @{$host->{'groups'}};
		next if (!$group);
		print "<b>",&text('gdel_on', $serv->{'desc'} ? $serv->{'desc'} :
					     $serv->{'host'}),"</b><p>\n";
		print "<ul>\n";
		&remote_foreign_require($serv->{'host'},
					"useradmin", "user-lib.pl");
		if ($del_error_msg) {
			# Host is down ..
			print &text('gdel_failed', $del_error_msg),"<p>\n";
			print "</ul>\n";
			next;
			}
		local @glist = &remote_foreign_call($serv->{'host'},
					"useradmin", "list_groups");
		($group) = grep { $_->{'group'} eq $in{'group'} } @glist;
		if (!$group) {
			# Already deleted?
			print "$text{'gdel_gone'}<p>\n";
			print "</ul>\n";
			next;
			}

# Delete from other modules
		if ($in{'others'}) {
			if (&supports_gothers($serv)) {
				# Delete in other modules on the server
				print "$text{'gdel_other'}<br>\n";
				&remote_foreign_call($serv->{'host'},
					"useradmin", "other_modules",
					"useradmin_delete_group", $group);
				print "$text{'gdel_done'}<p>\n";
				}
			else {
				# Group syncing not supported
				print "$text{'gsave_nosync'}<p>\n";
				}
			}

# Run the pre-change command
		&remote_eval($serv->{'host'}, "useradmin", <<EOF
\$ENV{'USERADMIN_GROUP'} = '$group->{'group'}';
\$ENV{'USERADMIN_ACTION'} = 'DELETE_GROUP';
EOF
		);
		$merr = &remote_foreign_call($serv->{'host'}, "useradmin",
					     "making_changes");
		if (defined($merr)) {
			print &text('usave_emaking', "<tt>$merr</tt>"),"<p>\n";
			print "</ul>\n";
			next;
			}

# Delete the group
		print "$text{'gdel_group'}<br>\n";
		&remote_foreign_call($serv->{'host'}, "useradmin",
				     "delete_group", $group);
		print "$text{'gdel_done'}<p>\n";

# Run the post-change command
		&remote_foreign_call($serv->{'host'}, "useradmin",
				     "made_changes");

# Update in local list
		@glist = grep { $_ ne $group } @glist;
		$host->{'groups'} = \@glist;
		&save_useradmin_host($host);
		print "</ul>\n";
		}
	&webmin_log("delete", "group", $group->{'group'}, $group);

&ui_print_footer("", $text{'index_return'});
	}
else {
	# Check if this is anyone's primary group
	foreach $h (@hosts) {
		foreach $u (@{$h->{'users'}}) {
			if ($u->{'gid'} == $group{'gid'}) {
				$puser = $u;
				last;
				}
			}
		}
	if ($puser) {
		print "<b>",&text('gdel_eprimary', $puser->{'user'}),
		      "</b><p>\n";
		&ui_print_footer("", $text{'index_return'});
		exit;
		}

# Ask if the user is sure
	print "<form action=delete_group.cgi>\n";
	print "<input type=hidden name=group value=\"$group{'group'}\">\n";
	print "<input type=hidden name=confirmed value=1>\n";

print "<center><b>",&text('gdel_sure',
				   $group{'group'}),"</b>\n";
	print "<input type=submit value=\"$text{'gdel_del'}\">\n";
	print "<br><input type=checkbox name=others value=1 checked> ",
	      "$text{'gdel_dothers'}<br>\n";
	print "</center><p>\n";
	print "</form>\n";
	&ui_print_footer("", $text{'index_return'});
	}

${this.title}

Code Editor : delete_group.cgi