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

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';

require 'nftables-lib.pl'; ## no critic
our (%in, %text);

# acl_security_form(&options)
# Output HTML for editing security options for the nftables module
sub acl_security_form
{
my ($o) = @_;

my $mode =
      $o->{'tables'} eq '*' ? 1
    : $o->{'tables'} =~ /^\!/ ? 2
    : 0;
my @selected = split(/\s+/, $o->{'tables'} || '');
shift(@selected) if ($mode == 2 && @selected && $selected[0] eq '!');
my @table_opts = acl_table_options();

print ui_table_row(
	$text{'acl_tables'},
	ui_radio(
		"tables_def",
		$mode,
		[ [1, $text{'acl_tables_all'}],
		  [0, $text{'acl_tables_sel'}],
		  [2, $text{'acl_tables_nsel'}] ]
	    ).
	    "<br>\n".
	    ui_select("tables", \@selected, \@table_opts, 6, 1),
	3
);

foreach my $a (
	qw(view active create setup chains sets rules raw delete
	   apply bootup import clear quick quick_ip quick_port
	   quick_service quick_forward manual)
    )
{
	my $enabled = $o->{$a};
	$enabled = $o->{'quick'} if ($a =~ /^quick_/ && !defined($enabled));
	print ui_table_row($text{'acl_'.$a}, ui_yesno_radio($a, $enabled));
	}
}

# acl_security_save(&options)
# Parse the form for security options for the nftables module
sub acl_security_save
{
if ($in{'tables_def'} == 1) {
	$_[0]->{'tables'} = '*';
	}
elsif ($in{'tables_def'} == 2) {
	$_[0]->{'tables'} = join(" ", "!", split(/\0/, $in{'tables'}));
	}
else {
	$_[0]->{'tables'} = join(" ", split(/\0/, $in{'tables'}));
	}
foreach my $a (
	qw(view active create setup chains sets rules raw delete
	   apply bootup import clear quick quick_ip quick_port
	   quick_service quick_forward manual)
    )
{
	$_[0]->{$a} = $in{$a} || 0;
	}
}

# acl_table_options()
# Returns saved and active table choices for the ACL editor
sub acl_table_options
{
my %seen;
my @opts;
foreach my $t (get_nftables_save()) {
	push(@opts, [table_acl_name($t), nft_table_spec($t)]);
	$seen{table_acl_name($t)} = 1;
	}
my ($active, $err) = get_active_nftables_save();
if (!$err) {
	foreach my $t (@$active) {
		next if ($seen{table_acl_name($t)}++);
		push(
			@opts,
			[ table_acl_name($t),
			  nft_table_spec($t)." ($text{'active_title'})" ]
		);
		}
	}
my @sorted = sort { $a->[1] cmp $b->[1] } @opts;
return @sorted;
}