From 1d37bfdbbe874abd6dcb5563eea19f531de09e1c Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Fri, 25 May 2007 15:39:46 +0000
Subject: sync with 2007.1 (because of SVN loss)

---
 lib/network/invictus.pm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 lib/network/invictus.pm

(limited to 'lib/network/invictus.pm')

diff --git a/lib/network/invictus.pm b/lib/network/invictus.pm
new file mode 100644
index 0000000..91806d5
--- /dev/null
+++ b/lib/network/invictus.pm
@@ -0,0 +1,30 @@
+package network::invictus;
+
+use MDK::Common;
+
+my $ucarp_d = "/etc/ucarp.d";
+my $ct_sync_config = "/etc/sysconfig/ct_sync";
+
+sub read_config {
+    my ($invictus) = @_;
+    foreach (all($::prefix . $ucarp_d)) {
+        $invictus->{ucarp}{$_} = +{ getVarsFromSh($::prefix . $ucarp_d . '/' . $_) };
+    }
+    $invictus->{ct_sync} = +{ getVarsFromSh($::prefix . $ct_sync_config) };
+    $invictus->{ct_sync}{CMARKBIT} ||= 30;
+}
+
+sub write_config {
+    my ($invictus) = @_;
+    mkdir_p($::prefix . $ucarp_d);
+    foreach (keys %{$invictus->{ucarp}}) {
+        $invictus->{ucarp}{$_}{UPSCRIPT} ||= '/usr/share/invictus-firewall/ucarp-up.sh';
+        $invictus->{ucarp}{$_}{DOWNSCRIPT} ||= '/usr/share/invictus-firewall/ucarp-down.sh';
+        setVarsInShMode($::prefix . $ucarp_d . '/' . $_, 0600, $invictus->{ucarp}{$_},
+                    qw(INTERFACE SRCIP VIRTIP VHID PASSWORD TAKEOVER UPSCRIPT DOWNSCRIPT));
+    }
+    setVarsInSh($::prefix . $ct_sync_config, $invictus->{ct_sync},
+                qw(ENABLE INTERFACE CMARKBIT));
+}
+
+1;
-- 
cgit v1.2.1