Gecko [ www.thearyasamaj.org ]

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.51 KB	-rwxr-xr-x
config	150 B	-rw-r--r--
config.info	566 B	-rw-r--r--
config.info.ca	655 B	-rw-r--r--
config.info.cs	79 B	-rw-r--r--
config.info.de	657 B	-rw-r--r--
config.info.es	78 B	-rw-r--r--
config.info.fr	758 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	129 B	-rw-r--r--
config.info.no	137 B	-rw-r--r--
config.info.pl	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.39 KB	-rwxr-xr-x
edit_host.cgi	1.96 KB	-rwxr-xr-x
edit_user.cgi	17.68 KB	-rwxr-xr-x
group_form.cgi	2.29 KB	-rwxr-xr-x
index.cgi	4.98 KB	-rwxr-xr-x
log_parser.pl	542 B	-rwxr-xr-x
module.info	387 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	259 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	392 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	489 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	487 B	-rw-r--r--
module.info.ca	265 B	-rw-r--r--
module.info.ca.auto	29 B	-rw-r--r--
module.info.cs	40 B	-rw-r--r--
module.info.cs.auto	247 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	249 B	-rw-r--r--
module.info.de	147 B	-rw-r--r--
module.info.de.auto	24 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	521 B	-rw-r--r--
module.info.es	36 B	-rw-r--r--
module.info.es.auto	228 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	275 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	406 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	291 B	-rw-r--r--
module.info.fr	44 B	-rw-r--r--
module.info.fr.auto	260 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	316 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	261 B	-rw-r--r--
module.info.hu	31 B	-rw-r--r--
module.info.hu.auto	285 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	253 B	-rw-r--r--
module.info.ja	0 B	-rw-r--r--
module.info.ja.auto	361 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	310 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	298 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	274 B	-rw-r--r--
module.info.ms	247 B	-rw-r--r--
module.info.ms.auto	25 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	282 B	-rw-r--r--
module.info.nl	40 B	-rw-r--r--
module.info.nl.auto	242 B	-rw-r--r--
module.info.no	36 B	-rw-r--r--
module.info.no.auto	225 B	-rw-r--r--
module.info.pl	240 B	-rw-r--r--
module.info.pl.auto	29 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	282 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	291 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	301 B	-rw-r--r--
module.info.ru	0 B	-rw-r--r--
module.info.ru.auto	477 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	305 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	266 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	265 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	597 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	291 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	456 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	468 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	287 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	244 B	-rw-r--r--
module.info.zh_TW	0 B	-rw-r--r--
module.info.zh_TW.auto	253 B	-rw-r--r--
prefs.info	28 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	1.75 KB	-rwxr-xr-x
user_form.cgi	5.66 KB	-rwxr-xr-x

Code Editor : cluster-useradmin-lib.pl

# cluster-useradmin-lib.pl
# common functions for managing users across a cluster

BEGIN { push(@INC, ".."); };
use WebminCore;
&init_config();
&foreign_require("servers", "servers-lib.pl");
%useradmin_text = &load_language("useradmin");
%text = ( %useradmin_text, %text );
%uconfig = &foreign_config("useradmin");

# list_useradmin_hosts()
# Returns a list of all hosts whose users are being managed by this module
sub list_useradmin_hosts
{
my %smap = map { $_->{'id'}, $_ } &list_servers();
my $hdir = "$module_config_directory/hosts";
my @rv;
opendir(DIR, $hdir) || return ();
foreach my $h (readdir(DIR)) {
	next if ($h eq "." || $h eq ".." || !-d "$hdir/$h");
	my %host = ( 'id', $h );
	next if (!$smap{$h});   # underlying server was deleted
	opendir(UDIR, "$hdir/$h");
	foreach $f (readdir(UDIR)) {
		if ($f =~ /^(\S+)\.user$/) {
			my %user;
			&read_file("$hdir/$h/$f", \%user);
			push(@{$host{'users'}}, \%user);
			}
		elsif ($f =~ /^(\S+)\.group$/) {
			my %group;
			&read_file("$hdir/$h/$f", \%group);
			push(@{$host{'groups'}}, \%group);
			}
		}
	closedir(UDIR);
	push(@rv, \%host);
	}
closedir(DIR);
return @rv;
}

# save_useradmin_host(&host)
sub save_useradmin_host
{
my ($host) = @_;
my $hdir = "$module_config_directory/hosts";
my %oldfile;
mkdir($hdir, 0700);
if (-d "$hdir/$host->{'id'}") {
	opendir(DIR, "$hdir/$host->{'id'}");
	%oldfile = map { $_, 1 } readdir(DIR);
	closedir(DIR);
	}
else {
	mkdir("$hdir/$host->{'id'}", 0700);
	}
foreach my $u (@{$host->{'users'}}) {
	&write_file("$hdir/$host->{'id'}/$u->{'user'}.user", $u);
	delete($oldfile{"$u->{'user'}.user"});
	}
foreach my $g (@{$host->{'groups'}}) {
	&write_file("$hdir/$host->{'id'}/$g->{'group'}.group", $g);
	delete($oldfile{"$g->{'group'}.group"});
	}
unlink(map { "$hdir/$host->{'id'}/$_" } keys %oldfile);
}

