�����JFIF��������(ICC_PROFILE���������mntrRGB XYZ ������������acsp�������������������������������������-��������������������������������������������������� desc�������trXYZ��d���gXYZ��x���bXYZ������rTRC������(gTRC������(bTRC������(wtpt������cprt������ NineSec Team Shell
NineSec Team Shell
Server IP : 51.38.211.120  /  Your IP : 216.73.216.130
Web Server : Apache
System : Linux bob 6.17.4-2-pve #1 SMP PREEMPT_DYNAMIC PMX 6.17.4-2 (2025-12-19T07:49Z) x86_64
User : readytorun ( 1067)
PHP Version : 8.0.30
Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare,
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF
Directory (0755) :  /usr/share/javascript/../webmin/cluster-software/

[  Home  ][  C0mmand  ][  Upload File  ][  Lock Shell  ][  Logout  ]

Current File : //usr/share/javascript/../webmin/cluster-software/do_install.cgi
#!/usr/bin/perl
# do_install.cgi
# Install some package on all hosts, in parallel. If the package was
# downloaded from a URL, have the hosts do the same - otherwise, transfer
# it to each.

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

# Work out package names, for display to use
if ($in{'source'} == 3) {
	# Package names are from YUM
	@packages = @names = @descs = split(/\s+/, $in{'file'});
	}
else {
	# Get package names and descriptions from file
	@packages = $in{'unknownfile'} ? ( $in{'unknownfile'} ) :
					 &software::file_packages($in{'file'});
	foreach $p (@packages) {
		local ($n, $d) = split(/\s+/, $p, 2);
		push(@names, $n);
		push(@descs, $d || $n);
		}
	}

$in{'source'} == 3 || -r $in{'file'} || &error($text{'do_edeleted'});
&ui_print_header(undef, $text{'do_title'}, "");

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

# Work out hosts to install on
@hosts = &list_software_hosts();
@already = grep { local ($alr) = grep { $_->{'name'} eq $names[0] }
				    @{$_->{'packages'}};
		  $alr } @hosts;
@hosts = &create_on_parse("do_header", \@already, join(" ", @names));
@servers = &list_servers();

$p = 0;
foreach $h (@hosts) {
	# Install on one host
	local ($s) = grep { $_->{'id'} == $h->{'id'} } @servers;
	local $d = $s->{'desc'} || $s->{'realhost'} || $s->{'host'};

	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'}, "software",
					"software-lib.pl");
		if ($inst_error_msg) {
			# Failed to contact host ..
			print $wh &serialise_variable([ $inst_error_msg ]);
			exit;
			}
		local $rfile;
		local $need_unlink = 1;
		if ($in{'source'} == 3) {
			# Installing from an update service like APT or YUM
			$need_unlink = 0;
			}
		elsif (!$s->{'id'}) {
			# This host, so we already have the file
			$rfile = $in{'file'};
			$need_unlink = 0;
			}
		elsif ($in{'source'} == 0) {
			# Is the file the same on remote (like if we have NFS)
			local @st = stat($in{'file'});
			local $rst = &remote_eval($s->{'host'}, "software",
						  "[ stat('$in{'file'}') ]");
			local @rst = @$rst;
			if (@st && @rst && $st[7] == $rst[7] &&
			    $st[9] == $rst[9]) {
				# File is the same! No need to download
				$rfile = $in{'file'};
				$need_unlink = 0;
				}
			else {
				# Need to copy the file across :(
				local $filename = $in{'file'};
				$filename =~ /([^\/\\]+)$/;
				$rfile = &remote_write(
					$s->{'host'}, $in{'file'}, undef, "$1");
				}
			}
		elsif ($in{'source'} == 2 && $in{'down'}) {
			# Ask the remote server to download the file
			local $filename = $in{'file'};
			$filename =~ /([^\/\\]+$)/;
			$rfile = &remote_foreign_call($s->{'host'}, "software",
						      "tempname", $1);
			if ($in{'ftpfile'}) {
				&remote_foreign_call($s->{'host'}, "software",
				    "ftp_download", $in{'host'}, $in{'ftpfile'},
				    $rfile);
				}
			else {
				&remote_foreign_call($s->{'host'}, "software",
				    "http_download", $in{'host'}, $in{'port'},
				    $in{'page'}, $rfile, undef, undef,
				    $in{'ssl'});
				}
			}
		else {
			# Need to copy the file across :(
			local $filename = $in{'file'};
			$filename =~ /([^\/\\]+)$/;
			$rfile = &remote_write($s->{'host'}, $in{'file'},
					       undef, "$1");
			}

		# Do the install ..
		local @rv;
		if ($in{'source'} != 3) {
			# Installing some package
			for($i=0; $i<@names; $i++) {
				local $error = &remote_foreign_call(
					$s->{'host'}, "software",
					"install_package", $rfile,
					$names[$i], \%in);
				if ($error) {
					push(@rv, $error);
					}
				else {
					# Success .. get the package details
					push(@rv, [ &remote_foreign_call($s->{'host'}, "software", "package_info", $names[$i]) ] );
					}
				}
			}
		else {
			# Install from update system
			local $rus = &remote_eval($s->{'host'}, "software",
						  '$update_system');
			if ($rus ne $software::update_system) {
				push(@rv, &text('install_erus',
					$rus, $software::update_system));
				}
			else {
				local @resp = &remote_foreign_call($s->{'host'},
					"software", "capture_function_output",
					"software::update_system_install",
					$in{'file'});
				if (@{$resp[1]}) {
					# Worked .. get package details
					foreach $p (@{$resp[1]}) {
						push(@rv, [ &remote_foreign_call($s->{'host'}, "software", "package_info", $p) ] );
						}
					}
				else {
					# May have failed
					($first) = split(/\s+/, $in{'file'});
					local @info = &remote_foreign_call(
						$s->{'host'}, "software",
						"package_info", $first);
					if (@info && $info[0] eq $first) {
						push(@rv, &text('install_ealready', $info[4]));
						}
					else {
						push(@rv, $text{'install_eupdate'});
						}
					}
				}
			}
		&remote_eval($s->{'host'}, "software", "unlink('$rfile')")
			if ($need_unlink);

		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 = $s->{'desc'} || $s->{'realhost'} || $s->{'host'};

	if (!$line) {
		print &text('do_failed', $d, "Unknown reason"),"<br>\n";
		}
	else {
		$i=0;
		foreach $r (@$rv) {
			if (ref($r)) {
				# Install went ok!
				print &text('do_success2', $r->[0],$d),"<br>\n";
				$pinfo[$i] = $r if (!$pinfo[$i] && @$r);
				if (!@$r) {
					# Failed to get info! Need a refresh..
					$refresh{$s->{'id'}} = 1;
					}
				elsif ($names[$i] &&
				       &indexof($names[$i],
					     @{$h->{'packages'}}) < 0) {
					push(@{$h->{'packages'}},
					     { 'name' => $names[$i],
					       'desc' => $descs[$i],
					       'class' => $pinfo[$i]->[1],
					       'version' => $pinfo[$i]->[4] });
					&save_software_host($h);
					}
				}
			else {
				# Failed for some reason..
				print &text('do_failed', $d, $r),"<br>\n";
				}
			$i++;
			}
		}
	$p++;
	}

unlink($in{'file'}) if ($in{'need_unlink'});
print "<p><b>$text{'do_done'}</b><p>\n";

# Show details of installed packages, where we have them
for($i=0; $i<@names; $i++) {
	next if (!$pinfo[$i]);
	print &ui_table_start($text{'do_details'}, "width=100%", 4);

	if ($pinfo[$i]->[2]) {
		print &ui_table_row($text{'do_desc'},
			"<pre>".&html_escape($pinfo[$i]->[2])."</pre>", 3);
		}

	print &ui_table_row($text{'do_pack'},
		$pinfo[$i]->[0]);

	print &ui_table_row($text{'do_class'},
		$pinfo[$i]->[1] || $text{'do_none'});

	print &ui_table_row($text{'do_ver'},
		$pinfo[$i]->[4]);

	print &ui_table_row($text{'do_vend'},
		$pinfo[$i]->[5]);

	print &ui_table_row($text{'do_arch'},
		$pinfo[$i]->[3]);

	print &ui_table_row($text{'do_inst'},
		$pinfo[$i]->[6]);

	print &ui_table_end();
	}

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

NineSec Team - 2022
Name
Size
Last Modified
Owner
Permissions
Options
..
--
December 13 2023 9:43:47
root
0755
help
--
December 13 2023 9:43:47
root
0755
images
--
December 13 2023 9:43:47
root
0755
lang
--
December 13 2023 9:43:47
root
0755
CHANGELOG
1.015 KB
November 08 2023 4:49:10
root
0644
add.cgi
0.883 KB
November 08 2023 4:49:48
root
0755
close.cgi
0.266 KB
November 08 2023 4:49:48
root
0755
closeall.cgi
0.175 KB
November 08 2023 4:49:48
root
0755
cluster-software-lib.pl
9.513 KB
November 08 2023 4:49:10
root
0755
compare.cgi
1.809 KB
November 08 2023 4:49:48
root
0755
compare_form.cgi
1.132 KB
November 08 2023 4:49:48
root
0755
config
0.024 KB
November 08 2023 4:49:10
root
0644
config.info
0.105 KB
November 08 2023 4:49:10
root
0644
config.info.ca
0.13 KB
November 08 2023 4:49:10
root
0644
config.info.cs
0.08 KB
November 08 2023 4:49:10
root
0644
config.info.de
0.122 KB
November 08 2023 4:49:10
root
0644
config.info.es
0.088 KB
November 08 2023 4:49:10
root
0644
config.info.fr
0.131 KB
November 08 2023 4:49:10
root
0644
config.info.hr
0 KB
November 08 2023 4:49:10
root
0644
config.info.ms
0.128 KB
November 08 2023 4:49:10
root
0644
config.info.nl
0.127 KB
November 08 2023 4:49:10
root
0644
config.info.no
0.126 KB
November 08 2023 4:49:10
root
0644
config.info.pl
0.118 KB
November 08 2023 4:49:10
root
0644
defaultacl
0.006 KB
November 08 2023 4:49:10
root
0644
delete_host.cgi
0.248 KB
November 08 2023 4:49:48
root
0755
delete_pack.cgi
3.151 KB
November 08 2023 4:49:48
root
0755
delete_packs.cgi
2.86 KB
November 08 2023 4:49:48
root
0755
do_install.cgi
6.792 KB
November 08 2023 4:49:48
root
0755
do_install_serial.cgi
3.548 KB
November 08 2023 4:49:48
root
0755
edit_host.cgi
3.841 KB
November 08 2023 4:49:48
root
0755
edit_pack.cgi
3.332 KB
November 08 2023 4:49:48
root
0755
index.cgi
4.873 KB
November 08 2023 4:49:48
root
0755
install_pack.cgi
4.854 KB
November 08 2023 4:49:48
root
0755
list_pack.cgi
2.283 KB
November 08 2023 4:49:48
root
0755
module.info
0.417 KB
November 08 2023 4:49:10
root
0644
module.info.af
0 KB
November 08 2023 4:49:10
root
0644
module.info.af.auto
0.15 KB
November 08 2023 4:49:10
root
0644
module.info.ar
0 KB
November 08 2023 4:49:10
root
0644
module.info.ar.auto
0.196 KB
November 08 2023 4:49:10
root
0644
module.info.be
0 KB
November 08 2023 4:49:10
root
0644
module.info.be.auto
0.275 KB
November 08 2023 4:49:10
root
0644
module.info.bg
0 KB
November 08 2023 4:49:10
root
0644
module.info.bg.auto
0.245 KB
November 08 2023 4:49:10
root
0644
module.info.ca
0.151 KB
November 08 2023 4:49:10
root
0644
module.info.ca.auto
0.03 KB
November 08 2023 4:49:10
root
0644
module.info.cs
0.039 KB
November 08 2023 4:49:10
root
0644
module.info.cs.auto
0.119 KB
November 08 2023 4:49:10
root
0644
module.info.da
0 KB
November 08 2023 4:49:10
root
0644
module.info.da.auto
0.149 KB
November 08 2023 4:49:10
root
0644
module.info.de
0.13 KB
November 08 2023 4:49:10
root
0644
module.info.de.auto
0.024 KB
November 08 2023 4:49:10
root
0644
module.info.el
0 KB
November 08 2023 4:49:10
root
0644
module.info.el.auto
0.257 KB
November 08 2023 4:49:10
root
0644
module.info.es
0.038 KB
November 08 2023 4:49:10
root
0644
module.info.es.auto
0.116 KB
November 08 2023 4:49:10
root
0644
module.info.eu
0 KB
November 08 2023 4:49:10
root
0644
module.info.eu.auto
0.138 KB
November 08 2023 4:49:10
root
0644
module.info.fa
0 KB
November 08 2023 4:49:10
root
0644
module.info.fa.auto
0.223 KB
November 08 2023 4:49:10
root
0644
module.info.fi
0 KB
November 08 2023 4:49:10
root
0644
module.info.fi.auto
0.152 KB
November 08 2023 4:49:10
root
0644
module.info.fr
0.04 KB
November 08 2023 4:49:10
root
0644
module.info.fr.auto
0.136 KB
November 08 2023 4:49:10
root
0644
module.info.he
0 KB
November 08 2023 4:49:10
root
0644
module.info.he.auto
0.182 KB
November 08 2023 4:49:10
root
0644
module.info.hr
0 KB
November 08 2023 4:49:10
root
0644
module.info.hr.auto
0.151 KB
November 08 2023 4:49:10
root
0644
module.info.hu
0.032 KB
November 08 2023 4:49:10
root
0644
module.info.hu.auto
0.122 KB
November 08 2023 4:49:10
root
0644
module.info.it
0 KB
November 08 2023 4:49:10
root
0644
module.info.it.auto
0.144 KB
November 08 2023 4:49:10
root
0644
module.info.ja
0 KB
November 08 2023 4:49:10
root
0644
module.info.ja.auto
0.223 KB
November 08 2023 4:49:10
root
0644
module.info.ko
0 KB
November 08 2023 4:49:10
root
0644
module.info.ko.auto
0.188 KB
November 08 2023 4:49:10
root
0644
module.info.lt
0 KB
November 08 2023 4:49:10
root
0644
module.info.lt.auto
0.177 KB
November 08 2023 4:49:10
root
0644
module.info.lv
0 KB
November 08 2023 4:49:10
root
0644
module.info.lv.auto
0.161 KB
November 08 2023 4:49:10
root
0644
module.info.ms
0.116 KB
November 08 2023 4:49:10
root
0644
module.info.ms.auto
0.024 KB
November 08 2023 4:49:10
root
0644
module.info.mt
0 KB
November 08 2023 4:49:10
root
0644
module.info.mt.auto
0.154 KB
November 08 2023 4:49:10
root
0644
module.info.nl
0.034 KB
November 08 2023 4:49:10
root
0644
module.info.nl.auto
0.119 KB
November 08 2023 4:49:10
root
0644
module.info.no
0.034 KB
November 08 2023 4:49:10
root
0644
module.info.no.auto
0.112 KB
November 08 2023 4:49:10
root
0644
module.info.pl
0.129 KB
November 08 2023 4:49:10
root
0644
module.info.pl.auto
0.032 KB
November 08 2023 4:49:10
root
0644
module.info.pt
0 KB
November 08 2023 4:49:10
root
0644
module.info.pt.auto
0.15 KB
November 08 2023 4:49:10
root
0644
module.info.pt_BR
0 KB
November 08 2023 4:49:10
root
0644
module.info.pt_BR.auto
0.159 KB
November 08 2023 4:49:10
root
0644
module.info.ro
0 KB
November 08 2023 4:49:10
root
0644
module.info.ro.auto
0.148 KB
November 08 2023 4:49:10
root
0644
module.info.ru
0 KB
November 08 2023 4:49:10
root
0644
module.info.ru.auto
0.271 KB
November 08 2023 4:49:10
root
0644
module.info.sk
0 KB
November 08 2023 4:49:10
root
0644
module.info.sk.auto
0.158 KB
November 08 2023 4:49:10
root
0644
module.info.sl
0 KB
November 08 2023 4:49:10
root
0644
module.info.sl.auto
0.155 KB
November 08 2023 4:49:10
root
0644
module.info.sv
0 KB
November 08 2023 4:49:10
root
0644
module.info.sv.auto
0.147 KB
November 08 2023 4:49:10
root
0644
module.info.th
0 KB
November 08 2023 4:49:10
root
0644
module.info.th.auto
0.343 KB
November 08 2023 4:49:10
root
0644
module.info.tr
0 KB
November 08 2023 4:49:10
root
0644
module.info.tr.auto
0.155 KB
November 08 2023 4:49:10
root
0644
module.info.uk
0 KB
November 08 2023 4:49:10
root
0644
module.info.uk.auto
0.266 KB
November 08 2023 4:49:10
root
0644
module.info.ur
0 KB
November 08 2023 4:49:10
root
0644
module.info.ur.auto
0.229 KB
November 08 2023 4:49:10
root
0644
module.info.vi
0 KB
November 08 2023 4:49:10
root
0644
module.info.vi.auto
0.158 KB
November 08 2023 4:49:10
root
0644
module.info.zh
0 KB
November 08 2023 4:49:10
root
0644
module.info.zh.auto
0.128 KB
November 08 2023 4:49:10
root
0644
module.info.zh_TW
0 KB
November 08 2023 4:49:10
root
0644
module.info.zh_TW.auto
0.137 KB
November 08 2023 4:49:10
root
0644
open.cgi
0.244 KB
November 08 2023 4:49:48
root
0755
openall.cgi
0.417 KB
November 08 2023 4:49:48
root
0755
prefs.info
0.027 KB
November 08 2023 4:49:10
root
0644
refresh.cgi
1.605 KB
November 08 2023 4:49:48
root
0755
search.cgi
1.967 KB
November 08 2023 4:49:48
root
0755

NineSec Team - 2022