Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	1.05 KB	-rw-r--r--
add.cgi	2.48 KB	-rwxr-xr-x
cluster-webmin-lib.pl	7.29 KB	-rwxr-xr-x
config	25 B	-rw-r--r--
config.info	108 B	-rw-r--r--
config.info.ca	135 B	-rw-r--r--
config.info.ca.UTF-8	137 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	129 B	-rw-r--r--
config.info.de.UTF-8	129 B	-rw-r--r--
config.info.es	87 B	-rw-r--r--
config.info.es.UTF-8	87 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	131 B	-rw-r--r--
config.info.nl.UTF-8	131 B	-rw-r--r--
config.info.no	131 B	-rw-r--r--
config.info.no.UTF-8	131 B	-rw-r--r--
config.info.pl	119 B	-rw-r--r--
config.info.pl.UTF-8	122 B	-rw-r--r--
create_group.cgi	3.11 KB	-rwxr-xr-x
create_user.cgi	3.95 KB	-rwxr-xr-x
delete_group.cgi	3.22 KB	-rwxr-xr-x
delete_host.cgi	248 B	-rwxr-xr-x
delete_mod.cgi	4.17 KB	-rwxr-xr-x
delete_user.cgi	2.15 KB	-rwxr-xr-x
edit_acl.cgi	3.94 KB	-rwxr-xr-x
edit_config.cgi	2.13 KB	-rwxr-xr-x
edit_group.cgi	6.35 KB	-rwxr-xr-x
edit_host.cgi	4.46 KB	-rwxr-xr-x
edit_mod.cgi	7 KB	-rwxr-xr-x
edit_user.cgi	8.96 KB	-rwxr-xr-x
group_form.cgi	2.98 KB	-rwxr-xr-x
index.cgi	9.46 KB	-rwxr-xr-x
install.cgi	7.67 KB	-rwxr-xr-x
module.info	227 B	-rw-r--r--
module.info.ca	171 B	-rw-r--r--
module.info.ca.UTF-8	190 B	-rw-r--r--
module.info.cz	33 B	-rw-r--r--
module.info.cz.UTF-8	39 B	-rw-r--r--
module.info.de	160 B	-rw-r--r--
module.info.de.UTF-8	172 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	35 B	-rw-r--r--
module.info.fr.UTF-8	41 B	-rw-r--r--
module.info.hu	33 B	-rw-r--r--
module.info.hu.UTF-8	39 B	-rw-r--r--
module.info.ms_MY	157 B	-rw-r--r--
module.info.ms_MY.UTF-8	169 B	-rw-r--r--
module.info.nl	33 B	-rw-r--r--
module.info.nl.UTF-8	39 B	-rw-r--r--
module.info.no	32 B	-rw-r--r--
module.info.no.UTF-8	38 B	-rw-r--r--
module.info.pl	163 B	-rw-r--r--
module.info.pl.UTF-8	180 B	-rw-r--r--
refresh.cgi	4.08 KB	-rwxr-xr-x
save_acl.cgi	3.33 KB	-rwxr-xr-x
save_config.cgi	1.33 KB	-rwxr-xr-x
save_group.cgi	4.54 KB	-rwxr-xr-x
save_user.cgi	5.24 KB	-rwxr-xr-x
sync.cgi	4 KB	-rwxr-xr-x
sync_form.cgi	1.8 KB	-rwxr-xr-x
update.cgi	4.1 KB	-rwxr-xr-x
upgrade.cgi	15.25 KB	-rwxr-xr-x
user_form.cgi	4.52 KB	-rwxr-xr-x

Code Editor : sync.cgi

#!/usr/bin/perl
# sync.cgi
# Create missing users and groups on servers

require './cluster-webmin-lib.pl';
&ReadParse();
@hosts = &list_webmin_hosts();
@servers = &list_servers();
&ui_print_header(undef, $text{'sync_title'}, "");

# Work out which hosts
@phosts = &create_on_parse(undef, undef, undef, 1);

# Build lists of all users and groups
foreach $h (@hosts) {
	local ($serv) = grep { $_->{'id'} == $h->{'id'} } @servers;
	foreach $u (@{$h->{'users'}}) {
		if (!$doneuser{$u->{'name'}}++) {
			push(@ulist, $u);
			$u->{'source'} = $serv;
			}
		}
	foreach $g (@{$h->{'groups'}}) {
		if (!$donegroup{$g->{'name'}}++) {
			push(@glist, $g);
			$g->{'source'} = $serv;
			}
		}
	}

