#!/usr/bin/perl
# apply.cgi
# Apply the current configuration

require './nftables-lib.pl';
use strict;
use warnings;
our (%in, %text);
&ReadParse();
&error_setup($text{'apply_err'});

my @tables = &get_nftables_save();
my $err = &apply_restore();
&error($err) if ($err);

&redirect("index.cgi");