Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
apply.cgi	219 B	-rwxr-xr-x	2026-07-17 21:22
backup_config.pl	630 B	-rwxr-xr-x	2026-07-17 21:17
config	479 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	415 B	-rw-r--r--	2026-07-17 21:17
config-generic-linux	322 B	-rw-r--r--	2026-07-17 21:17
config-slackware-linux	322 B	-rw-r--r--	2026-07-17 21:17
config-solaris	235 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	219 B	-rw-r--r--	2026-07-17 21:17
config.info	726 B	-rw-r--r--	2026-07-17 21:17
config.info.bg	1.28 KB	-rw-r--r--	2026-07-17 21:17
config.info.ca	846 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	676 B	-rw-r--r--	2026-07-17 21:17
config.info.de	862 B	-rw-r--r--	2026-07-17 21:17
config.info.es	524 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	483 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	798 B	-rw-r--r--	2026-07-17 21:17
config.info.no	760 B	-rw-r--r--	2026-07-17 21:17
edit_auth.cgi	944 B	-rwxr-xr-x	2026-07-17 21:22
edit_conf.cgi	6.68 KB	-rwxr-xr-x	2026-07-17 21:22
edit_node.cgi	2.96 KB	-rwxr-xr-x	2026-07-17 21:22
edit_res.cgi	2.26 KB	-rwxr-xr-x	2026-07-17 21:22
feedback_files.pl	110 B	-rwxr-xr-x	2026-07-17 21:17
heartbeat-lib.pl	4.79 KB	-rwxr-xr-x	2026-07-17 21:17
index.cgi	3.3 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	564 B	-rwxr-xr-x	2026-07-17 21:17
module.info	200 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	178 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	248 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	135 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	22 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	26 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	138 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	124 B	-rw-r--r--	2026-07-17 21:17
module.info.de	129 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	19 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	260 B	-rw-r--r--	2026-07-17 21:17
module.info.es	26 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	143 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	146 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	181 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	140 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	168 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	147 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	159 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	151 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	190 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	169 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	121 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	18 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	25 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	112 B	-rw-r--r--	2026-07-17 21:17
module.info.no	29 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	103 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	147 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	166 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	175 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	237 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	141 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	134 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	220 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	118 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	127 B	-rw-r--r--	2026-07-17 21:17
save_auth.cgi	469 B	-rwxr-xr-x	2026-07-17 21:22
save_conf.cgi	3.56 KB	-rwxr-xr-x	2026-07-17 21:22
save_node.cgi	1.27 KB	-rwxr-xr-x	2026-07-17 21:22
start.cgi	246 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# edit_res.cgi
# 
# extension of edit_res.cgi including display of 
# actual resource status and possibility to request
# a resource
#
# Christof Amelunxen, 22.08.2003
#

require './heartbeat-lib.pl';

# if called with parameter getserv this is a get_resource request
ReadParse();
if ($in{getserv} && -f $config{'pid_file'}) { 
	unless (check_status_resource($in{getserv})) {
	get_resource($in{getserv});
	# ugly hack to show the changed status immediately
	sleep 5;
	# redirect to url without appending parameters (to avoid reload button problem)
	redirect("$ENV{SCRIPT_NAME}");	
	exit 0;
	}
}

# normal processing starts here
&ui_print_header(undef, $text{'res_title'}, "");

@res = &list_resources();
if (@res) {
	print "<table border width=100%>\n";
	print "<tr $tb> <td><b>$text{'res_node'}</b></td> ",
	      "<td><b>$text{'res_ips'}</b></td> ",
	      "<td><b>$text{'res_servs'}</b></td>\n",
	      "<td><b>$text{'res_active'}</b></td>\n",
	      "<td><b>$text{'res_getserv'}</b></td> </tr>\n";
	local $i = 0;
	foreach $r (@res) {
		print "<tr $cb> <td><a href='edit_node.cgi?idx=$i'>",
		      "$r->{'node'}</a></td>\n";
		printf "<td>%s</td>\n",
			$r->{'ips'} ? join(" ", @{$r->{'ips'}})
				    : $text{'res_none'};
		printf "<td>%s</td>\n", $r->{'servs'} ?
		    join("&nbsp;,&nbsp;", map { s/::/ /g; $_ } @{$r->{'servs'}})
		    : $text{'res_none'};
                if (check_status_resource(@{$r->{'ips'}})) {
                        print "<td bgcolor=#00FF00>$text{'res_up'}</td>";
                } else {
                        print "<td bgcolor=#FF0000>$text{'res_down'}</td>";
                }
                print "<td>";
                if ( -f $config{'pid_file'}) {
                        print "<form action=edit_res.cgi>\n";
                        print "<input type=hidden name=getserv value=@{$r->{'ips'}}>\n";
                        print "<input type=submit value='$text{'res_getserv'}'>\n";
                        print "</form>\n";
                } else {
                        print "$text{res_hbdown}";
                }
                print "</td></tr>";

$i++;
		}
	print "</table>\n";
	}
else {
	print "<b>$text{'res_nores'}</b><p>\n";
	}
print &ui_link("edit_node.cgi?new=1", $text{'res_add'}),"<p>\n";

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