From ed34673d3b633aebed12f76a77a18927605ae4dc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 16 Jan 2004 12:52:16 +0000
Subject: - add icmp support - add "Echo request (ping)" choice

---
 perl-install/network/drakfirewall.pm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'perl-install/network/drakfirewall.pm')

diff --git a/perl-install/network/drakfirewall.pm b/perl-install/network/drakfirewall.pm
index aa0db51d9..fb8647a44 100644
--- a/perl-install/network/drakfirewall.pm
+++ b/perl-install/network/drakfirewall.pm
@@ -56,6 +56,11 @@ my @all_servers =
    ports => '631/tcp 631/udp',
    hide => 1,
   },
+  {
+   name => N_("Echo request (ping)"),
+   ports => '8/icmp',
+   force_default_selection => 0,
+  },
 );
 
 sub port2server {
@@ -68,7 +73,7 @@ sub port2server {
 sub check_ports_syntax {
     my ($ports) = @_;
     foreach (split ' ', $ports) {
-	my ($nb, $range, $nb2) = m!^(\d+)(:(\d+))?/(tcp|udp)$! or return $_;
+	my ($nb, $range, $nb2) = m!^(\d+)(:(\d+))?/(tcp|udp|icmp)$! or return $_;
 	foreach my $port ($nb, if_($range, $nb2)) {
 	    1 <= $port && $port <= 65535 or return $_;
 	}
@@ -103,7 +108,9 @@ sub default_from_pkgs {
     my @pkgs = $in->do_pkgs->are_installed(map { split ' ', $_->{pkg} } @all_servers);
     [ grep {
 	my $s = $_;
-	any { member($_, @pkgs) } (split ' ', $s->{pkg});
+	exists $s->{force_default_selection} ? 
+	  $s->{force_default_selection} : 
+	  any { member($_, @pkgs) } split(' ', $s->{pkg});
     } @all_servers ];
 }
 
-- 
cgit v1.2.1