diff options
| author | damien <damien@mandriva.com> | 2001-04-16 06:09:49 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-04-16 06:09:49 +0000 |
| commit | bdba2f3f8a61e6d35d3a9c13682ae7c89ebbbeaf (patch) | |
| tree | 7f737df0a8ab47a65371ee1757e3b0f0a3601390 /perl-install/network.pm | |
| parent | 5b48c1cd8211fdb5ade5cca4c98a9f14a5af5a8d (diff) | |
| download | drakx-backup-do-not-use-bdba2f3f8a61e6d35d3a9c13682ae7c89ebbbeaf.tar drakx-backup-do-not-use-bdba2f3f8a61e6d35d3a9c13682ae7c89ebbbeaf.tar.gz drakx-backup-do-not-use-bdba2f3f8a61e6d35d3a9c13682ae7c89ebbbeaf.tar.bz2 drakx-backup-do-not-use-bdba2f3f8a61e6d35d3a9c13682ae7c89ebbbeaf.tar.xz drakx-backup-do-not-use-bdba2f3f8a61e6d35d3a9c13682ae7c89ebbbeaf.zip | |
corrected bad install package.
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); |