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

#!/usr/bin/perl
# edit_host.cgi
# Show details of a managed host, and all the packages on it

require './cluster-software-lib.pl';
&foreign_require("servers", "servers-lib.pl");
&ReadParse();
&ui_print_header(undef, $text{'host_title'}, "", "edit_host");

@hosts = &list_software_hosts();
($host) = grep { $_->{'id'} eq $in{'id'} } @hosts;
$server = &foreign_call("servers", "get_server", $in{'id'});
@packages = @{$host->{'packages'}};

# Show host details
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'host_header'}</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

print "<tr> <td><b>$text{'host_name'}</b></td>\n";
if ($server->{'id'}) {
	$h = $server->{'realhost'} || $server->{'host'};
	printf "<td>". &ui_link("/servers/link.cgi/%s/","%s")."</td>\n",
		$server->{'id'}, $server->{'desc'} ? "$server->{'desc'} ($h:$server->{'port'})" : "$h:$server->{'port'}";
	}
else {
	print "<td><a href=/>$text{'this_server'}</a></td>\n";
	}

if ($server->{'id'}) {
	print "<td><b>$text{'host_type'}</b></td> <td>\n";
	foreach $t (@servers::server_types) {
		print $t->[1] if ($t->[0] eq $server->{'type'});
		}
	print "</td>\n";
	}
print "</tr>\n";

print "<tr> <td><b>$text{'host_count'}</b></td>\n";
printf "<td>%d</td>\n", scalar(@packages);

print "<td><b>$text{'host_os'}</b></td>\n";
print "<td>$host->{'real_os_type'} $host->{'real_os_version'}</td> </tr>\n";

print "<tr> <td><b>$text{'host_system'}</b></td>\n";
$system = $host->{'package_system'} || $software::config{'package_system'};
print "<td colspan=3>",uc($system),"</td>\n";

print "</tr>\n";

print "</table></td></tr></table>\n";

# Show delete and refresh buttons
print "<p></p><table width=100%><tr>\n";

print "<td><form action=delete_host.cgi>\n";
print "<input type=hidden name=id value=$in{'id'}>\n";
print "<input type=submit value='$text{'host_delete'}'>\n";
print "</form></td>\n";

print "<td align=right><form action=refresh.cgi>\n";
print "<input type=hidden name=id value=$in{'id'}>\n";
print "<input type=submit value='$text{'host_refresh'}'>\n";
print "</form></td>\n";

print "</tr></table>\n";

# Show tree of packages
$heir{""} = "";
foreach $c (sort { $a cmp $b } &unique(map { $_->{'class'} } @packages)) {
	if (!$c) { next; }
	@w = split(/\//, $c);
	$p = join('/', @w[0..$#w-1]);
	if (!defined($heir{$p})) {
		$pp = join('/', @w[0..$#w-2]);
		$heir{$pp} .= "$p\0";
		}
	$heir{$p} .= "$c\0";
	$hasclasses++;
	}

# get the current open list
%heiropen = map { $_, 1 } &get_heiropen($in{'id'});
$heiropen{""}++;

# traverse the hierarchy
$spacer = "&nbsp;"x3;
print &ui_hr();
print &ui_subheading($text{'host_installed'});
print "<table width=100%>\n";
&traverse("", 0);
print "</table>\n";
if ($hasclasses) {
	print "<p></p>";
	print &ui_link("closeall.cgi?id=$in{'id'}",$text{'host_close'}),"\n";
	print &ui_link("openall.cgi?id=$in{'id'}",$text{'host_open'}),"<p>\n";
	}

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

sub traverse
{
local($s, $act, $i);
print "<tr style='border-top: 1px solid #aaaaaa28'> <td>", $spacer x $_[1];
if ($_[0]) {
	print "<a name=\"$_[0]\"></a>\n";
	$act = $heiropen{$_[0]} ? "close" : "open";
	print "<a href=\"$act.cgi?id=$in{'id'}&what=",&urlize($_[0]),"\">";
	$_[0] =~ /([^\/]+)$/;
	print "<img border=0 src=images/$act.gif></a>&nbsp; $1</td>\n",
	}
else { print "<img src=images/close.gif> <i>$text{'host_all'}</i></td>\n"; }
print "<td><br></td> </tr>\n";
if ($heiropen{$_[0]}) {
	# print sub-folders followed by packages
	foreach $i (@packages) {
		if ($i->{'class'} eq $_[0]) {
			print "<tr style='border-top: 1px solid #aaaaaa28'> <td>", $spacer x ($_[1]+1);
			print "<img border=0 src=images/pack.gif></a>&nbsp;\n";
			print "<a href=\"edit_pack.cgi?package=",
			     &urlize($i->{'name'}),"\">$i->{'name'}</a></td>\n";
			print "<td>$i->{'desc'}</td>\n";
			print "</tr>\n";
			}
		}
	foreach $s (&unique(split(/\0+/, $heir{$_[0]}))) {
		&traverse($s, $_[1]+1);
		}
	}
}

X7ROOT File Manager

Editing: edit_host.cgi

Upload File

Create Folder