Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	319 B	-rw-r--r--
add.cgi	2.04 KB	-rwxr-xr-x
cluster-usermin-lib.pl	7.14 KB	-rwxr-xr-x
config	25 B	-rw-r--r--
config.info	108 B	-rw-r--r--
config.info.ca	131 B	-rw-r--r--
config.info.ca.UTF-8	133 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	61 B	-rw-r--r--
config.info.es.UTF-8	63 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	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--
delete_host.cgi	251 B	-rwxr-xr-x
delete_mod.cgi	3.89 KB	-rwxr-xr-x
edit_acl.cgi	4.2 KB	-rwxr-xr-x
edit_host.cgi	3.37 KB	-rwxr-xr-x
edit_mod.cgi	5.42 KB	-rwxr-xr-x
index.cgi	6.02 KB	-rwxr-xr-x
install.cgi	7.49 KB	-rwxr-xr-x
module.info	211 B	-rw-r--r--
module.info.ca	126 B	-rw-r--r--
module.info.ca.UTF-8	143 B	-rw-r--r--
module.info.cz	34 B	-rw-r--r--
module.info.cz.UTF-8	40 B	-rw-r--r--
module.info.de	125 B	-rw-r--r--
module.info.de.UTF-8	137 B	-rw-r--r--
module.info.es	41 B	-rw-r--r--
module.info.es.UTF-8	48 B	-rw-r--r--
module.info.fr	36 B	-rw-r--r--
module.info.fr.UTF-8	42 B	-rw-r--r--
module.info.hu	34 B	-rw-r--r--
module.info.hu.UTF-8	40 B	-rw-r--r--
module.info.ms_MY	118 B	-rw-r--r--
module.info.ms_MY.UTF-8	130 B	-rw-r--r--
module.info.nl	32 B	-rw-r--r--
module.info.nl.UTF-8	38 B	-rw-r--r--
module.info.no	33 B	-rw-r--r--
module.info.no.UTF-8	39 B	-rw-r--r--
module.info.pl	123 B	-rw-r--r--
module.info.pl.UTF-8	137 B	-rw-r--r--
refresh.cgi	3.36 KB	-rwxr-xr-x
save_acl.cgi	3.28 KB	-rwxr-xr-x
sync.cgi	3.94 KB	-rwxr-xr-x
sync_form.cgi	1.78 KB	-rwxr-xr-x
update.cgi	4.1 KB	-rwxr-xr-x
upgrade.cgi	12.83 KB	-rwxr-xr-x

Code Editor : save_acl.cgi

#!/usr/bin/perl
# save_acl.cgi
# Save the ACL for a module for a user or group

require './cluster-usermin-lib.pl';
&ReadParse();
$who = $in{'_acl_user'} ? $in{'_acl_user'} : $in{'_acl_group'};

# Validate and parse inputs
&error_setup($text{'acl_err'});
$maccess{'noconfig'} = $in{'noconfig'};
if (-r "../$in{'_acl_mod'}/acl_security.pl") {
	&foreign_require($in{'_acl_mod'}, "acl_security.pl");
	&foreign_call($in{'_acl_mod'}, "acl_security_save", \%maccess, \%in);
	}

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

# Write out on all hosts, or just one host
&ui_print_header(undef, $text{'acl_title'}, "");
@allhosts = &list_webmin_hosts();
@servers = &list_servers();
if ($in{'all'}) {
	# Doing on all hosts that the user has the module on
	foreach $h (@allhosts) {
		local $w;
		if ($in{'_acl_user'}) {
			($w) = grep { $_->{'name'} eq $in{'_acl_user'} }
				 @{$h->{'users'}};
			}
		else {
			($w) = grep { $_->{'name'} eq $in{'_acl_group'} }
				 @{$h->{'groups'}};
			}
		next if (!$w);
		local %ingroup;
		foreach $g (@{$h->{'groups'}}) {
			map { $ingroup{$_}++ } @{$g->{'members'}};
			}
		local @m = $ingroup{$w->{'name'}} ? @{$w->{'ownmods'}}
						 : @{$w->{'modules'}};
		push(@hosts, $h) if (&indexof($in{'_acl_mod'}, @m) >= 0 ||
				 !$in{'_acl_mod'});
		}
	print "",&text('acl_doing', $who),"\n";
	}
else {
	# Doing on just one host
	@hosts = grep { $_->{'id'} == $in{'_acl_host'} } @allhosts;
	local ($s) = grep { $_->{'id'} == $hosts[0]->{'id'} } @servers;
	print "",&text('acl_doing2', $who, &server_name($s)),"\n";
	}
$p = 0;
foreach $h (@hosts) {
	local ($s) = grep { $_->{'id'} == $h->{'id'} } @servers;
	local ($rh = "READ$p", $wh = "WRITE$p");
	pipe($rh, $wh);
	if (!fork()) {
		close($rh);
		&remote_foreign_require($s->{'host'}, "acl", "acl-lib.pl");
		if ($user_error_msg) {
			# Host is down
			print $wh &serialise_variable([ 0, $user_error_msg ]);
			exit;
			}

# Save the .acl file
		local $cd = &remote_eval($s->{'host'}, "acl", '$config_directory');
		&remote_foreign_call($s->{'host'}, "acl", "write_file",
			"$cd/$in{'_acl_mod'}/$who.acl", \%maccess);

# Recursively update the ACL for all member users and groups
		if ($in{'_acl_group'}) {
			local ($group) = grep { $_->{'name'} eq $in{'_acl_group'} }
					      @{$h->{'groups'}};
			&remote_foreign_call($s->{'host'}, "acl", "set_acl_files",
				$h->{'users'}, $h->{'groups'}, $in{'_acl_mod'},
				$group->{'members'}, \%maccess);
			}

print $wh &serialise_variable([ 1 ]);
		exit;
		}
	close($wh);
	$p++;
	}

# Read back the results
$p = 0;
foreach $h (@hosts) {
	local ($s) = grep { $_->{'id'} == $h->{'id'} } @servers;
	local $d = &server_name($s);
	local $rh = "READ$p";
	local $line = <$rh>;
	local $rv = &unserialise_variable($line);
	close($rh);

if ($rv && $rv->[0] == 1) {
		# It worked
		print &text('acl_success', $d)," \n";
		}
	else {
		# Something went wrong
		print &text('acl_failed', $d, $rv->[1])," \n";
		}
	$p++;
	}

print "$text{'acl_done'}\n";

&remote_finished();
&ui_print_footer("", $text{'index_return'},
	$in{'_acl_user'} ? ( "edit_user.cgi?user=$in{'_acl_user'}&host=$in{'_acl_host'}", $text{'user_return'} ) : ( "edit_group.cgi?group=$in{'_acl_group'}&host=$in{'_acl_host'}", $text{'group_return'} ));

${this.title}

Code Editor : save_acl.cgi