diff options
Diffstat (limited to 'perl-install/network.pm')
| -rw-r--r-- | perl-install/network.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/perl-install/network.pm b/perl-install/network.pm index 779e6a7e5..82c1a6cf4 100644 --- a/perl-install/network.pm +++ b/perl-install/network.pm @@ -455,7 +455,7 @@ sub read_all_conf { #- $intf->{$device}{DEVICE} : DEVICE = $device #- $intf->{$device}{BOOTPROTO} : boot prototype : "bootp" or "dhcp" or "pump" or ... sub configureNetwork2 { - my ($prefix, $netc, $intf, $install) = @_; + my ($in, $prefix, $netc, $intf, $install) = @_; my $etc = "$prefix/etc"; $netc->{wireless_eth} and $install->('wireless-tools'); @@ -464,8 +464,12 @@ sub configureNetwork2 { write_interface_conf("$etc/sysconfig/network-scripts/ifcfg-$_->{DEVICE}", $_) foreach grep { $_->{DEVICE} } values %$intf; add2hosts("$etc/hosts", $netc->{HOSTNAME}, map { $_->{IPADDR} } values %$intf); - grep { $_->{BOOTPROTO} =~ /^(dhcp)$/ } values %$intf and $install && $install->('dhcpcd'); - grep { $_->{BOOTPROTO} =~ /^(pump|bootp)$/ } values %$intf and $install && $install->('pump'); + if (grep { $_->{BOOTPROTO} =~ /^(dhcp)$/ } values %$intf) { + $::isStandalone ? $in->standalone::pkgs_install('dhcpd') : $install->('dhcpcd'); + } + if (grep { $_->{BOOTPROTO} =~ /^(pump|bootp)$/ } values %$intf) { + $::isStandalone ? $in->standalone::pkgs_install('pump') : $install->('pump'); + } #-res_init(); #- reinit the resolver so DNS changes take affect any::miscellaneousNetwork($prefix); |