summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-02-15 18:49:13 +0000
committerOlivier Blin <oblin@mandriva.org>2005-02-15 18:49:13 +0000
commite463d4aa06089587dc3b277669b037e0e3353054 (patch)
tree63a9deb0df3f54d9d6970a333a4053f57854e912 /perl-install
parent862896e25933b058f13276598add6f742ef02220 (diff)
downloaddrakx-e463d4aa06089587dc3b277669b037e0e3353054.tar
drakx-e463d4aa06089587dc3b277669b037e0e3353054.tar.gz
drakx-e463d4aa06089587dc3b277669b037e0e3353054.tar.bz2
drakx-e463d4aa06089587dc3b277669b037e0e3353054.tar.xz
drakx-e463d4aa06089587dc3b277669b037e0e3353054.zip
allow to look for daemon after startup
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/activefw.pm15
1 files changed, 11 insertions, 4 deletions
diff --git a/perl-install/network/activefw.pm b/perl-install/network/activefw.pm
index a06cfe392..e73806ae8 100644
--- a/perl-install/network/activefw.pm
+++ b/perl-install/network/activefw.pm
@@ -18,13 +18,20 @@ sub new {
set_DBus_watch($con);
$con->dispatch;
- my $service = $bus->get_service("com.mandrakesoft.activefirewall.daemon");
- my $daemon = $service->get_object("/com/mandrakesoft/activefirewall", "com.mandrakesoft.activefirewall.daemon");
-
- bless {
+ my $o = bless {
bus => $bus,
daemon => $daemon
}, $type;
+
+ $o->find_daemon;
+
+ $o;
+}
+
+sub find_daemon {
+ my ($o) = @_;
+ my $service = $o->{bus}->get_service("com.mandrakesoft.activefirewall.daemon");
+ $o->{daemon} = $service->get_object("/com/mandrakesoft/activefirewall", "com.mandrakesoft.activefirewall.daemon");
}
sub set_DBus_watch {