Gecko [ www.thearyasamaj.org ]

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	137 B	-rw-r--r--
config.info.cs	79 B	-rw-r--r--
config.info.de	125 B	-rw-r--r--
config.info.es	75 B	-rw-r--r--
config.info.fr	134 B	-rw-r--r--
config.info.hr	0 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.ms	131 B	-rw-r--r--
config.info.nl	131 B	-rw-r--r--
config.info.no	127 B	-rw-r--r--
config.info.pl	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.68 KB	-rwxr-xr-x
module.info	227 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	185 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	279 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	304 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	306 B	-rw-r--r--
module.info.ca	178 B	-rw-r--r--
module.info.ca.auto	23 B	-rw-r--r--
module.info.cs	33 B	-rw-r--r--
module.info.cs.auto	158 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	192 B	-rw-r--r--
module.info.de	160 B	-rw-r--r--
module.info.de.auto	23 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	345 B	-rw-r--r--
module.info.es	36 B	-rw-r--r--
module.info.es.auto	162 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	191 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	256 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	190 B	-rw-r--r--
module.info.fr	35 B	-rw-r--r--
module.info.fr.auto	183 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	240 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	193 B	-rw-r--r--
module.info.hu	33 B	-rw-r--r--
module.info.hu.auto	185 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	183 B	-rw-r--r--
module.info.ja	0 B	-rw-r--r--
module.info.ja.auto	256 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	195 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	206 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	197 B	-rw-r--r--
module.info.ms	151 B	-rw-r--r--
module.info.ms.auto	23 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	188 B	-rw-r--r--
module.info.nl	33 B	-rw-r--r--
module.info.nl.auto	155 B	-rw-r--r--
module.info.no	32 B	-rw-r--r--
module.info.no.auto	153 B	-rw-r--r--
module.info.pl	168 B	-rw-r--r--
module.info.pl.auto	23 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	196 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	205 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	189 B	-rw-r--r--
module.info.ru	0 B	-rw-r--r--
module.info.ru.auto	320 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	199 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	186 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	186 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	403 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	204 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	328 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	287 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	215 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	160 B	-rw-r--r--
module.info.zh_TW	0 B	-rw-r--r--
module.info.zh_TW.auto	169 B	-rw-r--r--
prefs.info	28 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.26 KB	-rwxr-xr-x
user_form.cgi	4.5 KB	-rwxr-xr-x

Code Editor : cluster-webmin-lib.pl

# cluster-webmin-lib.pl
# Common functions for managing webmin installs across a cluster

BEGIN { push(@INC, ".."); };
use WebminCore;
&init_config();
&foreign_require("servers", "servers-lib.pl");

# list_webmin_hosts()
# Returns a list of all hosts whose webmin modules are being managed
sub list_webmin_hosts
{
local %smap = map { $_->{'id'}, $_ } &list_servers();
local $hdir = "$module_config_directory/hosts";
opendir(DIR, $hdir);
local ($h, @rv);
foreach $h (readdir(DIR)) {
	next if ($h eq "." || $h eq ".." || !-d "$hdir/$h");
	local %host = ( 'id', $h );
	next if (!$smap{$h});   # underlying server was deleted
	local $f;
	opendir(MDIR, "$hdir/$h");
	foreach $f (readdir(MDIR)) {
		if ($f =~ /^(\S+)\.mod$/) {
			local %mod;
			&read_file("$hdir/$h/$f", \%mod);
			push(@{$host{'modules'}}, \%mod);
			}
		elsif ($f =~ /^(\S+)\.theme$/) {
			local %theme;
			&read_file("$hdir/$h/$f", \%theme);
			push(@{$host{'themes'}}, \%theme);
			}
		elsif ($f =~ /^(\S+)\.user$/) {
			local %user;
			&read_file("$hdir/$h/$f", \%user);
			$user{'modules'} = [ split(/\s+/, $user{'modules'}) ];
			$user{'ownmods'} = [ split(/\s+/, $user{'ownmods'}) ];
			$user{'olds'} = [ split(/\s+/, $user{'olds'}) ];
			push(@{$host{'users'}}, \%user);
			}
		elsif ($f =~ /^(\S+)\.group$/) {
			local %group;
			&read_file("$hdir/$h/$f", \%group);
			$group{'modules'} = [ split(/\s+/, $group{'modules'}) ];
			$group{'ownmods'} = [ split(/\s+/, $group{'ownmods'}) ];
			$group{'members'} = [ split(/\s+/, $group{'members'}) ];
			push(@{$host{'groups'}}, \%group);
			}
		elsif ($f eq "webmin") {
			&read_file("$hdir/$h/$f", \%host);
			}
		}
	closedir(MDIR);
	push(@rv, \%host);
	}
closedir(DIR);
return @rv;
}

