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