From 9634d884835a471353402b8870116349c206be21 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 14 Feb 2003 12:58:01 +0000 Subject: install package shorewall only when the user wants a firewall --- perl-install/network/drakfirewall.pm | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) (limited to 'perl-install') diff --git a/perl-install/network/drakfirewall.pm b/perl-install/network/drakfirewall.pm index ad2c6205e..34e263641 100644 --- a/perl-install/network/drakfirewall.pm +++ b/perl-install/network/drakfirewall.pm @@ -105,13 +105,17 @@ sub get_ports { } sub set_ports { - my ($disabled, $ports) = @_; + my ($in, $disabled, $ports) = @_; my $shorewall = network::shorewall::read() || network::shorewall::default_interfaces() or die N("No network card"); - $shorewall->{disabled} = $disabled; - $shorewall->{ports} = $$ports; - network::shorewall::write($shorewall); + if (!$disabled || -x "$::prefix/sbin/shorewall") { + $in->do_pkgs->ensure_is_installed('shorewall', '/sbin/shorewall', $::isInstall) or return; + + $shorewall->{disabled} = $disabled; + $shorewall->{ports} = $$ports; + network::shorewall::write($shorewall); + } } sub get_conf { @@ -176,9 +180,7 @@ sub main { ($disabled, my $servers, my $unlisted) = get_conf($in, $disabled) or return; - $in->do_pkgs->ensure_is_installed('shorewall', '/sbin/shorewall', $::isInstall) or return; - ($disabled, my $ports) = choose($in, $disabled, $servers, $unlisted) or return; - set_ports($disabled, $ports); + set_ports($in, $disabled, $ports); } -- cgit v1.2.1