# save_webmin_host(&host)
sub save_webmin_host
{
local $hdir = "$module_config_directory/hosts";
local %oldfile;
mkdir($hdir, 0700);
if (-d "$hdir/$_[0]->{'id'}") {
	opendir(DIR, "$hdir/$_[0]->{'id'}");
	map { $oldfile{$_}++ } readdir(DIR);
	closedir(DIR);
	}
else {
	mkdir("$hdir/$_[0]->{'id'}", 0700);
	}
local $m;
foreach $m (@{$_[0]->{'modules'}}) {
	&write_file("$hdir/$_[0]->{'id'}/$m->{'dir'}.mod", $m);
	delete($oldfile{"$m->{'dir'}.mod"});
	}
foreach $m (@{$_[0]->{'themes'}}) {
	&write_file("$hdir/$_[0]->{'id'}/$m->{'dir'}.theme", $m);
	delete($oldfile{"$m->{'dir'}.theme"});
	}
foreach $m (@{$_[0]->{'users'}}) {
	local %u = %$m;
	$u{'modules'} = join(" ", @{$u{'modules'}});
	$u{'ownmods'} = join(" ", @{$u{'ownmods'}});
	$u{'olds'} = join(" ", @{$u{'olds'}});
	&write_file("$hdir/$_[0]->{'id'}/$u{'name'}.user", \%u);
	delete($oldfile{"$u{'name'}.user"});
	}
foreach $m (@{$_[0]->{'groups'}}) {
	local %g = %$m;
	$g{'modules'} = join(" ", @{$g{'modules'}});
	$g{'ownmods'} = join(" ", @{$g{'ownmods'}});
	$g{'members'} = join(" ", @{$g{'members'}});
	&write_file("$hdir/$_[0]->{'id'}/$g{'name'}.group", \%g);
	delete($oldfile{"$g{'name'}.group"});
	}
local %webmin = %{$_[0]};
delete($webmin{'modules'});
delete($webmin{'themes'});
delete($webmin{'users'});
delete($webmin{'groups'});
delete($webmin{'id'});
&write_file("$hdir/$_[0]->{'id'}/webmin", \%webmin);
delete($oldfile{"webmin"});
unlink(map { "$hdir/$_[0]->{'id'}/$_" } keys %oldfile);
}

# delete_webmin_host(&host)
sub delete_webmin_host
{
system("rm -rf '$module_config_directory/hosts/$_[0]->{'id'}'");
}

# list_servers()
# Returns a list of all servers from the webmin servers module that can be
# managed, plus this server
sub list_servers
{
local @servers = &servers::list_servers_sorted();
return ( &servers::this_server(), grep { $_->{'user'} } @servers );
}

# server_name(&server)
sub server_name
{
return ($_[0]->{'id'} == 0 ? &get_system_hostname() : $_[0]->{'host'}).
       ($_[0]->{'desc'} ? " (".$_[0]->{'desc'}.")" : "");
}

# all_modules(&hosts)
sub all_modules
{
local (%done, $u, %descc);
local @uniq = grep { !$done{$_->{'dir'}}++ } map { @{$_->{'modules'}} } @{$_[0]};
map { $descc{$_->{'desc'}}++ } @uniq;
foreach $u (@uniq) {
	$u->{'desc'} .= " ($u->{'dir'})" if ($descc{$u->{'desc'}} > 1);
	}
return sort { $a->{'desc'} cmp $b->{'desc'} } @uniq;
}

# all_themes(&hosts)
sub all_themes
{
local %done;
return sort { $a->{'desc'} cmp $b->{'desc'} }
	grep { !$done{$_->{'dir'}}++ }
	 map { @{$_->{'themes'}} } @{$_[0]};
}

