diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-02-16 13:28:33 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-02-16 13:28:33 +0000 |
| commit | 34f248eeebe180e56da780d1c5aa4c662ee652a6 (patch) | |
| tree | efdd420ff430408c2f1d994b4c33d1a398d541d2 /perl-install | |
| parent | 30ca447c67d29595fc235f95e13874c1b0992f4c (diff) | |
| download | drakx-backup-do-not-use-34f248eeebe180e56da780d1c5aa4c662ee652a6.tar drakx-backup-do-not-use-34f248eeebe180e56da780d1c5aa4c662ee652a6.tar.gz drakx-backup-do-not-use-34f248eeebe180e56da780d1c5aa4c662ee652a6.tar.bz2 drakx-backup-do-not-use-34f248eeebe180e56da780d1c5aa4c662ee652a6.tar.xz drakx-backup-do-not-use-34f248eeebe180e56da780d1c5aa4c662ee652a6.zip | |
handle Whitelist signal
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/standalone/drakids | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/perl-install/standalone/drakids b/perl-install/standalone/drakids index 880ea5911..0a5447c11 100644 --- a/perl-install/standalone/drakids +++ b/perl-install/standalone/drakids @@ -46,6 +46,11 @@ my $activefw = activefw->new(sub { $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_blacklist() if $msg->get_interface eq "com.mandrakesoft.activefirewall" && $msg->get_path eq "/com/mandrakesoft/activefirewall" && @@ -142,6 +147,11 @@ sub init_whitelist { @{$whitelist->{data}} = map { [ $_ ] } $activefw->get_whitelist; } +sub handle_whitelist { + my ($addr) = @_; + push @{$whitelist->{data}}, [ $addr ]; +} + sub whitelist { my @addr = @_; unblacklist(@addr); |