timeouts script, and new nodes

(cherry picked from commit e49e60bca2262760575b2a4b488e6acfe1dc0cb6)

1 files changed, 34 insertions, 0 deletions

diff --git a/scripts/vyatta-conntrack-timeouts.pl b/scripts/vyatta-conntrack-timeouts.pl
new file mode 100644
index 0000000..7725a3b
--- /dev/null
+++ b/scripts/vyatta-conntrack-timeouts.pl
@@ -0,0 +1,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";
+}