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
# edit_set.cgi
# Display a form for creating or editing a set

require './nftables-lib.pl';    ## no critic
use strict;
use warnings;
our (%in, %text);
ReadParse();
assert_acl('sets');

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

my $set = {};
my $set_name = "";
my $is_new = $in{'new'} ? 1 : 0;

if ($is_new) {
	ui_print_header(undef, $text{'set_title_new'}, "");
	}
else {
	$set_name = $in{'set'};
	$set = $table->{'sets'}->{$set_name};
	$set || error($text{'set_noset'});
	ui_print_header(undef, $text{'set_title_edit'}, "");
	}

my $elements_text = set_elements_text($set);
my @type_opts = (
	["", $text{'set_type_select'}],
	["ipv4_addr", "ipv4_addr"],
	["ipv6_addr", "ipv6_addr"],
	["ether_addr", "ether_addr"],
	["inet_proto", "inet_proto"],
	["inet_service", "inet_service"],
	["mark", "mark"],
);
my %type_seen = map { $_->[0] => 1 } @type_opts;
if ($set->{'type'} && !$type_seen{$set->{'type'}}) {
	push(@type_opts, [$set->{'type'}, $set->{'type'}]);
	}
my @flag_opts = (
	["constant", "constant"],
	["dynamic", "dynamic"],
	["interval", "interval"],
	["timeout", "timeout"],
);
my @flags_sel;
my $flags_sel;
if ($set->{'flags'}) {
	@flags_sel = split(/\s+|,\s*/, $set->{'flags'});
	@flags_sel = grep { $_ ne '' } @flags_sel;
	my %flag_seen = map { $_->[0] => 1 } @flag_opts;
	foreach my $f (@flags_sel) {
		push(@flag_opts, [$f, $f]) if (!$flag_seen{$f}++);
		}
	}
$flags_sel = @flags_sel ? \@flags_sel : undef;

print ui_form_start("save_set.cgi");
print ui_hidden("table", $in{'table'});
print ui_hidden("new", $is_new);
print ui_hidden("set", $set_name) if (!$is_new);

print ui_table_start($text{'set_header'}, "width=100%", 2);

my $name_tags = $is_new ? undef : "readonly";
print ui_table_row(hlink($text{'set_name'}, "set_name"),
	ui_textbox("set_name", $set_name, 30, 0, undef, $name_tags));

print ui_table_row(hlink($text{'set_type'}, "set_type"),
	ui_select("set_type", $set->{'type'}, \@type_opts, 1, 0, 1));

print ui_table_row(hlink($text{'set_flags'}, "set_flags"),
	ui_select("set_flags", $flags_sel, \@flag_opts, 5, 1, 1));

my $elem_field = ui_textarea("set_elements", $elements_text, 6, 60);
$elem_field .= "<br>".ui_note($text{'set_elements_desc'}, 0);
print ui_table_hr();
print ui_table_row(hlink($text{'set_elements'}, "set_elements"),
	$elem_field, undef, undef, undef, 1);

print ui_table_end();

print ui_form_end([[undef, $text{$is_new ? 'create' : 'save'}]]);
ui_print_footer("index.cgi?table=$in{'table'}&view=sets", $text{'index_return'});