Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
acl_security.pl	1.41 KB	-rwxr-xr-x
apply.cgi	512 B	-rwxr-xr-x
backup_config.pl	649 B	-rwxr-xr-x
bootup.cgi	600 B	-rwxr-xr-x
cgi_args.pl	430 B	-rwxr-xr-x
cluster.cgi	2.08 KB	-rwxr-xr-x
cluster_add.cgi	2.19 KB	-rwxr-xr-x
cluster_delete.cgi	651 B	-rwxr-xr-x
coherent-linux-lib.pl	1.54 KB	-rwxr-xr-x
config	83 B	-rw-r--r--
config.info	1.23 KB	-rw-r--r--
config.info.ca	1.5 KB	-rw-r--r--
config.info.cs	982 B	-rw-r--r--
config.info.de	1.42 KB	-rw-r--r--
config.info.fr	1.63 KB	-rw-r--r--
config.info.ja	421 B	-rw-r--r--
config.info.nl	976 B	-rw-r--r--
config.info.no	968 B	-rw-r--r--
config.info.pl	1012 B	-rw-r--r--
config.info.pt_BR	983 B	-rw-r--r--
config.info.ru	1.31 KB	-rw-r--r--
config.info.sk	989 B	-rw-r--r--
config.info.tr	827 B	-rw-r--r--
convert.cgi	756 B	-rwxr-xr-x
debian-linux-lib.pl	4.59 KB	-rwxr-xr-x
defaultacl	100 B	-rw-r--r--
edit_rule.cgi	14.88 KB	-rwxr-xr-x
firewall-lib.pl	17.32 KB	-rwxr-xr-x
firewall4-lib.pl	1.82 KB	-rwxr-xr-x
firewall6-lib.pl	1.76 KB	-rwxr-xr-x
gentoo-linux-lib.pl	722 B	-rwxr-xr-x
index.cgi	16.42 KB	-rwxr-xr-x
install_check.pl	841 B	-rwxr-xr-x
log_parser.pl	835 B	-rwxr-xr-x
mandrake-linux-lib.pl	1.69 KB	-rwxr-xr-x
module.info	238 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	182 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	254 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	278 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	299 B	-rw-r--r--
module.info.ca	155 B	-rw-r--r--
module.info.ca.auto	18 B	-rw-r--r--
module.info.cs	0 B	-rw-r--r--
module.info.cs.auto	194 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	183 B	-rw-r--r--
module.info.de	161 B	-rw-r--r--
module.info.de.auto	18 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	346 B	-rw-r--r--
module.info.es	0 B	-rw-r--r--
module.info.es.auto	185 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	167 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	268 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	186 B	-rw-r--r--
module.info.fr	0 B	-rw-r--r--
module.info.fr.auto	180 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	251 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	173 B	-rw-r--r--
module.info.hu	0 B	-rw-r--r--
module.info.hu.auto	201 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	174 B	-rw-r--r--
module.info.ja	0 B	-rw-r--r--
module.info.ja.auto	263 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	206 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	209 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	180 B	-rw-r--r--
module.info.ms	0 B	-rw-r--r--
module.info.ms.auto	176 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	192 B	-rw-r--r--
module.info.nl	0 B	-rw-r--r--
module.info.nl.auto	186 B	-rw-r--r--
module.info.no	0 B	-rw-r--r--
module.info.no.auto	176 B	-rw-r--r--
module.info.pl	0 B	-rw-r--r--
module.info.pl.auto	197 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	172 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	181 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	186 B	-rw-r--r--
module.info.ru	0 B	-rw-r--r--
module.info.ru.auto	250 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	203 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	182 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	177 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	275 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	222 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	291 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	306 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	205 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	146 B	-rw-r--r--
module.info.zh_TW	0 B	-rw-r--r--
module.info.zh_TW.auto	155 B	-rw-r--r--
move.cgi	1.29 KB	-rwxr-xr-x
newchain.cgi	898 B	-rwxr-xr-x
open-ports.pl	3.4 KB	-rwxr-xr-x
prefs.info	55 B	-rw-r--r--
redhat-linux-lib.pl	2.14 KB	-rwxr-xr-x
save_policy.cgi	7.15 KB	-rwxr-xr-x
save_rule.cgi	12.4 KB	-rwxr-xr-x
save_rule6.cgi	12.05 KB	-rwxr-xr-x
setup.cgi	9.36 KB	-rwxr-xr-x
setup6.cgi	8.12 KB	-rwxr-xr-x
trustix-linux-lib.pl	2.14 KB	-rwxr-xr-x
unapply.cgi	609 B	-rwxr-xr-x

Code Editor : save_policy.cgi

#!/usr/bin/perl
# save_policy.cgi
# Change the default policy for some chain

