blob: 7725a3b023ee26470a1a88b867ed7854b69d8349 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/usr/bin/perl
use lib "/opt/vyatta/share/perl5";
use warnings;
use strict;
use Vyatta::Config;
use Vyatta::IpTables::Rule;
use Vyatta::IpTables::AddressFilter;
use Vyatta::IpTables::Mgr;
use Getopt::Long;
use Vyatta::Zone;
use Sys::Syslog qw(:standard :macros);
my ($create, $delete, $update);
GetOptions("create=s" => \$create,
"delete=s" => \$delete,
"update=s" => \$update,
);
if ($create and ($create eq 'true')) {
print "create\n";
# create a nfct-timeout policy based on protocol specific timers
# check if the rule has protocol configured
# if configured, check what the protocol is and get the appropriate timers.
}
if ($delete and ($delete eq 'true')) {
print "delete";
}
if ($update and ($update eq 'true')) {
print "update";
}
|
