From ee52ec53de945615e0c725ac68206e18490800bb Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 16 Feb 2005 13:25:41 +0000
Subject: handle whitelist

---
 perl-install/network/activefw.pm | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

(limited to 'perl-install/network/activefw.pm')

diff --git a/perl-install/network/activefw.pm b/perl-install/network/activefw.pm
index e73806ae8..4bc621253 100644
--- a/perl-install/network/activefw.pm
+++ b/perl-install/network/activefw.pm
@@ -92,6 +92,28 @@ sub unblacklist {
     }
 }
 
+sub whitelist {
+    my ($o, $addr) = @_;
+    eval {
+        $o->{daemon}->Whitelist(Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $addr));
+    };
+    if ($@) {
+        print "(Whitelist) exception: $@\n";
+        $o->dispatch;
+    }
+}
+
+sub unwhitelist {
+    my ($o, $addr) = @_;
+    eval {
+        $o->{daemon}->UnWhitelist(Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $addr));
+    };
+    if ($@) {
+        print "(UnWhitelist) exception: $@\n";
+        $o->dispatch;
+    }
+}
+
 sub set_interactive {
     my ($o, $mode) = @_;
     print "setting new IDS mode: $mode\n";
@@ -118,6 +140,20 @@ sub get_blacklist {
     @blacklist;
 }
 
+sub get_whitelist {
+    my ($o) = @_;
+    my @whitelist;
+    eval {
+        @whitelist = $o->{daemon}->GetWhitelist;
+    };
+    if ($@) {
+        print "(GetWhitelist) exception: $@\n";
+        $o->dispatch;
+        return;
+    }
+    @whitelist;
+}
+
 sub format_date {
     my ($timestamp) = @_;
     strftime("%c", localtime($timestamp));
-- 
cgit v1.2.1