summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rw-r--r--perl-install/standalone/drakids22
1 files changed, 17 insertions, 5 deletions
diff --git a/perl-install/standalone/drakids b/perl-install/standalone/drakids
index 23017544f..e47f97ec7 100644
--- a/perl-install/standalone/drakids
+++ b/perl-install/standalone/drakids
@@ -51,7 +51,7 @@ my $activefw = activefw->new(sub {
$msg->get_path eq "/com/mandrakesoft/activefirewall" &&
$msg->get_member eq "Whitelist";
- clear_blacklist() if
+ clear_lists() if
$msg->get_interface eq "com.mandrakesoft.activefirewall" &&
$msg->get_path eq "/com/mandrakesoft/activefirewall" &&
$msg->get_member eq "Clear";
@@ -61,8 +61,7 @@ my $activefw = activefw->new(sub {
$msg->get_path eq "/com/mandrakesoft/activefirewall" &&
$msg->get_member eq "Init";
});
-init_blacklist();
-init_whitelist();
+init_lists();
$ugtk2::wm_icon = "/usr/lib/libDrakX/icons/drakfirewall.png";
my $w = ugtk2->new(N("Active Firewall"));
@@ -101,8 +100,7 @@ sub sort_by_column {
sub handle_init {
$activefw->find_daemon;
- init_blacklist();
- init_whitelist();
+ init_lists();
}
sub init_blacklist {
@@ -148,6 +146,10 @@ sub init_whitelist {
handle_whitelist($_) foreach $activefw->get_whitelist;
}
+sub clear_whitelist {
+ @{$whitelist->{data}} = ();
+}
+
sub handle_whitelist {
my ($addr) = @_;
push @{$whitelist->{data}}, [ $addr, activefw::resolve_address(activefw::get_ip_address($addr)) ];
@@ -169,3 +171,13 @@ sub unwhitelist {
#- delete from the list even if the above calls were unsuccessful
@{$whitelist->{data}} = grep { !member($_->[0], @addr) } @{$whitelist->{data}};
}
+
+sub init_lists {
+ init_blacklist();
+ init_whitelist();
+}
+
+sub clear_lists {
+ clear_blacklist();
+ clear_whitelist();
+}