# Find users and groups to sync
if ($in{'users_mode'} == 1) {
	@usync = @ulist;
	}
elsif ($in{'users_mode'} == 2) {
	map { $usel{$_}++ } split(/\s+/, $in{'usel'});
	@usync = grep { $usel{$_->{'name'}} } @ulist;
	}
elsif ($in{'users_mode'} == 3) {
	map { $unot{$_}++ } split(/\s+/, $in{'unot'});
	@usync = grep { !$unot{$_->{'name'}} } @ulist;
	}

if ($in{'groups_mode'} == 1) {
	@gsync = @glist;
	}
elsif ($in{'groups_mode'} == 2) {
	map { $gsel{$_}++ } split(/\s+/, $in{'gsel'});
	@gsync = grep { $gsel{$_->{'name'}} } @glist;
	}
elsif ($in{'groups_mode'} == 3) {
	map { $gnot{$_}++ } split(/\s+/, $in{'gnot'});
	@gsync = grep { !$gnot{$_->{'name'}} } @glist;
	}

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

# Sync on chosen hosts
foreach $host (@phosts) {
	$add_error_msg = undef;
	local ($serv) = grep { $_->{'id'} == $host->{'id'} } @servers;
	print "",&text('sync_on', &server_name($serv)),"\n";
	print "<ul>\n";

# Find missing users and groups
	local (%usync, %gsync);
	map { $usync{$_->{'name'}}++ } @{$host->{'users'}};
	map { $gsync{$_->{'name'}}++ } @{$host->{'groups'}};
	local @uneed = grep { !$usync{$_->{'name'}} } @usync;
	local @gneed = grep { !$gsync{$_->{'name'}} } @gsync;
	if (@uneed || @gneed) {
		&remote_foreign_require($serv->{'host'},
					"acl", "acl-lib.pl");
		$done_require{$serv->{'host'}}++;
		if ($add_error_msg) {
			# Host is down!
			print "$add_error_msg\n";
			print "</ul>\n";
			next;
			}

# Create missing users
		foreach $u (@uneed) {
			# Create the user
			print &text('sync_ucreate', $u->{'name'})," \n";
			if (!$in{'test'}) {
				&remote_foreign_call($serv->{'host'},
					"acl", "create_user", $u);
				push(@{$host->{'users'}}, $u);
				}
			print "$text{'refresh_done'}\n";

# Copy .acl files
			print &text('sync_acl', $u->{'name'})," \n";
			&copy_acls_for($u, $serv, "user");
			print "$text{'refresh_done'}\n";
			}

# Create missing groups
		foreach $g (@gneed) {
			print &text('sync_gcreate', $g->{'group'})," \n";
			if (!$in{'test'}) {
				&remote_foreign_call($serv->{'host'},
					"acl", "create_group", $g);
				push(@{$host->{'groups'}}, $g);
				}
			print "$text{'refresh_done'}\n";

print &text('sync_acl', $g->{'name'})," \n";
			&copy_acls_for($g, $serv, "group");
			print "$text{'refresh_done'}\n";
			}

# Restart webmin
		print "$text{'sync_restart'} \n";
		if (!$in{'test'}) {
			&remote_foreign_call($serv->{'host'}, "acl",
					 "reload_miniserv");
			}
		print "$text{'refresh_done'}\n";

# Update in local list
		&save_webmin_host($host);
		}
	else {
		print "$text{'sync_insync'}\n";
		}
	print "</ul>\n";
	}

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

# copy_acls_for(&user|&group, &server)
# Copy all .acl files from the server on which a user or group does exist
# to the given server
sub copy_acls_for
{
local $source = $_[0]->{'source'};
&remote_foreign_require($source->{'host'}, "acl", "acl-lib.pl")
	if (!$done_require{$source->{'host'}}++);
local $suffix = $_[2] eq "user" ? "module_acl" : "group_module_acl";
foreach $m (@{$_[0]->{'modules'}}) {
	local %acl = &remote_foreign_call($source->{'host'}, "acl",
					  "get_".$suffix, $_[0]->{'name'},$m);
	if (%acl) {
		&remote_foreign_call($_[1]->{'host'}, "acl", "save_".$suffix,
				     \%acl, $_[0]->{'name'}, $m);
		}
	}
}

${this.title}

Code Editor : sync.cgi