mirror of
https://github.com/webmin/webmin.git
synced 2026-05-07 07:40:28 +01:00
37 lines
1.0 KiB
Perl
Executable File
37 lines
1.0 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# delete_table.cgi
|
|
# Delete an existing nftables table
|
|
|
|
require './nftables-lib.pl';
|
|
use strict;
|
|
use warnings;
|
|
our (%in, %text);
|
|
&ReadParse();
|
|
&error_setup($text{'delete_err'});
|
|
|
|
my @tables = &get_nftables_save();
|
|
my $table = $tables[$in{'table'}];
|
|
$table || &error($text{'delete_notable'});
|
|
|
|
if ($in{'confirm'}) {
|
|
splice(@tables, $in{'table'}, 1);
|
|
my $err = &save_configuration(@tables);
|
|
&error(&text('delete_failed', $err)) if ($err);
|
|
&webmin_log("delete", "table", $table->{'name'},
|
|
{ 'family' => $table->{'family'} });
|
|
&redirect("index.cgi");
|
|
}
|
|
|
|
&ui_print_header(undef, $text{'delete_title'}, "", "intro", 1, 1);
|
|
print &ui_form_start("delete_table.cgi");
|
|
print &ui_hidden("table", $in{'table'});
|
|
print "<center><b>",
|
|
&text('delete_confirm',
|
|
"<tt>$table->{'family'} $table->{'name'}</tt>"),
|
|
"</b><p>\n";
|
|
print &ui_submit($text{'delete'}, "confirm");
|
|
print "</center>\n";
|
|
print &ui_form_end();
|
|
&ui_print_footer("index.cgi?table=$in{'table'}", $text{'index_return'});
|
|
|