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 : edit_acl.cgi

#!/usr/bin/perl
# edit_acl.cgi
# Display a form for editing the ACL for some module for some user or group

require './cluster-usermin-lib.pl';
&ReadParse();

# Get hosts and module details
@hosts = &list_webmin_hosts();
if ($in{'whohost'} =~ /^(\d+),(\S*)$/) {
	# Coming from the module page, so know which host to look at
	($host) = grep { $_->{'id'} == $1 } @hosts;
	local ($u) = grep { $_->{'name'} eq $2 } @{$host->{'users'}};
	local ($g) = grep { $_->{'name'} eq $2 } @{$host->{'groups'}};
	$user = $u if ($u);
	$group = $g if ($g);
	($mod) = grep { $_->{'dir'} eq $in{'mod'} } @{$host->{'modules'}};
	}
elsif ($in{'modhost'} =~ /^(\d+),(\S*)$/) {
	# Coming from the user or group page, so know which host to look at
	($host) = grep { $_->{'id'} == $1 } @hosts;
	($mod) = grep { $_->{'dir'} eq $2 } @{$host->{'modules'}};
	if ($in{'user'}) {
		($user) = grep { $_->{'name'} eq $in{'user'} } @{$host->{'users'}};
		}
	else {
		($group) = grep { $_->{'name'} eq $in{'group'} } @{$host->{'groups'}};
		}
	}
else {
	# Find a host that has the user and module
	foreach $h (sort { $a->{'id'} <=> $b->{'id'} } @hosts) {
		local ($m) = grep { $_->{'dir'} eq $in{'mod'} } @{$h->{'modules'}};
		if ($in{'user'}) {
			local ($u) = grep { $_->{'name'} eq $in{'user'} }
					  @{$h->{'users'}};
			if ($u && (&indexof($in{'mod'}, @{$u->{'modules'}}) >= 0 ||
				   !$in{'mod'})) {
				$user = $u;
				$host = $h;
				$mod = $m;
				last;
				}
			}
		else {
			local ($g) = grep { $_->{'name'} eq $in{'group'} }
					  @{$h->{'groups'}};
			if ($g && (&indexof($in{'mod'}, @{$g->{'modules'}}) >= 0 ||
				   !$in{'mod'})) {
				$group = $g;
				$host = $h;
				$mod = $m;
				last;
				}
			}
		}
	$host || &error(&text('acl_efound',
			$in{'user'} ? $in{'user'} : $in{'group'}, $in{'mod'}));
	}
$who = $user ? $user->{'name'} : $group->{'name'};
@servers = &list_servers();
($serv) = grep { $_->{'id'} == $host->{'id'} } @servers;
$d = &server_name($serv);

$ga = "_ga" if (!$mod->{'dir'});
$desc = &text($user ? 'acl_title2'.$ga : 'acl_title3'.$ga,
		"<b>$who</b>", "<b>$mod->{'desc'}</b>", "<b>$d</b>");
&ui_print_header($desc, $text{'acl_title'}, "");

# Get the host's ACL options
&remote_foreign_require($serv->{'host'}, "acl", "acl-lib.pl");
$aref = &remote_eval($serv->{'host'}, "acl", "\%rv = &get_module_acl('$who', '$mod->{'dir'}'); \\%rv");
%access = %$aref;

# Display the editor form from this host
print "<form method=post action=save_acl.cgi>\n";
print "<input type=hidden name=_acl_mod value='$mod->{'dir'}'>\n";
print "<input type=hidden name=_acl_host value='$host->{'id'}'>\n";
if ($in{'group'}) {
	print "<input type=hidden name=_acl_group value='$group->{'name'}'>\n";
	}
else {
	print "<input type=hidden name=_acl_user value='$user->{'name'}'>\n";
	}
print "<table border width=100%>\n";
print "<tr $tb> <td><b>",
	$mod->{'dir'} ? &text('acl_options', $mod->{'desc'}, &server_name($serv))
		      : &text('acl_optionsg', &server_name($serv)),
      "</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

if ($mod->{'dir'}) {
	print "<tr> <td><b>$text{'acl_config'}</b></td> <td>\n";
	printf "<input type=radio name=noconfig value=0 %s> $text{'yes'}\n",
		$access{'noconfig'} ? "" : "checked";
	printf "<input type=radio name=noconfig value=1 %s> $text{'no'}</td>\n",
		$access{'noconfig'} ? "checked" : "";
	print "<td width=50% colspan=2></td> </tr>\n";
	}

$mdir = &module_root_directory($mod->{'dir'});
if (!&foreign_exists($mod->{'dir'})) {
	# This server doesn't have the module .. use text editor
	print "<tr> <td colspan=4><hr></td> </tr>\n" if ($mod->{'dir'});
	print "<tr> <td colspan=4><b>$text{'acl_raw'}</b><br>\n";
	print "<textarea rows=10 cols=70 name=_acl_raw>\n";
	foreach $k (sort { $a cmp $b } keys %access) {
		print "$k=$access{$k}\n";
		}
	print "</textarea></td> </tr>\n";
	}
elsif (-r "$mdir/acl_security.pl") {
	print "<tr> <td colspan=4><hr></td> </tr>\n" if ($mod->{'dir'});
	&foreign_require($mod->{'dir'}, "acl_security.pl");
	&foreign_call($mod->{'dir'}, "acl_security_form", \%access);
	}

print "</table></td></tr></table>\n";
print "<input type=submit name=all value='",&text('acl_save1'),"'>\n";
print "<input type=submit value='",&text('acl_save2', &server_name($serv)),"'>\n";
print "</form>\n";
&ui_print_footer("", $text{'index_return'});

${this.title}

Code Editor : edit_acl.cgi