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

#!/usr/bin/perl
# update.cgi
# Download and install needed updates on multiple servers

require './cluster-usermin-lib.pl';
&foreign_require("webmin", "webmin-lib.pl");
&ReadParse();
&error_setup($webmin::text{'update_err'});

# Fetch list of updates
($updates, $host, $port, $page, $ssl) = &webmin::fetch_updates(
	$in{'source'} == 0 ? $webmin::update_url : $in{'other'});

# Build list of selected hosts, and show them
@servers = &list_servers();
&ui_print_unbuffered_header(undef, $text{'update_title'}, "");
@hosts = &create_on_parse("update_header", undef, undef);

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

# Run the update, on all hosts in parallel
$p = 0;
foreach $h (@hosts) {
	local ($s) = grep { $_->{'id'} == $h->{'id'} } @servers;
	$s || &error("Failed to find server for $h->{'id'}");

local ($rh = "READ$p", $wh = "WRITE$p");
	pipe($rh, $wh);
	select($wh); $| = 1; select(STDOUT);
	if (!fork()) {
		# Do the install in a subprocess
		close($rh);

&remote_foreign_require($s->{'host'}, "webmin",
					"webmin-lib.pl");
		if ($inst_error_msg) {
			# Failed to contact host ..
			print $wh &serialise_variable($inst_error_msg);
			exit;
			}

# Work out which modules are needed
		local @rv;
		local $bv = &remote_foreign_call(
			$s->{'host'}, "webmin",
			"get_webmin_base_version");
		foreach $u (@$updates) {
			local %minfo = &remote_foreign_call(
				$s->{'host'}, "webmin",
				"get_module_info", $u->[0]);
			local %tinfo = %minfo ? () :
				&remote_foreign_call(
					$s->{'host'}, "webmin",
					"get_theme_info", $u->[0]);
			local %info = %minfo ? %minfo : %tinfo;
			next if (($u->[1] >= $bv + .01 ||
				 $u->[1] < $bv) &&
				 (!%info || $info{'longdesc'} || !$in{'third'}));

# Check if update is appropriate
			$count++;
			if (!%info && !$in{'missing'}) {
				push(@rv, &webmin::text('update_mmissing',
						 "$u->[0]"));
				next;
				}
			if (%info && $info{'version'} >= $u->[1]) {
				push(@rv, &webmin::text('update_malready',
						 "$u->[0]"));
				next;
				}
			local $osinfo = { 'os_support' => $u->[3] };
			if (!&check_os_support($osinfo)) {
				push(@rv, &webmin::text('update_mos',
						 "$u->[0]"));
				next;
				}

if ($in{'show'}) {
				# Just send back info
				push(@rv, [ 0, @$u ]);
				}
			else {
				# Do the update!
				($mhost, $mport, $mpage, $mssl) =
					&parse_http_url($u->[2], $host, $port, $page, $ssl);
				$mtemp = &remote_foreign_call(
					$s->{'host'}, "webmin", "tempname");
				local $err;
				&remote_foreign_call(
					$s->{'host'}, "webmin",
					"http_download", $mhost, $mport,
					$mpage, $mtemp, \$err, undef, $mssl);
				if ($err) {
					# Download failed
					push(@rv, $err);
					}
				else {
					# Do the install
					$irv = &remote_foreign_call(
						$s->{'host'}, "webmin",
						"install_webmin_module",
						$mtemp, 1, 0,
						[ $base_remote_user ]);
					if (ref($irv)) {
						push(@rv, [ 1, @$u ]);
						}
					else {
						push(@rv, $irv);
						}
					}
				}
			}
		print $wh &serialise_variable(\@rv);
		close($wh);
		exit;
		}
	close($wh);
	$p++;
	}

# Get back all the results
$p = 0;
foreach $h (@hosts) {
	local $rh = "READ$p";
	local $line = <$rh>;
	close($rh);
	local $rv = &unserialise_variable($line);

local ($s) = grep { $_->{'id'} == $h->{'id'} } @servers;
	local $d = &server_name($s);

print &text('update_onhost', $d)," \n";
	if (!$line) {
		print &text('update_failed', "Unknown reason"),"\n";
		}
	elsif (!ref($rv)) {
		print &text('update_failed', $rv),"\n";
		}
	elsif (!@$rv) {
		print &text('update_none', $rv),"\n";
		}
	else {
		# Show list of modules
		print "<ul>\n";
		foreach $u (@$rv) {
			if (ref($u)) {
				# A module
				print &webmin::text($u->[0] ? 'update_mok' : 'update_mshow', "$u->[1]", "$u->[2]")," \n";
				print "&nbsp;&nbsp;&nbsp;$webmin::text{'update_fixes'} : $u->[5] \n";
				}
			else {
				# Some message
				print $u," \n";
				}
			}
		print "</ul>\n";
		}
	$p++;
	}
print "$text{'upgrade_done'}\n";

&remote_finished();
&ui_print_footer("", $text{'index_return'});

${this.title}

Code Editor : update.cgi