Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	1.01 KB	-rw-r--r--	2026-07-17 21:17
add.cgi	904 B	-rwxr-xr-x	2026-07-17 21:22
close.cgi	272 B	-rwxr-xr-x	2026-07-17 21:22
closeall.cgi	179 B	-rwxr-xr-x	2026-07-17 21:22
cluster-software-lib.pl	10.06 KB	-rwxr-xr-x	2026-07-17 21:17
compare.cgi	1.81 KB	-rwxr-xr-x	2026-07-17 21:22
compare_form.cgi	1.13 KB	-rwxr-xr-x	2026-07-17 21:22
config	25 B	-rw-r--r--	2026-07-17 21:17
config.info	108 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	133 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	82 B	-rw-r--r--	2026-07-17 21:17
config.info.de	125 B	-rw-r--r--	2026-07-17 21:17
config.info.es	90 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	134 B	-rw-r--r--	2026-07-17 21:17
config.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	131 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	130 B	-rw-r--r--	2026-07-17 21:17
config.info.no	129 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	121 B	-rw-r--r--	2026-07-17 21:17
defaultacl	6 B	-rw-r--r--	2026-07-17 21:17
delete_host.cgi	254 B	-rwxr-xr-x	2026-07-17 21:22
delete_pack.cgi	3.15 KB	-rwxr-xr-x	2026-07-17 21:22
delete_packs.cgi	2.86 KB	-rwxr-xr-x	2026-07-17 21:22
do_install.cgi	6.98 KB	-rwxr-xr-x	2026-07-17 21:22
do_install_serial.cgi	3.68 KB	-rwxr-xr-x	2026-07-17 21:22
edit_host.cgi	3.84 KB	-rwxr-xr-x	2026-07-17 21:22
edit_pack.cgi	3.33 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	4.87 KB	-rwxr-xr-x	2026-07-17 21:22
install_pack.cgi	4.85 KB	-rwxr-xr-x	2026-07-17 21:22
list_pack.cgi	2.28 KB	-rwxr-xr-x	2026-07-17 21:22
module.info	440 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	201 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	251 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	155 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	31 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	40 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	122 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	153 B	-rw-r--r--	2026-07-17 21:17
module.info.de	133 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	25 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	263 B	-rw-r--r--	2026-07-17 21:17
module.info.es	39 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	141 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	228 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	156 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	41 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	139 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	155 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	33 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	125 B	-rw-r--r--	2026-07-17 21:17
module.info.it	0 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	147 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	228 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	193 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	119 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	25 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	35 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	122 B	-rw-r--r--	2026-07-17 21:17
module.info.no	35 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	115 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	132 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	33 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	154 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	163 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	278 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	162 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	151 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	159 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	272 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	131 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	140 B	-rw-r--r--	2026-07-17 21:17
open.cgi	250 B	-rwxr-xr-x	2026-07-17 21:22
openall.cgi	427 B	-rwxr-xr-x	2026-07-17 21:22
prefs.info	28 B	-rw-r--r--	2026-07-17 21:17
refresh.cgi	1.61 KB	-rwxr-xr-x	2026-07-17 21:22
search.cgi	1.97 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/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);
		}
	}
}