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);