mirror of
https://github.com/webmin/webmin.git
synced 2026-05-06 23:30:29 +01:00
4f3e993ae6
Import https://github.com/swelljoe/nftables into the Webmin tree under nftables/ while preserving upstream history.
56 lines
1.6 KiB
Perl
Executable File
56 lines
1.6 KiB
Perl
Executable File
#!/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'});
|
|
|
|
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'});
|
|
}
|
|
}
|
|
|
|
push(@tables, { 'name' => $name,
|
|
'family' => $family,
|
|
'rules' => [],
|
|
'chains' => {},
|
|
'sets' => {} });
|
|
my $err = save_configuration(@tables);
|
|
error(text('create_failed', $err)) if ($err);
|
|
webmin_log("create", "table", $name, { 'family' => $family });
|
|
|
|
my $idx = $#tables;
|
|
redirect("index.cgi?table=$idx");
|
|
}
|
|
|
|
ui_print_header(undef, $text{'create_title'}, "", "intro", 1, 1);
|
|
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'}, 20));
|
|
print ui_table_end();
|
|
|
|
print ui_form_end([ [ undef, $text{'create_ok'} ] ]);
|
|
ui_print_footer("index.cgi", $text{'index_return'});
|