File Manager

X7ROOT File Manager

Current Path: /usr/libexec/webmin/cluster-software

usr / libexec / webmin / cluster-software /

📁 ..
📄 CHANGELOG(1.01 KB)
📄 add.cgi(904 B)
📄 close.cgi(272 B)
📄 closeall.cgi(179 B)
📄 cluster-software-lib.pl(9.51 KB)
📄 compare.cgi(1.81 KB)
📄 compare_form.cgi(1.13 KB)
📄 config(25 B)
📄 config.info(108 B)
📄 config.info.ca(133 B)
📄 config.info.cs(82 B)
📄 config.info.de(125 B)
📄 config.info.es(90 B)
📄 config.info.fr(134 B)
📄 config.info.hr(0 B)
📄 config.info.ms(131 B)
📄 config.info.nl(130 B)
📄 config.info.no(129 B)
📄 config.info.pl(121 B)
📄 defaultacl(6 B)
📄 delete_host.cgi(254 B)
📄 delete_pack.cgi(3.15 KB)
📄 delete_packs.cgi(2.86 KB)
📄 do_install.cgi(7.11 KB)
📄 do_install_serial.cgi(3.55 KB)
📄 edit_host.cgi(3.84 KB)
📄 edit_pack.cgi(3.33 KB)
📁 help
📁 images
📄 index.cgi(4.87 KB)
📄 install_pack.cgi(4.82 KB)
📁 lang
📄 list_pack.cgi(2.28 KB)
📄 module.info(427 B)
📄 module.info.af(0 B)
📄 module.info.af.auto(154 B)
📄 module.info.ar(0 B)
📄 module.info.ar.auto(201 B)
📄 module.info.be(0 B)
📄 module.info.be.auto(282 B)
📄 module.info.bg(0 B)
📄 module.info.bg.auto(251 B)
📄 module.info.ca(155 B)
📄 module.info.ca.auto(31 B)
📄 module.info.cs(40 B)
📄 module.info.cs.auto(122 B)
📄 module.info.da(0 B)
📄 module.info.da.auto(153 B)
📄 module.info.de(133 B)
📄 module.info.de.auto(25 B)
📄 module.info.el(0 B)
📄 module.info.el.auto(263 B)
📄 module.info.es(39 B)
📄 module.info.es.auto(119 B)
📄 module.info.eu(0 B)
📄 module.info.eu.auto(141 B)
📄 module.info.fa(0 B)
📄 module.info.fa.auto(228 B)
📄 module.info.fi(0 B)
📄 module.info.fi.auto(156 B)
📄 module.info.fr(41 B)
📄 module.info.fr.auto(139 B)
📄 module.info.he(0 B)
📄 module.info.he.auto(186 B)
📄 module.info.hr(0 B)
📄 module.info.hr.auto(155 B)
📄 module.info.hu(33 B)
📄 module.info.hu.auto(125 B)
📄 module.info.it(0 B)
📄 module.info.it.auto(147 B)
📄 module.info.ja(0 B)
📄 module.info.ja.auto(228 B)
📄 module.info.ko(0 B)
📄 module.info.ko.auto(193 B)
📄 module.info.lt(0 B)
📄 module.info.lt.auto(181 B)
📄 module.info.lv(0 B)
📄 module.info.lv.auto(165 B)
📄 module.info.ms(119 B)
📄 module.info.ms.auto(25 B)
📄 module.info.mt(0 B)
📄 module.info.mt.auto(158 B)
📄 module.info.nl(35 B)
📄 module.info.nl.auto(122 B)
📄 module.info.no(35 B)
📄 module.info.no.auto(115 B)
📄 module.info.pl(132 B)
📄 module.info.pl.auto(33 B)
📄 module.info.pt(0 B)
📄 module.info.pt.auto(154 B)
📄 module.info.pt_BR(0 B)
📄 module.info.pt_BR.auto(163 B)
📄 module.info.ro(0 B)
📄 module.info.ro.auto(152 B)
📄 module.info.ru(0 B)
📄 module.info.ru.auto(278 B)
📄 module.info.sk(0 B)
📄 module.info.sk.auto(162 B)
📄 module.info.sl(0 B)
📄 module.info.sl.auto(159 B)
📄 module.info.sv(0 B)
📄 module.info.sv.auto(151 B)
📄 module.info.th(0 B)
📄 module.info.th.auto(351 B)
📄 module.info.tr(0 B)
📄 module.info.tr.auto(159 B)
📄 module.info.uk(0 B)
📄 module.info.uk.auto(272 B)
📄 module.info.ur(0 B)
📄 module.info.ur.auto(235 B)
📄 module.info.vi(0 B)
📄 module.info.vi.auto(162 B)
📄 module.info.zh(0 B)
📄 module.info.zh.auto(131 B)
📄 module.info.zh_TW(0 B)
📄 module.info.zh_TW.auto(140 B)
📄 open.cgi(250 B)
📄 openall.cgi(427 B)
📄 prefs.info(28 B)
📄 refresh.cgi(1.61 KB)
📄 search.cgi(1.92 KB)

