summaryrefslogtreecommitdiffstats
path: root/perl-install/network.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-04-16 06:09:49 +0000
committerdamien <damien@mandriva.com>2001-04-16 06:09:49 +0000
commitbdba2f3f8a61e6d35d3a9c13682ae7c89ebbbeaf (patch)
tree7f737df0a8ab47a65371ee1757e3b0f0a3601390 /perl-install/network.pm
parent5b48c1cd8211fdb5ade5cca4c98a9f14a5af5a8d (diff)
downloaddrakx-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.pm10
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);