From edfe4757c524fcfaed62f3d4ff7f74ed7359f00b Mon Sep 17 00:00:00 2001 From: Damien Chaumette Date: Thu, 20 Feb 2003 11:59:10 +0000 Subject: dhcp fix --- perl-install/network/network.pm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm index 20edc0b0c..e8a331314 100644 --- a/perl-install/network/network.pm +++ b/perl-install/network/network.pm @@ -14,7 +14,6 @@ use any; use vars qw(@ISA @EXPORT); use log; - @ISA = qw(Exporter); @EXPORT = qw(resolv configureNetworkIntf netmask dns is_ip masked_ip findIntf addDefaultRoute read_all_conf dnsServers guessHostname configureNetworkNet read_resolv_conf read_interface_conf add2hosts gateway configureNetwork2 write_conf sethostname down_it read_conf write_resolv_conf up_it); @@ -483,7 +482,7 @@ sub easy_dhcp { NETWORKING => "yes", FORWARD_IPV4 => "false", DOMAINNAME => "localdomain", - DHCP => 1, + DHCP => "yes", }); 1; } @@ -523,7 +522,7 @@ sub configureNetwork2 { add2hosts("$etc/hosts", $netc->{HOSTNAME}, map { $_->{IPADDR} } values %$intf) if $netc->{HOSTNAME}; add2hosts("$etc/hosts", "localhost", "127.0.0.1"); - $netc->{DHCP} && $in->do_pkgs->install($netc->{dhcp_client} || 'dhcp-client'); + any { $_->{BOOTPROTO} =~ /^dhcp$/ } values %$intf and $in->do_pkgs->install($netc->{dhcp_client} || 'dhcp-client'); $in->do_pkgs->install(qw(zcip tmdns)); $netc->{ZEROCONF_HOSTNAME} and write_zeroconf("$etc/tmdns.conf", $netc->{ZEROCONF_HOSTNAME}); any { $_->{BOOTPROTO} =~ /^(pump|bootp)$/ } values %$intf and $in->do_pkgs->install('pump'); @@ -531,5 +530,4 @@ sub configureNetwork2 { proxy_configure($::o->{miscellaneous}); } - 1; -- cgit v1.2.1