summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-02-18 19:10:19 +0000
committerOlivier Blin <oblin@mandriva.org>2005-02-18 19:10:19 +0000
commit54b474d666cee8f1e0e9e0eb34ef1219d9cf91a1 (patch)
tree97db2a7d93bd1cf789c43edb77e48d24928fff0b /perl-install/standalone
parent3901fb88e6619250e693e20439fc1331f4ff8dcf (diff)
downloaddrakx-54b474d666cee8f1e0e9e0eb34ef1219d9cf91a1.tar
drakx-54b474d666cee8f1e0e9e0eb34ef1219d9cf91a1.tar.gz
drakx-54b474d666cee8f1e0e9e0eb34ef1219d9cf91a1.tar.bz2
drakx-54b474d666cee8f1e0e9e0eb34ef1219d9cf91a1.tar.xz
drakx-54b474d666cee8f1e0e9e0eb34ef1219d9cf91a1.zip
show unprocessed attacks when the applet starts
Diffstat (limited to 'perl-install/standalone')
-rw-r--r--perl-install/standalone/net_applet8
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet
index 109788beb..1330a5f92 100644
--- a/perl-install/standalone/net_applet
+++ b/perl-install/standalone/net_applet
@@ -89,6 +89,7 @@ my @attacks_queue;
checkNetwork();
cronNetwork();
+get_unprocessed_attacks();
$icon->show_all;
Gtk2->main;
@@ -186,6 +187,13 @@ sub setAutoStart {
);
}
+sub get_unprocessed_attacks {
+ my @packets = $activefw->get_reports;
+ while (my @attack = splice(@packets, 0, 9)) {
+ handle_attack(@attack);
+ }
+}
+
sub handle_attack {
push @attacks_queue, [ @_ ];
@attacks_queue == 1 and ask_attack_verdict($attacks_queue[0]);