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
# create_table.cgi
# Create a new nftables table

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

my @families = qw(ip ip6 inet arp bridge netdev);
my %family_ok = map { $_ => 1 } @families;

if ($in{'create'}) {
	my $name = $in{'name'};
	my $family = $in{'family'};

$name =~ /^\w[\w-]*$/ || error($text{'create_ename'});
	$family_ok{$family} || error($text{'create_efamily'});

my @tables = get_nftables_save();
	foreach my $t (@tables) {
		if ($t->{'name'} eq $name && $t->{'family'} eq $family) {
			error($text{'create_edup'});
			}
		}
	my ($active, $active_err) = get_active_nftables_save();
	if (!$active_err) {
		foreach my $t (@$active) {
			if ($t->{'name'} eq $name &&
				$t->{'family'} eq $family &&
				table_is_externally_managed($t))
			{
				error(text('create_eexternal', nft_table_spec($t)));
				}
			}
		}

my $table = {
		'name' => $name,
		'family' => $family,
		'rules' => [ ],
		'chains' => {},
		'sets' => {}
	};
	assert_table_acl($table);
	push(@tables, $table);
	my $err = create_table_configuration($table, @tables);
	error(text('create_failed', $err)) if ($err);
	webmin_log("create", "table", $name, {'family' => $family});

redirect(
		"index.cgi?table_family=".urlize($family)."&table_name=".urlize($name));
	return;
	}

ui_print_header(undef, $text{'create_title'}, "");
print ui_form_start("create_table.cgi");
print ui_hidden("create", 1);

print ui_table_start($text{'create_header'}, "width=100%", 2);
print ui_table_row($text{'create_family'},
	ui_select("family", $in{'family'} || "inet", [map { [$_, $_] } @families]));
print ui_table_row($text{'create_name'}, ui_textbox("name", $in{'name'}, 30));
print ui_table_end();

print ui_form_end([[undef, $text{'create_ok'}]]);
ui_print_footer("index.cgi", $text{'index_return'});