From bea81cf1e33daca67dc01afcdf1956b445ae47c1 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 13 Jul 2005 03:48:39 +0000
Subject: use dbus_object;

---
 perl-install/network/activefw.pm | 67 +++++++---------------------------------
 1 file changed, 12 insertions(+), 55 deletions(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/activefw.pm b/perl-install/network/activefw.pm
index 99a9d8db8..2a949379d 100644
--- a/perl-install/network/activefw.pm
+++ b/perl-install/network/activefw.pm
@@ -1,69 +1,26 @@
 package network::activefw;
 
-use Gtk2::Helper;
+use dbus_object;
 use Socket;
 
+our @ISA = qw(dbus_object);
+
 sub new {
-    my ($type, $filter) = @_;
+    my ($type, $bus, $filter) = @_;
 
-    require Net::DBus;
-    my $bus = Net::DBus->system;
     my $con = $bus->{connection};
-
     $con->add_filter($filter);
-    $con->add_match("type='signal',interface='com.mandriva.activefirewall'");
-
-    set_DBus_watch($con);
-    $con->dispatch;
-
-    my $o = bless { bus => $bus }, $type;
-    $o->find_daemon;
-
+    $con->add_match("type='signal',interface='com.mandriva.monitoring.activefirewall'");
+
+    my $o = dbus_object::new($type,
+			     $bus,
+			     "com.mandriva.monitoring",
+			     "/com/mandriva/monitoring/activefirewall",
+			     "com.mandriva.monitoring.activefirewall");
+    dbus_object::set_gtk2_watch($o);
     $o;
 }
 
-sub find_daemon {
-    my ($o) = @_;
-    my $service = $o->{bus}->get_service("com.mandriva.activefirewall.daemon");
-    $o->{daemon} = $service->get_object("/com/mandriva/activefirewall", "com.mandriva.activefirewall.daemon");
-}
-
-sub set_DBus_watch {
-    my ($con) = @_;
-    $con->set_watch_callbacks(sub {
-        my ($con, $watch) = @_;
-        my $flags = $watch->get_flags;
-        require Net::DBus::Binding::Watch;
-        if ($flags & &Net::DBus::Binding::Watch::READABLE) {
-            Gtk2::Helper->add_watch($watch->get_fileno, 'in', sub {
-                $watch->handle(&Net::DBus::Binding::Watch::READABLE);
-                $con->dispatch;
-                1;
-            });
-        }
-        #- do nothing for WRITABLE watch, we dispatch when needed
-    }, undef, undef); #- do nothing when watch is disabled or toggled yet
-}
-
-sub dispatch {
-    my ($o) = @_;
-    $o->{bus}{connection}->dispatch;
-}
-
-sub call_method {
-    my ($o, $method, @args) = @_;
-    my @ret;
-    eval {
-        @ret = $o->{daemon}->$method(@args);
-    };
-    if ($@) {
-        print "($method) exception: $@\n";
-        $o->dispatch;
-        return;
-    }
-    @ret;
-}
-
 sub blacklist {
     my ($o, $seq, $blacklist) = @_;
     $o->call_method('Blacklist',
-- 
cgit v1.2.1