Gecko [ 122.154.134.11 ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	2.47 KB	-rw-r--r--
acl_security.pl	1 KB	-rwxr-xr-x
backup_config.pl	874 B	-rwxr-xr-x
check.cgi	503 B	-rwxr-xr-x
clear.cgi	313 B	-rwxr-xr-x
config	166 B	-rw-r--r--
config.info	509 B	-rw-r--r--
config.info.ca	565 B	-rw-r--r--
config.info.ca.UTF-8	573 B	-rw-r--r--
config.info.de	566 B	-rw-r--r--
config.info.de.UTF-8	566 B	-rw-r--r--
config.info.es	317 B	-rw-r--r--
config.info.es.UTF-8	317 B	-rw-r--r--
config.info.fr	502 B	-rw-r--r--
config.info.fr.UTF-8	502 B	-rw-r--r--
config.info.ms_MY	404 B	-rw-r--r--
config.info.ms_MY.UTF-8	404 B	-rw-r--r--
config.info.nl	394 B	-rw-r--r--
config.info.nl.UTF-8	394 B	-rw-r--r--
config.info.no	414 B	-rw-r--r--
config.info.no.UTF-8	414 B	-rw-r--r--
defaultacl	19 B	-rw-r--r--
delete.cgi	530 B	-rwxr-xr-x
down.cgi	403 B	-rwxr-xr-x
dump.cgi	337 B	-rwxr-xr-x
edit.cgi	1.69 KB	-rwxr-xr-x
editcmt.cgi	1014 B	-rwxr-xr-x
index.cgi	2.52 KB	-rwxr-xr-x
install_check.pl	380 B	-rwxr-xr-x
list.cgi	3.39 KB	-rwxr-xr-x
log_parser.pl	461 B	-rwxr-xr-x
manual_form.cgi	710 B	-rwxr-xr-x
manual_save.cgi	555 B	-rwxr-xr-x
module.info	169 B	-rw-r--r--
module.info.ca	98 B	-rw-r--r--
module.info.ca.UTF-8	112 B	-rw-r--r--
module.info.cz	27 B	-rw-r--r--
module.info.cz.UTF-8	33 B	-rw-r--r--
module.info.de	120 B	-rw-r--r--
module.info.de.UTF-8	132 B	-rw-r--r--
module.info.es	30 B	-rw-r--r--
module.info.es.UTF-8	36 B	-rw-r--r--
module.info.hu	25 B	-rw-r--r--
module.info.hu.UTF-8	32 B	-rw-r--r--
module.info.ms_MY	119 B	-rw-r--r--
module.info.ms_MY.UTF-8	131 B	-rw-r--r--
module.info.nl	27 B	-rw-r--r--
module.info.nl.UTF-8	33 B	-rw-r--r--
module.info.no	27 B	-rw-r--r--
module.info.no.UTF-8	33 B	-rw-r--r--
refresh.cgi	427 B	-rwxr-xr-x
restart.cgi	423 B	-rwxr-xr-x
save.cgi	1.08 KB	-rwxr-xr-x
savecmt.cgi	867 B	-rwxr-xr-x
shorewall-lib.pl	57.9 KB	-rwxr-xr-x
start.cgi	413 B	-rwxr-xr-x
status.cgi	343 B	-rwxr-xr-x
stop.cgi	312 B	-rwxr-xr-x
up.cgi	397 B	-rwxr-xr-x

Code Editor : list.cgi

#!/usr/bin/perl
# list.cgi
# Display the contents of some table

require './shorewall-lib.pl';
&ReadParse();
&can_access($in{'table'}) || &error($text{'list_ecannot'});
&get_clean_table_name(\%in);
&ui_print_header(undef, $text{$in{'tableclean'}."_title"}, "");

$desc = $text{$in{'tableclean'}."_desc"};
print "$desc\n" if ($desc);

$pfunc = &get_parser_func(\%in);
@table = &read_table_file($in{'table'}, $pfunc);
$cfunc = $in{'tableclean'}."_columns";
$cols = &$cfunc() if (defined(&$cfunc));
$nfunc = $in{'tableclean'}."_colnames";
#&debug_message("cfunc = $cfunc");
#&debug_message("nfunc = $nfunc");
if (defined(&$nfunc)) {
	@colnames = &$nfunc();
	}
else {
	@colnames = ( );
	for($j=0; defined($cols) ? ($j<$cols) : ($text{$in{'tableclean'}."_".$j}); $j++) {
		push(@colnames, $text{$in{'tableclean'}."_".$j});
		}
	}

# Work out select/create links
@links = ( &select_all_link("d"),
	   &select_invert_link("d"),
	   &ui_link("edit.cgi?table=$in{'table'}&new=1",
		    $text{$in{'tableclean'}."_add"}) );
if (&version_atleast(3, 3, 3) && &indexof($in{'table'}, @comment_tables) >= 0) {
	push(@links, &ui_link("editcmt.cgi?table=$in{'table'}&new=1",$text{"comment_add"}));
	}

# Show the table
if (@table) {
	print &ui_form_start("delete.cgi", "post");
	print &ui_hidden("table", $in{'table'}),"\n";
	print &ui_links_row(\@links);
	print &ui_columns_start([
		"",
		@colnames,
		(@table > 1 ? ( $text{'list_move'} ) : ( )),
		$text{'list_add'}
		], undef, 0, [ "width=5" ]);

$rfunc = $in{'tableclean'}."_row";
	for($i=0; $i<@table; $i++) {
		@t = @{$table[$i]};
		local @cols;
		local @tds;
		if ($t[0] =~ /\??COMMENT/) {
			# Special case - a comment line
			push(@cols, "<a href='editcmt.cgi?table=$in{'table'}&".
				 "idx=$i'>".join(" ", @t[1..$#t]).
				 "</a>" );
			@tds = ( "width=5", "colspan=".scalar(@colnames) );
			}
		else {
			# Some rule or other object
			if (defined(&$rfunc)) {
				@t = &$rfunc(@t);
				}
			for($j=0; $j<@colnames; $j++) {
				if ($j == 0) {
					$lnk = &ui_link("edit.cgi?table=$in{'table'}&idx=$i",$t[$j]);
					}
				else {
					$lnk = $t[$j];
					}
				push(@cols, $lnk);
				}
			@tds = ( "width=5" );
			}
		if (@table > 1) {
			$mover = "";
			if ($i == 0) {
				$mover .= "<img src=images/gap.gif>";
				}
			else {
				$mover .= &ui_link("up.cgi?table=$in{'table'}&idx=$i","<img src=images/up.gif border=0>")."\n";
				}
			if ($i == $#table) {
				$mover .= "<img src=images/gap.gif>";
				}
			else {
				$mover .= &ui_link("down.cgi?table=$in{'table'}&idx=$i","<img src=images/down.gif border=0>")."\n";
				}
			push(@cols, $mover);
			}
		push(@cols,
		 "<a href='edit.cgi?table=$in{'table'}&new=1&before=$i'>".
		 "<img src=images/before.gif border=0></a>\n".
		 "<a href='edit.cgi?table=$in{'table'}&new=1&after=$i'>".
		 "<img src=images/after.gif border=0></a>\n");
		print &ui_checked_columns_row(\@cols, \@tds, "d", $i);
		}
	print &ui_columns_end();
	}
else {
	print "",$text{$in{'tableclean'}."_none"},"\n";
	shift(@links); shift(@links);
	}
print &ui_links_row(\@links);
if (@table) {
	print &ui_form_end([ [ "delete", $text{'list_delete'} ] ]);
	}

print &ui_hr();
print &ui_buttons_start();
print &ui_buttons_row("manual_form.cgi", $text{'list_manual'},
		 &text('list_manualdesc',
			"<tt>$config{'config_dir'}/$in{'table'}</tt>"),
		 &ui_hidden("table", $in{'table'}));
print &ui_buttons_end();

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

${this.title}

Code Editor : list.cgi