summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakids
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-07-11 08:03:02 +0000
committerOlivier Blin <oblin@mandriva.org>2005-07-11 08:03:02 +0000
commitff36559207fe39ad5c4b6d715b572fc9cf549bc9 (patch)
treee86631ed47a18a606f9a7cde556dabaf387cc765 /perl-install/standalone/drakids
parent7bed065f10f0cf7e4995148fecf07fc2d899fa75 (diff)
downloaddrakx-ff36559207fe39ad5c4b6d715b572fc9cf549bc9.tar
drakx-ff36559207fe39ad5c4b6d715b572fc9cf549bc9.tar.gz
drakx-ff36559207fe39ad5c4b6d715b572fc9cf549bc9.tar.bz2
drakx-ff36559207fe39ad5c4b6d715b572fc9cf549bc9.tar.xz
drakx-ff36559207fe39ad5c4b6d715b572fc9cf549bc9.zip
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/drakids')
-rw-r--r--perl-install/standalone/drakids20
1 files 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();
}