show unprocessed attacks when the applet starts

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]);