Gecko [ 122.154.134.11 ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	896 B	-rw-r--r--
apply.cgi	271 B	-rwxr-xr-x
backup_config.pl	604 B	-rwxr-xr-x
bootup.cgi	252 B	-rwxr-xr-x
cluster.cgi	2.01 KB	-rwxr-xr-x
cluster_add.cgi	1.78 KB	-rwxr-xr-x
cluster_delete.cgi	522 B	-rwxr-xr-x
config	155 B	-rw-r--r--
config-freebsd	149 B	-rw-r--r--
config-solaris-10-ALL	177 B	-rw-r--r--
config.info	669 B	-rw-r--r--
config.info.ca	703 B	-rw-r--r--
config.info.ca.UTF-8	717 B	-rw-r--r--
config.info.de	747 B	-rw-r--r--
config.info.de.UTF-8	747 B	-rw-r--r--
config.info.nl	741 B	-rw-r--r--
config.info.nl.UTF-8	741 B	-rw-r--r--
convert.cgi	341 B	-rwxr-xr-x
edit_nat.cgi	7.83 KB	-rwxr-xr-x
edit_rule.cgi	9.81 KB	-rwxr-xr-x
index.cgi	8.42 KB	-rwxr-xr-x
install_check.pl	337 B	-rwxr-xr-x
ipfilter-lib.pl	39.31 KB	-rwxr-xr-x
log_parser.pl	928 B	-rwxr-xr-x
module.info	198 B	-rw-r--r--
module.info.ca	121 B	-rw-r--r--
module.info.ca.UTF-8	133 B	-rw-r--r--
module.info.de	97 B	-rw-r--r--
module.info.de.UTF-8	109 B	-rw-r--r--
module.info.nl	26 B	-rw-r--r--
module.info.nl.UTF-8	32 B	-rw-r--r--
move.cgi	427 B	-rwxr-xr-x
natmove.cgi	432 B	-rwxr-xr-x
save_nat.cgi	5.06 KB	-rwxr-xr-x
save_rule.cgi	4.88 KB	-rwxr-xr-x
setup.cgi	6.12 KB	-rwxr-xr-x
unapply.cgi	235 B	-rwxr-xr-x

Code Editor : cluster.cgi

#!/usr/bin/perl
# Show hosts in firewall cluster

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

# Show existing servers
@servers = &list_cluster_servers();
if (@servers) {
	print "<form action=cluster_delete.cgi>\n";
	print "<table border width=100%>\n";
	print "<tr $tb> <td width=10><br></td> ",
	      "<td><b>$text{'cluster_host'}</b></td> ",
	      "<td><b>$text{'cluster_desc'}</b></td> ",
	      "<td><b>$text{'cluster_os'}</b></td> </tr>\n";
	foreach $s (@servers) {
		print "<tr $cb>\n";
		print "<td width=10><input type=checkbox name=d value=$s->{'id'}></td>\n";
		print "<td>",$s->{'host'},"</td>\n";
		print "<td>",$s->{'desc'} || "<br>","</td>\n";
		foreach $t (@servers::server_types) {
			if ($t->[0] eq $s->{'type'}) {
				print "<td>$t->[1]</td>\n";
				}
			}
		print "</tr>\n";
		}
	print "</table>\n";
	print "<input type=submit value='$text{'cluster_delete'}'></form>\n";
	}
else {
	print "<b>$text{'cluster_none'}</b><p>\n";
	}

# Show buttons to add
print "<form action=cluster_add.cgi>\n";
print "<table width=100%><tr>\n";
@allservers = grep { $_->{'user'} } &servers::list_servers();
%gothost = map { $_->{'id'}, 1 } @servers;
@addservers = grep { !$gothost{$_->{'id'}} } @allservers;
if (@addservers) {
	print "<td><input type=submit name=add value='$text{'cluster_add'}'>\n";
	print "<select name=server>\n";
	foreach $s (@addservers) {
		print "<option value=$s->{'id'}>",
			$s->{'desc'} ? $s->{'desc'} : $s->{'host'},"</option>\n";
		}
	print "</select></td>\n";
	}
@groups = &servers::list_all_groups(\@allservers);
if (@groups) {
	print "<td align=right><input type=submit name=gadd ",
	      "value='$text{'cluster_gadd'}'>\n";
	print "<select name=group>\n";
	foreach $g (@groups) {
		print "<option>$g->{'name'}</option>\n";
		}
	print "</select></td>\n";
	}
print "</tr></table></form>\n";
if (!@allservers) {
	print "<b>$text{'cluster_need'}</b><p>\n";
	}

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

${this.title}

Code Editor : cluster.cgi