require './firewall-lib.pl';
&ReadParse();
if (&get_ipvx_version() == 6) {
	require './firewall6-lib.pl';
	}
else {
	require './firewall4-lib.pl';
	}
@tables = &get_iptables_save();
$table = $tables[$in{'table'}];
&can_edit_table($table->{'name'}) || &error($text{'etable'});
@d = split(/\0/, $in{'d'});

if ($in{'add'}) {
	# Redirect to the rule page for adding a rule
	&redirect("edit_rule.cgi?version=${ipvx_arg}&table=".&urlize($in{'table'}).
		  "&chain=".&urlize($in{'chain'})."&new=1");
	}
elsif ($in{'delete'} && $in{'confirm'}) {
	# Delete this entire chain and all rules in it
	&lock_file($ipvx_save);
	$access{'delchain'} || &error($text{'delete_ecannot'});
	$table->{'rules'} = [ grep { $_->{'chain'} ne $in{'chain'} }
				   @{$table->{'rules'}} ];
	delete($table->{'defaults'}->{$in{'chain'}});
	&run_before_command();
	&save_table($table);
	&run_after_command();
	&copy_to_cluster();
	&unlock_file($ipvx_save);
	&webmin_log("delete", "chain", undef, { 'chain' => $in{'chain'},
						'table' => $table->{'name'} });
	&redirect("index.cgi?version=${ipvx_arg}&table=".&urlize($in{'table'}));
	}
elsif ($in{'clear'} && $in{'confirm'}) {
	# Delete all rules from this chain
	$access{'delchain'} || &error($text{'clear_ecannot'});
	&lock_file($ipvx_save);
	$table->{'rules'} = [ grep { $_->{'chain'} ne $in{'chain'} }
				   @{$table->{'rules'}} ];
	&run_before_command();
	&save_table($table);
	&run_after_command();
	&copy_to_cluster();
	&unlock_file($ipvx_save);
	&webmin_log("clear", "chain", undef, { 'chain' => $in{'chain'},
					       'table' => $table->{'name'} });
	&redirect("index.cgi?version=${ipvx_arg}&table=".&urlize($in{'table'}));
	}
elsif ($in{'delete'} || $in{'clear'}) {
	# Ask for confirmation on deleting the chain
	$mode = $in{'delete'} ? "delete" : "clear";
	$access{'delchain'} || &error($text{$mode.'_ecannot'});
	&ui_print_header($text{"index_title_v${ipvx}"}, $text{$mode.'_title'}, "");

@rules = grep { $_->{'chain'} eq $in{'chain'} } @{$table->{'rules'}};
	print &ui_form_start("save_policy.cgi");
        print &ui_hidden("version", ${ipvx_arg});
	print &ui_hidden("table", $in{'table'});
	print &ui_hidden("chain", $in{'chain'});
	print &ui_hidden($mode, 1);
	print "<center><b>",&text($mode.'_rusure', "<tt>$in{'chain'}</tt>",
				  scalar(@rules)),"</b><p>\n";
	print &ui_submit($text{'delete_ok'}, 'confirm');
	print "</center>\n";
	print &ui_form_end();

&ui_print_footer("index.cgi?version=${ipvx_arg}&table=".&urlize($in{'table'}),
			 $text{'index_return'});
	}
elsif ($in{'rename'} && $in{'newname'}) {
	# Rename a chain
	&lock_file($ipvx_save);
	$access{'delchain'} || &error($text{'rename_ecannot'});
	$in{'newname'} =~ /^\S+$/ || &error($text{'new_ename'});

# Change the chain on each rule
	foreach $r (@{$table->{'rules'}}) {
		if ($r->{'chain'} eq $in{'chain'}) {
			$r->{'chain'} = $in{'newname'};
			}
		}

# Rename the default
	$table->{'defaults'}->{$in{'newname'}} =
		$table->{'defaults'}->{$in{'chain'}};
	delete($table->{'defaults'}->{$in{'chain'}});

# Adjust any other rules
	if ($in{'adjust'}) {
		foreach $r (@{$table->{'rules'}}) {
			if ($r->{'j'} && $r->{'j'}->[1] eq $in{'chain'}) {
				$r->{'j'}->[1] = $in{'newname'};
				}
			}
		}

&run_before_command();
	&save_table($table);
	&run_after_command();
	&copy_to_cluster();
	&unlock_file($ipvx_save);
	&webmin_log("rename", "chain", undef, { 'chain' => $in{'chain'},
						'table' => $table->{'name'} });
	&redirect("index.cgi?version=${ipvx_arg}&table=".&urlize($in{'table'}));
	}
