diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2005-06-30 07:36:57 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2005-06-30 07:36:57 +0000 |
commit | 242b57c08d2e8b093198dac99009ec01837576d8 (patch) | |
tree | 7d978c77c4108b44397ea6a3eea884b2d887ffe8 /perl-install/standalone/drakids | |
parent | f68d4657bb658ccbc17ba413d09c46e7711f02dc (diff) | |
download | drakx-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/drakids | 10 |
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 { |