From ff36559207fe39ad5c4b6d715b572fc9cf549bc9 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 11 Jul 2005 08:03:02 +0000
Subject: perl_checker fixes

---
 perl-install/standalone/drakids | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/perl-install/standalone/drakids b/perl-install/standalone/drakids
index a09b1879e..fd1e3cefd 100644
--- a/perl-install/standalone/drakids
+++ b/perl-install/standalone/drakids
@@ -90,7 +90,7 @@ sub sort_by_column {
     $model->set_sort_column_id($col_id, $old_id == $col_id && $old_order ne 'descending' ? 'ascending' : 'descending');
 }
 
-sub handle_init {
+sub handle_init() {
     $activefw->attach_daemon;
     init_lists();
 }
@@ -103,19 +103,19 @@ sub list_remove_addr {
     }
 }
 
-sub init_blacklist {
+sub init_blacklist() {
     my @packets = $activefw->get_blacklist;
     while (my @blacklist = splice(@packets, 0, 8)) {
         handle_blacklist(@blacklist);
     }
 }
 
-sub clear_blacklist {
+sub clear_blacklist() {
     @{$blacklist->{data}} = ();
 }
 
 sub handle_blacklist {
-    my ($timestamp, $indev, $prefix, $sensor, $protocol, $addr, $port, $icmp_type) = @_;
+    my ($timestamp, $indev, $prefix, $_sensor, $protocol, $addr, $port, $_icmp_type) = @_;
     push @{$blacklist->{data}}, [
         $addr,
         $timestamp,
@@ -131,7 +131,7 @@ sub handle_blacklist {
     ];
 }
 
-sub get_selected_blacklist {
+sub get_selected_blacklist() {
     uniq(map { $blacklist->{data}[$_][0] } $blacklist->get_selected_indices);
 }
 
@@ -142,11 +142,11 @@ sub unblacklist {
     list_remove_addr($blacklist->{data}, @addr);
 }
 
-sub init_whitelist {
+sub init_whitelist() {
     handle_whitelist($_) foreach $activefw->get_whitelist;
 }
 
-sub clear_whitelist {
+sub clear_whitelist() {
     @{$whitelist->{data}} = ();
 }
 
@@ -155,7 +155,7 @@ sub handle_whitelist {
     push @{$whitelist->{data}}, [ $addr, network::activefw::resolve_address(network::activefw::get_ip_address($addr)) ];
 }
 
-sub get_selected_whitelist {
+sub get_selected_whitelist() {
     uniq(map { $whitelist->{data}[$_][0] } $whitelist->get_selected_indices);
 }
 
@@ -172,12 +172,12 @@ sub unwhitelist {
     list_remove_addr($whitelist->{data}, @addr);
 }
 
-sub init_lists {
+sub init_lists() {
     init_blacklist();
     init_whitelist();
 }
 
-sub clear_lists {
+sub clear_lists() {
     clear_blacklist();
     clear_whitelist();
 }
-- 
cgit v1.2.1