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_pack.cgi
# Display details of a package

require './cluster-software-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'edit_title'}, "", "edit_pack");

# Find all hosts with the package
@hosts = &list_software_hosts();
@servers = &list_servers();
foreach $h (@hosts) {
	foreach $p (@{$h->{'packages'}}) {
		if ($p->{'name'} eq $in{'package'}) {
			local ($s) = grep { $_->{'id'} == $h->{'id'} } @servers;
			push(@got, $s);
			$version{$s} = $p->{'version'};
			$pkg = $p if (!$pkg);
			$checkon = $s if (!$s->{'id'});
			}
		}
	}

# Get the details from this host, or the first in the list
$checkon = $got[0] if (!$checkon);
&remote_foreign_require($checkon->{'host'}, "software", "software-lib.pl");
@pinfo = &remote_foreign_call($checkon->{'host'}, "software", "package_info",
			      $in{'package'});

# Show package details
print "<table border width=100%>\n";
print "<tr $tb> <td><b>",&text('edit_details', $checkon->{'desc'} ?
	$checkon->{'desc'} : "<tt>$checkon->{'host'}</tt>"),"</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";

# Description, if we have one
if ($pinfo[2]) {
	print "<tr> <td valign=top width=20%><b>$text{'edit_desc'}</b></td>\n";
	print "<td colspan=3>",
	      &html_escape(&entities_to_ascii($pinfo[2])),
	      "</td> </tr>\n";
	}

print "<tr> <td width=20%><b>$text{'edit_pack'}</b></td> <td>$pinfo[0]</td>\n";
print "<td width=20%><b>$text{'edit_class'}</b></td> <td>",
      $pinfo[1] ? $pinfo[1] : $text{'edit_none'},"</td> </tr>\n";

print "<tr> <td width=20%><b>$text{'edit_ver'}</b></td> <td>$pinfo[4]</td>\n";
print "<td width=20%><b>$text{'edit_vend'}</b></td> <td>$pinfo[5]</td> </tr>\n";

print "<tr> <td width=20%><b>$text{'edit_arch'}</b></td> <td>$pinfo[3]</td>\n";
print "<td width=20%><b>$text{'edit_inst'}</b></td> <td>$pinfo[6]</td> </tr>\n";
print "</table></td></tr></table><p>\n";

print &ui_buttons_start();

# Show button to list files, if possible
@opts = map { [ $_->{'id'},
                ($_->{'desc'} || $_->{'realhost'} || $_->{'host'}) ] } @got;
if (!$pinfo[8]) {
	$ssel = &ui_select("server", undef, \@opts);
        print &ui_buttons_row("list_pack.cgi",
                $text{'edit_list'},
                $text{'edit_listdesc'},
                &ui_hidden("package", $pinfo[0]).
                &ui_hidden("search", $in{'search'}),
		$ssel);
	}

# Show button to un-install, if possible
if (!$pinfo[7]) {
	$ssel = &ui_select("server", undef, 
		[ [ -1, $text{'edit_all'} ], @opts ]);
        print &ui_buttons_row("delete_pack.cgi",
                $text{'edit_uninst'},
                $text{'edit_uninstdesc'},
                &ui_hidden("package", $pinfo[0]).
                &ui_hidden("search", $in{'search'}),
		$ssel);
	}

print &ui_buttons_end();

# Show hosts with the package
print &ui_hr();
print &ui_subheading($text{'edit_hosts'});
@icons = map { "/servers/images/$_->{'type'}.svg" } @got;
@links = map { "edit_host.cgi?id=$_->{'id'}" } @got;
@titles = map { ($_->{'desc'} ? $_->{'desc'} :
		 $_->{'realhost'} ? "$_->{'realhost'}:$_->{'port'}" :
			      "$_->{'host'}:$_->{'port'}").
		($version{$_} ? "<br>$text{'edit_ver'} $version{$_}" : "") } @got;
&icons_table(\@links, \@titles, \@icons);
print "<br>";

&remote_finished();
if ($in{'search'}) {
	&ui_print_footer("search.cgi?search=$in{'search'}", $text{'search_return'});
	}
else {
	&ui_print_footer("", $text{'index_return'});
	}