diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-07-13 03:48:39 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-07-13 03:48:39 +0000 |
| commit | bea81cf1e33daca67dc01afcdf1956b445ae47c1 (patch) | |
| tree | 5a2d9a335d73a1b7468ec10bca49773d3ac97d1b /perl-install/standalone/drakids | |
| parent | cddf386defea9fcb3900b7b46337b4cc96df6668 (diff) | |
| download | drakx-backup-do-not-use-bea81cf1e33daca67dc01afcdf1956b445ae47c1.tar drakx-backup-do-not-use-bea81cf1e33daca67dc01afcdf1956b445ae47c1.tar.gz drakx-backup-do-not-use-bea81cf1e33daca67dc01afcdf1956b445ae47c1.tar.bz2 drakx-backup-do-not-use-bea81cf1e33daca67dc01afcdf1956b445ae47c1.tar.xz drakx-backup-do-not-use-bea81cf1e33daca67dc01afcdf1956b445ae47c1.zip | |
use dbus_object;
Diffstat (limited to 'perl-install/standalone/drakids')
| -rw-r--r-- | perl-install/standalone/drakids | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/standalone/drakids b/perl-install/standalone/drakids index fd1e3cefd..b00bd9ec4 100644 --- a/perl-install/standalone/drakids +++ b/perl-install/standalone/drakids @@ -8,6 +8,7 @@ use standalone; use Socket; use mygtk2 qw(gtknew); use POSIX qw(strftime); +use dbus_object; use network::activefw; use Gtk2::SimpleList; @@ -40,7 +41,7 @@ $whitelist->set_headers_clickable(1); $whitelist->get_column(0)->signal_connect('clicked', \&sort_by_column, $whitelist->get_model); $whitelist->get_column(0)->set_sort_column_id(0); -my $activefw = network::activefw->new(sub { +my $activefw = network::activefw->new(dbus_object::system_bus(), sub { my ($_con, $msg) = @_; my $member = $msg->get_member; if ($member eq 'Blacklist') { @@ -91,7 +92,7 @@ sub sort_by_column { } sub handle_init() { - $activefw->attach_daemon; + $activefw->attach_object; init_lists(); } |