summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakids
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-06-30 07:36:57 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-06-30 07:36:57 +0000
commit242b57c08d2e8b093198dac99009ec01837576d8 (patch)
tree7d978c77c4108b44397ea6a3eea884b2d887ffe8 /perl-install/standalone/drakids
parentf68d4657bb658ccbc17ba413d09c46e7711f02dc (diff)
downloaddrakx-242b57c08d2e8b093198dac99009ec01837576d8.tar
drakx-242b57c08d2e8b093198dac99009ec01837576d8.tar.gz
drakx-242b57c08d2e8b093198dac99009ec01837576d8.tar.bz2
drakx-242b57c08d2e8b093198dac99009ec01837576d8.tar.xz
drakx-242b57c08d2e8b093198dac99009ec01837576d8.zip
sanitize network::activefw
Diffstat (limited to 'perl-install/standalone/drakids')
-rw-r--r--perl-install/standalone/drakids10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/standalone/drakids b/perl-install/standalone/drakids
index e76311cfd..2d68321e9 100644
--- a/perl-install/standalone/drakids
+++ b/perl-install/standalone/drakids
@@ -39,7 +39,7 @@ $whitelist->set_headers_clickable(1);
$whitelist->get_column(0)->signal_connect('clicked', \&sort_by_column, $whitelist->get_model);
$whitelist->get_column(0)->set_sort_column_id(0);
-my $activefw = activefw->new(sub {
+my $activefw = network::activefw->new(sub {
my ($con, $msg) = @_;
handle_blacklist($msg->get_args_list) if
$msg->get_interface eq "com.mandrakesoft.activefirewall" &&
@@ -127,13 +127,13 @@ sub handle_blacklist {
push @{$blacklist->{data}}, [
$addr,
$timestamp,
- activefw::format_date($timestamp),
- activefw::resolve_address(activefw::get_ip_address($addr)),
+ network::activefw::format_date($timestamp),
+ network::activefw::resolve_address(network::activefw::get_ip_address($addr)),
$prefix eq 'SCAN' ? N("Port scanning") :
$prefix eq 'SERV' ? N("Service attack") :
$prefix eq 'PASS' ? N("Password cracking") :
'',
- activefw::get_service($port) || '',
+ network::activefw::get_service($port) || '',
$indev,
$protocol || '',
];
@@ -160,7 +160,7 @@ sub clear_whitelist {
sub handle_whitelist {
my ($addr) = @_;
- push @{$whitelist->{data}}, [ $addr, activefw::resolve_address(activefw::get_ip_address($addr)) ];
+ push @{$whitelist->{data}}, [ $addr, network::activefw::resolve_address(network::activefw::get_ip_address($addr)) ];
}
sub get_selected_whitelist {