summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-02-15 18:33:17 +0000
committerOlivier Blin <oblin@mandriva.org>2005-02-15 18:33:17 +0000
commit77bf55ec6421e494138889788baedbd3be57a791 (patch)
tree4910b81a5794beca8d856c0bcc59c31fc10f0070 /perl-install
parent5f06b4f421c2ae1d0db1358d2bd435c90ef5b13d (diff)
downloaddrakx-77bf55ec6421e494138889788baedbd3be57a791.tar
drakx-77bf55ec6421e494138889788baedbd3be57a791.tar.gz
drakx-77bf55ec6421e494138889788baedbd3be57a791.tar.bz2
drakx-77bf55ec6421e494138889788baedbd3be57a791.tar.xz
drakx-77bf55ec6421e494138889788baedbd3be57a791.zip
clear blacklist when needed
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone/drakids9
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}}, [