diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/standalone/drakids | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/perl-install/standalone/drakids b/perl-install/standalone/drakids index 4b3d74172..e13c57c55 100644 --- a/perl-install/standalone/drakids +++ b/perl-install/standalone/drakids @@ -19,6 +19,11 @@ my $activefw = activefw->new(sub { $msg->get_interface eq "com.mandrakesoft.activefirewall" && $msg->get_path eq "/com/mandrakesoft/activefirewall" && $msg->get_member eq "Blacklist"; + + clear_blacklist() if + $msg->get_interface eq "com.mandrakesoft.activefirewall" && + $msg->get_path eq "/com/mandrakesoft/activefirewall" && + $msg->get_member eq "Clear"; }); my $blacklist = Gtk2::SimpleList->new(addr => 'hidden', @@ -58,6 +63,10 @@ sub init_blacklist { } } +sub clear_blacklist { + @{$blacklist->{data}} = (); +} + sub handle_blacklist { my ($timestamp, $indev, $prefix, $sensor, $protocol, $addr, $port, $icmp_type) = @_; push @{$blacklist->{data}}, [ |