From cbbe8f594f43927b7e9ebe66863033122da50e4b Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Wed, 26 Mar 2008 15:18:56 +0000
Subject: add set_redirected_ports helper (for drakguard)

---
 lib/network/shorewall.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/lib/network/shorewall.pm b/lib/network/shorewall.pm
index d0daca4..136656c 100644
--- a/lib/network/shorewall.pm
+++ b/lib/network/shorewall.pm
@@ -209,6 +209,17 @@ What do you want to do?"),
     }
 }
 
+sub set_redirected_ports {
+    my ($conf, $proto, $dest, @ports) = @_;
+    if (@ports) {
+        $conf->{redirects}{$proto}{$_} = $dest foreach @ports;
+    } else {
+        my $r = $conf->{redirects}{$proto};
+        @ports = grep { $r->{$_} eq $dest } keys %$r;
+        delete $r->{$_} foreach @ports;
+    }
+}
+
 sub update_interfaces_list {
     my ($o_intf) = @_;
     $o_intf && member($o_intf, map { $_->[1] } get_config_file('interfaces')) and return;
-- 
cgit v1.2.1