Editing: do_install_serial.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();
@packages = &foreign_call("software", "file_packages", $in{'file'});
foreach $p (@packages) {
	local ($n, $d) = split(/\s+/, $p, 2);
	push(@names, $n); push(@descs, $d);
	}
-r $in{'file'} || &error($text{'do_edeleted'});
&ui_print_header(undef, $text{'do_title'}, "");
print "",&text('do_header', join(" ", @names)),"\n";

@hosts = &list_software_hosts();
@servers = &list_servers();
foreach $h (@hosts) {
	# Check if already installed
	local ($s) = grep { $_->{'id'} == $h->{'id'} } @servers;
	local $d = $s->{'desc'} ? $s->{'desc'} : $s->{'host'};
	local ($a) = grep { &indexof($_->{'name'}, @names) >= 0 }
			 @{$h->{'packages'}};
	#if ($a) {
	#	print &text('do_already', $d)," \n";
	#	next;
	#	}

&remote_foreign_require($s->{'host'}, "software", "software-lib.pl");
	local $rfile;
	local $need_unlink = 1;
	if (!$s->{'id'}) {
		# This host, so we already have the file
		$rfile = $in{'file'};
		$need_unlink = 0;
		}
	elsif ($in{'source'} == 2 && $in{'down'}) {
		# Ask the remote server to download the file
		$rfile = &remote_eval($s->{'host'}, "software", '&tempname()');
		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);
			}
		}
	else {
		# Need to copy the file across :(
		$rfile = &remote_write($s->{'host'}, $in{'file'});
		}

# Do the install ..
	for($i=0; $i<@names; $i++) {
		local $error = &remote_foreign_call($s->{'host'}, "software",
				 "install_package", $rfile, $names[$i], \%in);
		if ($error) {
			print &text('do_failed', $d, $error)," \n";
			}
		else {
			# Success .. get the package details and add to list
			print &text('do_success', $d)," \n";
			if (!$pinfo[$i]) {
				$pinfo[$i] = [ &remote_foreign_call($s->{'host'}, "software",
						"package_info", $names[$i]) ];
				}
			if (&indexof($names[$i], @{$h->{'packages'}}) < 0) {
				push(@{$h->{'packages'}},
				 { 'name' => $names[$i],
				 'desc' => $descs[$i],
				 'class' => $pinfo[$i]->[1] });
				&save_software_host($h);
				}
			}
		}
	&remote_eval($s->{'host'}, "software", "unlink('$rfile')") if ($need_unlink);
	}
unlink($in{'file'}) if ($in{'need_unlink'});
print "$text{'do_done'}\n";

for($i=0; $i<@names; $i++) {
	next if (!$pinfo[$i]);
	print "<table border width=100%>\n";
	print "<tr $tb> <td>$text{'do_details'}</td> </tr>\n";
	print "<tr $cb> <td><table width=100%>\n";
	print "<tr> <td valign=top width=20%>$text{'do_desc'}</td>\n";
	print "<td colspan=3><pre>$pinfo[$i]->[2]</pre></td> </tr>\n";

print "<tr> <td width=20%>$text{'do_pack'}</td> <td>$pinfo[$i]->[0]</td>\n";
	print "<td width=20%>$text{'do_class'}</td> <td>",
		$pinfo[$i]->[1] ? $pinfo[$i]->[1] : $text{'do_none'},"</td> </tr>\n";

print "<tr> <td width=20%>$text{'do_ver'}</td> <td>$pinfo[$i]->[4]</td>\n";
	print "<td width=20%>$text{'do_vend'}</td> <td>$pinfo[$i]->[5]</td> </tr>\n";

print "<tr> <td width=20%>$text{'do_arch'}</td> <td>$pinfo[$i]->[3]</td>\n";
	print "<td width=20%>$text{'do_inst'}</td> <td>$pinfo[$i]->[6]</td> </tr>\n";
	print "</table></td></tr></table>\n";
	}

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

X7ROOT File Manager

Editing: do_install_serial.cgi

Upload File

Create Folder