summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakids
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-07-11 08:00:54 +0000
committerOlivier Blin <oblin@mandriva.org>2005-07-11 08:00:54 +0000
commitfccf12fa94e4e40e22da28afd107e70fc3b8ef4a (patch)
treee4545475d0358581b8ab4a795f7d1b41ba4fa9c3 /perl-install/standalone/drakids
parentb1dadf3b40a5974ca3fe656163eecfb9cd28fc3f (diff)
downloaddrakx-fccf12fa94e4e40e22da28afd107e70fc3b8ef4a.tar
drakx-fccf12fa94e4e40e22da28afd107e70fc3b8ef4a.tar.gz
drakx-fccf12fa94e4e40e22da28afd107e70fc3b8ef4a.tar.bz2
drakx-fccf12fa94e4e40e22da28afd107e70fc3b8ef4a.tar.xz
drakx-fccf12fa94e4e40e22da28afd107e70fc3b8ef4a.zip
remove interface tests, this is filtered before
Diffstat (limited to 'perl-install/standalone/drakids')
-rw-r--r--perl-install/standalone/drakids33
1 files changed, 12 insertions, 21 deletions
diff --git a/perl-install/standalone/drakids b/perl-install/standalone/drakids
index 2d68321e9..990d2a268 100644
--- a/perl-install/standalone/drakids
+++ b/perl-install/standalone/drakids
@@ -40,26 +40,17 @@ $whitelist->get_column(0)->signal_connect('clicked', \&sort_by_column, $whitelis
$whitelist->get_column(0)->set_sort_column_id(0);
my $activefw = network::activefw->new(sub {
- my ($con, $msg) = @_;
- handle_blacklist($msg->get_args_list) if
- $msg->get_interface eq "com.mandrakesoft.activefirewall" &&
- $msg->get_path eq "/com/mandrakesoft/activefirewall" &&
- $msg->get_member eq "Blacklist";
-
- handle_whitelist($msg->get_args_list) if
- $msg->get_interface eq "com.mandrakesoft.activefirewall" &&
- $msg->get_path eq "/com/mandrakesoft/activefirewall" &&
- $msg->get_member eq "Whitelist";
-
- clear_lists() if
- $msg->get_interface eq "com.mandrakesoft.activefirewall" &&
- $msg->get_path eq "/com/mandrakesoft/activefirewall" &&
- $msg->get_member eq "Clear";
-
- handle_init() if
- $msg->get_interface eq "com.mandrakesoft.activefirewall" &&
- $msg->get_path eq "/com/mandrakesoft/activefirewall" &&
- $msg->get_member eq "Init";
+ my ($_con, $msg) = @_;
+ my $member = $msg->get_member;
+ if ($member eq 'Blacklist') {
+ handle_blacklist($msg->get_args_list);
+ } elsif ($member eq 'Whitelist') {
+ handle_whitelist($msg->get_args_list);
+ } elsif ($member eq 'Clear') {
+ clear_lists();
+ } elsif ($member eq 'Init') {
+ handle_init();
+ }
});
init_lists();
@@ -99,7 +90,7 @@ sub sort_by_column {
}
sub handle_init {
- $activefw->find_daemon;
+ $activefw->attach_daemon;
init_lists();
}