From 8f0a4daea48836bbb9915c1b95916f8d11cd6050 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 20 Jul 2005 11:40:33 +0000
Subject: handle activefw init

---
 perl-install/standalone/net_applet | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet
index 7985aac74..2b331bdb9 100644
--- a/perl-install/standalone/net_applet
+++ b/perl-install/standalone/net_applet
@@ -101,7 +101,12 @@ my @attacks_queue;
 if ($enable_activefw) {
     $activefw = network::activefw->new($dbus, sub {
         my ($_con, $msg) = @_;
-        handle_attack($msg->get_args_list) if $msg->get_member eq "Attack";
+        my $member = $msg->get_member;
+        if ($member eq 'Attack') {
+            handle_attack($msg->get_args_list);
+        } elsif ($member eq 'Init') {
+            $activefw->attach_object;
+        }
     });
 }
 
-- 
cgit v1.2.1