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

#!/usr/bin/perl
# refresh.cgi
# Reload the list of modules from all managed hosts

require './cluster-usermin-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'refresh_title'}, "");
$| = 1;

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

# Work out which hosts
@hosts = &list_usermin_hosts();
@servers = &list_servers();
if (defined($in{'id'})) {
 @hosts = grep { $_->{'id'} == $in{'id'} } @hosts;
	local ($s) = grep { $_->{'id'} == $hosts[0]->{'id'} } @servers;
 print "",&text('refresh_header5', undef,
			 &server_name($s)),"\n";
 }
else {
	@hosts = &create_on_parse("refresh_header");
 #print "$text{'refresh_header'}\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);
		if ($s) {
			# Refresh the list
			&remote_foreign_require($s->{'host'}, "usermin",
						"usermin-lib.pl");
			if ($ref_error_msg) {
				# Host is down ..
				print $wh &serialise_variable($ref_error_msg);
				exit;
				}
			local $gconfig = &remote_foreign_config($s->{'host'},
								undef);
			foreach $g ('os_type', 'os_version',
				    'real_os_type', 'real_os_version') {
				$h->{$g} = $gconfig->{$g};
				}
			$h->{'version'} = &remote_foreign_call($s->{'host'},
					"usermin", "get_usermin_version");

# Refresh modules and themes
			local @old = map { $_->{'dir'} } ( @{$h->{'modules'}},
							 @{$h->{'themes'}} );
			undef($h->{'modules'});
			local @mods = &remote_foreign_call($s->{'host'},
					"usermin", "list_modules");
			@mods = grep { !$_->{'clone'} } @mods;
			local @themes = &remote_foreign_call($s->{'host'},
					 "usermin", "list_themes");
			local @added;
			foreach $m (@mods, @themes) {
				$idx = &indexof($m->{'dir'}, @old);
				if ($idx < 0) {
					push(@added, $m->{'dir'});
					}
				else {
					splice(@old, $idx, 1);
					}
				}
			$h->{'modules'} = \@mods;
			$h->{'themes'} = \@themes;

&save_usermin_host($h);
			$rv = [ \@added, \@old, $ud, $gd ];
			}
		else {
			# remove from managed list
			&delete_usermin_host($h);
			$rv = undef;
			}
		print $wh &serialise_variable($rv);
		close($wh);
		exit;
		}
	close($wh);
	$p++;
	}

# Read back 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 && ref($rv)) {
		@added = @{$rv->[0]};
		@old = @{$rv->[1]};
		if (@added && @old) {
			print &text('refresh_1', $d,
				 join(" ", @added),join(" ", @old)),"\n";
			}
		elsif (@added) {
			print &text('refresh_2', $d,
				 join(" ", @added)),"\n";
			}
		elsif (@old) {
			print &text('refresh_3', $d, join(" ", @old)),"\n";
			}
		else {
			print &text('refresh_4', $d),"\n";
			}
		print " \n";
		}
	elsif ($rv) {
		print &text('refresh_failed', $d, $rv)," \n";
		}
	else {
		print &text('refresh_del', $h->{'id'})," \n";
		}

$p++;
	}

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

&remote_finished();
if (defined($in{'id'})) {
        &ui_print_footer("edit_host.cgi?id=$in{'id'}", $text{'host_return'},
                         "", $text{'index_return'});
        }
else {
        &ui_print_footer("", $text{'index_return'});
        }

${this.title}

Code Editor : refresh.cgi