summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/drakfirewall.pm18
1 files changed, 14 insertions, 4 deletions
diff --git a/perl-install/network/drakfirewall.pm b/perl-install/network/drakfirewall.pm
index 554f6298f..fac1e7c10 100644
--- a/perl-install/network/drakfirewall.pm
+++ b/perl-install/network/drakfirewall.pm
@@ -126,10 +126,12 @@ sub get_ports() {
}
sub set_ports {
- my ($in, $disabled, $ports) = @_;
- my $shorewall = network::shorewall::read($in) || network::shorewall::default_interfaces($in) or die N("No network card");
+ my ($do_pkgs, $disabled, $ports, $o_in) = @_;
+
+ my $shorewall = network::shorewall::read($o_in) or return;
+
if (!$disabled || -x "$::prefix/sbin/shorewall") {
- $in->do_pkgs->ensure_binary_is_installed('shorewall', 'shorewall', $::isInstall) or return;
+ $do_pkgs->ensure_binary_is_installed('shorewall', 'shorewall', $::isInstall) or return;
$shorewall->{disabled} = $disabled;
$shorewall->{ports} = $$ports;
@@ -203,5 +205,13 @@ sub main {
($disabled, my $ports) = choose($in, $disabled, $servers, $unlisted) or return;
- set_ports($in, $disabled, $ports);
+ set_ports($in->do_pkgs, $disabled, $ports, $in);
+}
+
+sub main_auto_install {
+ my ($do_pkgs, $disabled) = @_;
+
+ my $possible_servers = default_from_pkgs($do_pkgs);
+
+ set_ports($do_pkgs, $disabled, to_ports($possible_servers, ''));
}