diff options
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/standalone/net_applet | 8 |
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]); |