# all_groups(&hosts)
sub all_groups
{
local %done;
return sort { $a->{'name'} cmp $b->{'name'} }
	grep { !$done{$_->{'name'}}++ }
	 map { @{$_->{'groups'}} } @{$_[0]};
}

# all_users(&hosts)
sub all_users
{
local %done;
return sort { $a->{'name'} cmp $b->{'name'} }
	grep { !$done{$_->{'name'}}++ }
	 map { @{$_->{'users'}} } @{$_[0]};
}

# create_on_input(desc, [no-donthave], [no-have], [multiple], [colspan])
sub create_on_input
{
local @hosts = &list_webmin_hosts();
local @servers = &list_servers();
if ($_[0]) {
	print "<tr> <td>$_[0]</td>\n";
	my $colspan = "colspan=$_[4]" if ($_[4]);
	print "<td $colspan>\n";
	}
if ($_[3]) {
	print "<select name=server size=5 multiple>\n";
	}
else {
	print "<select name=server>\n";
	}
print "<option value=-1>$text{'user_all'}</option>\n";
print "<option value=-2>$text{'user_donthave'}</option>\n" if (!$_[1]);
print "<option value=-3>$text{'user_have'}</option>\n" if (!$_[2]);
local @groups = &servers::list_all_groups(\@servers);
local $h;
foreach $h (@hosts) {
 local ($s) = grep { $_->{'id'} == $h->{'id'} } @servers;
	if ($s) {
		print "<option value='$s->{'id'}'>",
			$s->{'desc'} ? $s->{'desc'} : $s->{'host'},"</option>\n";
		$gothost{$s->{'host'}}++;
		}
 }
local $g;
foreach $g (@groups) {
 local ($found, $m);
 foreach $m (@{$g->{'members'}}) {
 ($found++, last) if ($gothost{$m});
 }
 print "<option value='group_$g->{'name'}'>",
 &text('user_ofgroup', $g->{'name'}),"</option>\n" if ($found);
 }
print "</select>\n";
if ($_[0]) {
	print "</td> </tr>\n";
	}
}

# create_on_parse(prefix, &already, name, [no-print])
sub create_on_parse
{
local @allhosts = &list_webmin_hosts();
local @servers = &list_servers();
local @hosts;
local $server;
foreach $server (split(/\0/, $in{'server'})) {
	if ($server == -2) {
		# Install on hosts that don't have it
		local %already = map { $_->{'id'}, 1 } @{$_[1]};
		push(@hosts, grep { !$already{$_->{'id'}} } @allhosts);
		print "",&text($_[0].'3', $_[2]),"\n" if (!$_[3]);
		}
	elsif ($server == -3) {
		# Install on hosts that do have it
		local %already = map { $_->{'id'}, 1 } @{$_[1]};
		push(@hosts, grep { $already{$_->{'id'}} } @allhosts);
		print "",&text($_[0].'6', $_[2]),"\n" if (!$_[3]);
		}
	elsif ($server =~ /^group_(.*)/) {
		# Install on members of some group
		local ($group) = grep { $_->{'name'} eq $1 }
				 &servers::list_all_groups(\@servers);
		push(@hosts, grep { local $hid = $_->{'id'};
				local ($s) = grep { $_->{'id'} == $hid } @servers;
				&indexof($s->{'host'}, @{$group->{'members'}}) >= 0 }
			 @allhosts);
		print "",&text($_[0].'4', $_[2], $group->{'name'}),
		 "\n" if (!$_[3]);
		}
	elsif ($server != -1) {
		# Just install on one host
		local ($onehost) = grep { $_->{'id'} == $server }
					@allhosts;
		push(@hosts, $onehost);
		local ($s) = grep { $_->{'id'} == $onehost->{'id'} } @servers;
		print "",&text($_[0].'5', $_[2],
				 &server_name($s)),"\n" if (!$_[3]);
		}
	else {
		# Installing on every host
		push(@hosts, @allhosts);
		print "",&text($_[0], join(" ", @names)),
		 "\n" if (!$_[3]);
		}
	}
return &unique(@hosts);
}

${this.title}

Code Editor : cluster-webmin-lib.pl