elsif ($in{'rename'}) {
	# Show chain rename form
	&ui_print_header($text{"index_title_v${ipvx}"}, $text{'rename_title'}, "");

print &ui_form_start("save_policy.cgi");
        print &ui_hidden("version", ${ipvx_arg});
	print &ui_hidden("table", $in{'table'});
	print &ui_hidden("chain", $in{'chain'});
	print &ui_hidden("rename", 1);
	print &ui_table_start($text{'rename_header'}, undef, 2);

# Number of rules and old name
	@rules = grep { $_->{'chain'} eq $in{'chain'} } @{$table->{'rules'}};
	print &ui_table_row($text{'rename_chain'}, $in{'chain'});
	print &ui_table_row($text{'rename_count'},
		scalar(@rules) || $text{'rename_none'});

# Destination chain
	print &ui_table_row($text{'rename_name'},
		&ui_textbox("newname", undef, 20));

# Adjust other rules?
	print &ui_table_row(" ",
		&ui_checkbox("adjust", 1, $text{'rename_adjust'}, 1));

print &ui_table_end();
	print &ui_form_end([ [ undef, $text{'rename_ok'} ] ]);

&ui_print_footer("index.cgi?version=${ipvx_arg}&table=".&urlize($in{'table'}),
			 $text{'index_return'});
	}
elsif ($in{'delsel'}) {
	# Just delete selected rules
	%idxs = map { $_, 1 } @d;
	&lock_file($ipvx_save);
	$table->{'rules'} = [ grep { $_->{'chain'} ne $in{'chain'} ||
				     !$idxs{$_->{'index'}} }
				   @{$table->{'rules'}} ];
	&run_before_command();
	&save_table($table);
	&run_after_command();
	&copy_to_cluster();
	&unlock_file($ipvx_save);
	&webmin_log("delsel", "chain", undef, { 'chain' => $in{'chain'},
					        'table' => $table->{'name'},
						'count' => scalar(@d)});
	&redirect("index.cgi?version=${ipvx_arg}&table=".&urlize($in{'table'}));
	}
elsif ($in{'movesel'} && $in{'dest'}) {
	# Move selected rules to new chain
	%idxs = map { $_, 1 } @d;
        &lock_file($ipvx_save);

# Change the chain on each rule
	foreach $r (@{$table->{'rules'}}) {
		if ($r->{'chain'} eq $in{'chain'} && $idxs{$r->{'index'}}) {
			$r->{'chain'} = $in{'dest'};
			}
		}

&run_before_command();
	&save_table($table);
	&run_after_command();
	&copy_to_cluster();
	&unlock_file($ipvx_save);
	&webmin_log("movesel", "chain", undef, { 'chain' => $in{'chain'},
					         'table' => $table->{'name'},
						 'count' => scalar(@d)});
	&redirect("index.cgi?version=${ipvx_arg}&table=".&urlize($in{'table'}));
	}
elsif ($in{'movesel'}) {
	# Show rule move form
	&ui_print_header($text{"index_title_v${ipvx}"}, $text{'move_title'}, "");

print &ui_form_start("save_policy.cgi");
        print &ui_hidden("version", ${ipvx_arg});
	print &ui_hidden("table", $in{'table'});
	print &ui_hidden("chain", $in{'chain'});
	print &ui_hidden("movesel", 1);
	foreach $d (@d) {
		print &ui_hidden("d", $d);
		}
	print &ui_table_start($text{'move_header'}, undef, 2);

# Number of rules and source
	print &ui_table_row($text{'move_count'}, scalar(@d));
	print &ui_table_row($text{'move_chain'}, $in{'chain'});

# Destination chain
	print &ui_table_row($text{'move_dest'},
		&ui_select("dest", $in{'chain'},
		   [ grep { $_ ne $in{'chain'} }
			  sort by_string_for_iptables
			       (keys %{$table->{'defaults'}}) ]));

print &ui_table_end();
	print &ui_form_end([ [ undef, $text{'move_ok'} ] ]);

&ui_print_footer("index.cgi?version=${ipvx_arg}&table=".&urlize($in{'table'}),
			 $text{'index_return'});
	}
else {
	# Change the default for this chain
	$access{'policy'} || &error($text{'policy_ecannot'});
	&lock_file($ipvx_save);
	$table->{'defaults'}->{$in{'chain'}} = $in{'policy'};
	&run_before_command();
	&save_table($table);
	&run_after_command();
	&copy_to_cluster();
	&unlock_file($ipvx_save);
	&webmin_log("modify", "chain", undef, { 'chain' => $in{'chain'},
					        'table' => $table->{'name'} });
	&redirect("index.cgi?version=${ipvx_arg}&table=".&urlize($in{'table'}));
	}

${this.title}

Code Editor : save_policy.cgi