summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakids
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakids')
-rw-r--r--perl-install/standalone/drakids31
1 files changed, 20 insertions, 11 deletions
diff --git a/perl-install/standalone/drakids b/perl-install/standalone/drakids
index e13c57c55..f6ce3c00e 100644
--- a/perl-install/standalone/drakids
+++ b/perl-install/standalone/drakids
@@ -13,6 +13,16 @@ use Gtk2::SimpleList;
use ugtk2 qw(:create :helpers :wrappers);
+my $blacklist = Gtk2::SimpleList->new(addr => 'hidden',
+ N("Date") => 'text',
+ N("Attacker") => 'text',
+ N("Attack type") => 'text',
+ N("Service") => 'text',
+ N("Network interface") => 'text',
+ N("Protocol") => 'text',
+ );
+$blacklist->get_selection->set_mode ('multiple');
+
my $activefw = activefw->new(sub {
my ($con, $msg) = @_;
handle_blacklist($msg->get_args_list) if
@@ -24,17 +34,13 @@ my $activefw = activefw->new(sub {
$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',
- N("Date") => 'text',
- N("Attacker") => 'text',
- N("Attack type") => 'text',
- N("Service") => 'text',
- N("Network interface") => 'text',
- N("Protocol") => 'text',
- );
-$blacklist->get_selection->set_mode ('multiple');
+ handle_init() if
+ $msg->get_interface eq "com.mandrakesoft.activefirewall" &&
+ $msg->get_path eq "/com/mandrakesoft/activefirewall" &&
+ $msg->get_member eq "Init";
+});
+init_blacklist();
my $w = ugtk2->new(N("Active Firewall : Blacklist"));
gtkpack($w->{window},
@@ -49,12 +55,15 @@ gtkpack($w->{window},
])
]),
]));
-init_blacklist();
$w->show;
Gtk2->main;
ugtk2::exit(0);
+sub handle_init {
+ $activefw->find_daemon;
+ init_blacklist();
+}
sub init_blacklist {
my @packets = $activefw->get_blacklist;