diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-02-15 18:49:13 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-02-15 18:49:13 +0000 |
| commit | e463d4aa06089587dc3b277669b037e0e3353054 (patch) | |
| tree | 63a9deb0df3f54d9d6970a333a4053f57854e912 /perl-install | |
| parent | 862896e25933b058f13276598add6f742ef02220 (diff) | |
| download | drakx-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.pm | 15 |
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 { |