diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-02-15 18:33:17 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-02-15 18:33:17 +0000 |
| commit | 77bf55ec6421e494138889788baedbd3be57a791 (patch) | |
| tree | 4910b81a5794beca8d856c0bcc59c31fc10f0070 /perl-install/standalone | |
| parent | 5f06b4f421c2ae1d0db1358d2bd435c90ef5b13d (diff) | |
| download | drakx-backup-do-not-use-77bf55ec6421e494138889788baedbd3be57a791.tar drakx-backup-do-not-use-77bf55ec6421e494138889788baedbd3be57a791.tar.gz drakx-backup-do-not-use-77bf55ec6421e494138889788baedbd3be57a791.tar.bz2 drakx-backup-do-not-use-77bf55ec6421e494138889788baedbd3be57a791.tar.xz drakx-backup-do-not-use-77bf55ec6421e494138889788baedbd3be57a791.zip | |
clear blacklist when needed
Diffstat (limited to 'perl-install/standalone')
| -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}}, [ |