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
# search.cgi
# Display a list of packages where the name or description matches some string

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

$s = $in{'search'};
@hosts = &list_software_hosts();
@servers = &list_servers();
foreach $h (@hosts) {
	$anymatch = 0;
	foreach $p (@{$h->{'packages'}}) {
		if (($p->{'name'} =~ /\Q$s\E/i || $p->{'desc'} =~ /\Q$s\E/i) &&
		    !$already{$p->{'name'}}++) {
			push(@match, $p);
			$anymatch = 1;
			}
		}
	if ($anymatch) {
		push(@servs, &host_to_server($h));
		}
	}
if (@match == 1) {
	&redirect("edit_pack.cgi?package=".&urlize($match[0]->{'name'}));
	exit;
	}

&ui_print_header(undef, $text{'search_title'}, "", "search");
if (@match) {
	@match = sort { lc($a->{'name'}) cmp lc($b->{'name'}) } @match;
	print "",&text('search_match', "<tt>".&html_escape($s)."</tt>")," \n";

print &ui_form_start("delete_packs.cgi", "post");
	print &ui_hidden("search", $in{'search'}),"\n";
	@links = ( &select_all_link("del", 0),
		 &select_invert_link("del", 0) );
	@tds = ( "width=5" );
	print &ui_links_row(\@links);
	print &ui_columns_start([ "",
				 $text{'search_pack'},
				 $text{'search_class'},
				 $text{'search_desc'} ], 100, 0, \@tds);
	foreach $i (@match) {
		local @cols;
		push(@cols, "<a href=\"edit_pack.cgi?search=".&urlize($s).
		 "&package=".&urlize($i->{'name'})."\">$i->{'name'}</a>");
		$c = $i->{'class'};
		push(@cols, $i->{'class'} || $text{'search_none'});
		push(@cols, $i->{'desc'});
		print &ui_checked_columns_row(\@cols, \@tds,
					 "del", $i->{'name'});
		}
	print &ui_columns_end();
	print &ui_links_row(\@links);

# Show button to delete, and servers to remove from
	print &ui_submit($text{'search_delete'}),"\n";
	print &ui_select("server", undef,
			 [ [ -1, $text{'edit_all'} ],
			 map { [ $_->{'id'}, &server_name($_) ] } @servs ]);
	print &ui_form_end();
	}
else {
	print "",&text('search_nomatch', "<tt>".&html_escape($s)."</tt>"),"\n";
	}

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