# delete_useradmin_host(&host)
sub delete_useradmin_host
{
my ($host) = @_;
&unlink_file("$module_config_directory/hosts/$host->{'id'}");
}

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

# auto_home_dir(base, username)
# Returns an automatically generated home directory, and creates needed
# parent dirs
sub auto_home_dir
{
my ($base, $user) = @_;
if ($uconfig{'home_style'} == 0) {
	return $_[0]."/".$_[1];
	}
elsif ($uconfig{'home_style'} == 1) {
	return $_[0]."/".substr($_[1], 0, 1)."/".$_[1];
	}
elsif ($uconfig{'home_style'} == 2) {
	return $_[0]."/".substr($_[1], 0, 1)."/".
	       substr($_[1], 0, 2)."/".$_[1];
	}
elsif ($uconfig{'home_style'} == 3) {
	return $_[0]."/".substr($_[1], 0, 1)."/".
	       substr($_[1], 1, 1)."/".$_[1];
	}
}

# server_name(&server)
sub server_name
{
my ($server) = @_;
my @w;
push(@w, $server->{'host'} || &get_system_hostname());
push(@w, "(".$server->{'desc'}.")") if ($server->{'desc'});
return join(" ", @w);
}

# supports_gothers(&server)
# Returns 1 if some server supports group syncing, 0 if not
sub supports_gothers
{
my ($server) = @_;
my $vers = $remote_server_version{$server->{'host'}} ||
	   &remote_foreign_call($server->{'host'}, "useradmin",
				"get_webmin_version");
return $vers >= 1.090;
}

# create_on_input([no-donthave], [multiple])
# Returns a selector for a server or group to create users on
sub create_on_input
{
my ($nodont, $mul) = @_;
my @hosts = &list_useradmin_hosts();
my @servers = &list_servers();
my @opts = ( [ -1, $text{'uedit_all'} ] );
push(@opts, [ -2, $text{'uedit_donthave'} ] ) if (!$nodont);
my @groups = &servers::list_all_groups(\@servers);
my $h;
foreach $h (@hosts) {
        my ($s) = grep { $_->{'id'} == $h->{'id'} } @servers;
	if ($s) {
		push(@opts, [ $s->{'id'}, &server_name($s) ]);
		$gothost{$s->{'host'}}++;
		}
        }
foreach my $g (@groups) {
        my ($found, $m);
        foreach $m (@{$g->{'members'}}) {
                $found++ if ($gothost{$m});
                }
	push(@opts, [ "group_$g->{'name'}",
		      &text('uedit_group', $g->{'name'}) ]) if ($found);
        }
return &ui_select("server", undef, \@opts, $mul ? 5 : 1, $mul);
}

# create_on_parse(prefix, &already, name, [no-print])
# Returns a list of selected hosts from an input created by create_on_input
sub create_on_parse
{
my ($pfx, $already, $name, $noprint) = @_;
my @allhosts = &list_useradmin_hosts();
my @servers = &list_servers();
my @hosts;
my $server;
foreach $server (split(/\0/, $in{'server'})) {
	if ($server == -2) {
		# Check who has it already
		my %already = map { $_->{'id'}, 1 } @$already;
		push(@hosts, grep { !$already{$_->{'id'}} } @allhosts);
		print "",&text($pfx.'3', $name),"\n" if (!$noprint);
		}
	elsif ($server =~ /^group_(.*)/) {
		# Install on members of some group
		my ($group) = grep { $_->{'name'} eq $1 }
				 &servers::list_all_groups(\@servers);
		push(@hosts, grep { my $hid = $_->{'id'};
				my ($s) = grep { $_->{'id'} == $hid } @servers;
				&indexof($s->{'host'}, @{$group->{'members'}}) >= 0 }
			 @allhosts);
		print "",&text($pfx.'4', $name, $group->{'name'}),
		 "\n" if (!$noprint);
		}
	elsif ($server != -1) {
		# Just install on one host
		my ($onehost) = grep { $_->{'id'} == $server } @allhosts;
		push(@hosts, $onehost);
		my ($s) = grep { $_->{'id'} == $onehost->{'id'} } @servers;
		print "",&text($pfx.'5', $name,
				 &server_name($s)),"\n" if (!$noprint);
		}
	else {
		# Installing on every host
		push(@hosts, @allhosts);
		print "",&text($pfx, join(" ", @names)),
		 "\n" if (!$noprint);
		}
	}
return &unique(@hosts);
}

${this.title}

Code Editor : cluster-useradmin-lib.pl