From 54b474d666cee8f1e0e9e0eb34ef1219d9cf91a1 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 18 Feb 2005 19:10:19 +0000
Subject: show unprocessed attacks when the applet starts

---
 perl-install/standalone/net_applet | 8 ++++++++
 1 file changed, 8 insertions(+)

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]);
-- 
cgit v1.2.1