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
acl_security.pl	2.21 KB	-rw-r--r--	2026-07-17 21:17
active.cgi	2.63 KB	-rwxr-xr-x	2026-07-17 21:22
active_table.cgi	3.48 KB	-rwxr-xr-x	2026-07-17 21:22
apply-boot.pl	545 B	-rwxr-xr-x	2026-07-17 21:22
bootup.cgi	428 B	-rwxr-xr-x	2026-07-17 21:22
clear_table.cgi	1.18 KB	-rwxr-xr-x	2026-07-17 21:22
clear_tables.cgi	1.06 KB	-rwxr-xr-x	2026-07-17 21:22
config	65 B	-rw-r--r--	2026-07-17 21:17
config.info	456 B	-rw-r--r--	2026-07-17 21:17
create_table.cgi	1.85 KB	-rwxr-xr-x	2026-07-17 21:22
defaultacl	188 B	-rw-r--r--	2026-07-17 21:17
delete_chain.cgi	1.05 KB	-rwxr-xr-x	2026-07-17 21:22
delete_chains.cgi	1.68 KB	-rwxr-xr-x	2026-07-17 21:22
delete_set.cgi	860 B	-rwxr-xr-x	2026-07-17 21:22
delete_sets.cgi	1.46 KB	-rwxr-xr-x	2026-07-17 21:22
delete_table.cgi	1.72 KB	-rwxr-xr-x	2026-07-17 21:22
edit_chain.cgi	2.6 KB	-rwxr-xr-x	2026-07-17 21:22
edit_manual.cgi	1.06 KB	-rwxr-xr-x	2026-07-17 21:22
edit_rule.cgi	22.11 KB	-rwxr-xr-x	2026-07-17 21:22
edit_set.cgi	2.53 KB	-rwxr-xr-x	2026-07-17 21:22
import_table.cgi	3.21 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	21.6 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	538 B	-rw-r--r--	2026-07-17 21:17
manage_forward.cgi	1.42 KB	-rwxr-xr-x	2026-07-17 21:22
manage_ip.cgi	1.46 KB	-rwxr-xr-x	2026-07-17 21:22
manage_port.cgi	1.74 KB	-rwxr-xr-x	2026-07-17 21:22
module.info	201 B	-rw-r--r--	2026-07-17 21:17
move_rule.cgi	981 B	-rwxr-xr-x	2026-07-17 21:22
nftables-lib.pl	106.64 KB	-rw-r--r--	2026-07-17 21:17
rename_chain.cgi	1.03 KB	-rwxr-xr-x	2026-07-17 21:22
restart.cgi	359 B	-rwxr-xr-x	2026-07-17 21:22
save_chain.cgi	2.93 KB	-rwxr-xr-x	2026-07-17 21:22
save_manual.cgi	787 B	-rwxr-xr-x	2026-07-17 21:22
save_rule.cgi	7.94 KB	-rwxr-xr-x	2026-07-17 21:22
save_set.cgi	1.66 KB	-rwxr-xr-x	2026-07-17 21:22
search_services.cgi	487 B	-rwxr-xr-x	2026-07-17 21:22
setup.cgi	4.96 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# save_chain.cgi
# Save a new or existing chain

require './nftables-lib.pl';    ## no critic
use strict;
use warnings;
our (%in, %text);
ReadParse();
error_setup($text{'chain_err'});
assert_acl('chains');

my @tables = get_nftables_save();
my $table = $tables[$in{'table'}];
$table || error($text{'chain_notable'});
assert_table_acl($table);

my $is_new = $in{'new'} ? 1 : 0;
my $is_rename = $in{'rename'} ? 1 : 0;
my $name = $in{'chain_name'};
$name =~ s/^\s+// if (defined($name));
$name =~ s/\s+$// if (defined($name));
$name =~ /^\w[\w-]*$/ || error($text{'chain_ename'});

my $old = $is_rename ? $in{'chain_old'} : $name;
$old =~ s/^\s+// if (defined($old));
$old =~ s/\s+$// if (defined($old));

if ($is_new) {
	$table->{'chains'}->{$name} && error($text{'chain_edup'});
	}
elsif ($is_rename) {
	$table->{'chains'}->{$old} || error($text{'chain_nochain'});
	if ($name ne $old && $table->{'chains'}->{$name}) {
		error($text{'chain_edup'});
		}
	}
else {
	$table->{'chains'}->{$name} || error($text{'chain_nochain'});
	}

if ($is_rename) {
	if ($name eq $old) {
		redirect("index.cgi?table=$in{'table'}");
		return;
		}
	if ($name ne $old) {
		$table->{'chains'}->{$name} = $table->{'chains'}->{$old};
		delete($table->{'chains'}->{$old});

foreach my $r (@{$table->{'rules'}}) {
			$r->{'chain'} = $name
			    if ($r->{'chain'} && $r->{'chain'} eq $old);
			my $changed = 0;
			if ($r->{'jump'} && $r->{'jump'} eq $old) {
				$r->{'jump'} = $name;
				$changed = 1;
				}
			if ($r->{'goto'} && $r->{'goto'} eq $old) {
				$r->{'goto'} = $name;
				$changed = 1;
				}
			$r->{'text'} = format_rule_text($r) if ($changed);
			}
		}

my $err = save_table_configuration($table, @tables);
	error(text('rename_chain_failed', $err)) if ($err);
	webmin_log(
		"rename", "chain", $old,
		{
			'new' => $name,
			'table' => $table->{'name'},
			'family' => $table->{'family'}
		}
	);
	redirect("index.cgi?table=$in{'table'}");
	return;
	}

my $type = $in{'chain_type'};
my $hook = $in{'chain_hook'};
my $priority = $in{'chain_priority'};
my $policy = $in{'chain_policy'};

for my $v (\$type, \$hook, \$priority, \$policy) {
	$$v =~ s/^\s+// if (defined($$v));
	$$v =~ s/\s+$// if (defined($$v));
	}
$type = undef if (!defined($type) || $type eq '');
$hook = undef if (!defined($hook) || $hook eq '');
$priority = undef if (!defined($priority) || $priority eq '');
$policy = undef if (!defined($policy) || $policy eq '');

validate_chain_base($type, $hook, $priority, $policy) ||
    error($text{'chain_ebase'});

my $chain = $table->{'chains'}->{$name} || {};
$chain->{'type'} = $type;
$chain->{'hook'} = $hook;
$chain->{'priority'} = $priority;
$chain->{'policy'} = $policy;
$table->{'chains'}->{$name} = $chain;

my $err = save_table_configuration($table, @tables);
error(text('chain_failed', $err)) if ($err);

webmin_log($is_new ? "create" : "modify",
	"chain", $name, {'table' => $table->{'name'}, 'family' => $table->{'family'}});
redirect("index.cgi?table=$in{'table'}");