diff options
| author | Damien Chaumette <dchaumette@mandriva.com> | 2003-02-20 11:59:10 +0000 |
|---|---|---|
| committer | Damien Chaumette <dchaumette@mandriva.com> | 2003-02-20 11:59:10 +0000 |
| commit | edfe4757c524fcfaed62f3d4ff7f74ed7359f00b (patch) | |
| tree | e7724ba1741cb67e47925dd4777797f06339c14c /perl-install/network | |
| parent | b3bcaf1ff8368837c40a213d4e6a5487aa727ce1 (diff) | |
| download | drakx-edfe4757c524fcfaed62f3d4ff7f74ed7359f00b.tar drakx-edfe4757c524fcfaed62f3d4ff7f74ed7359f00b.tar.gz drakx-edfe4757c524fcfaed62f3d4ff7f74ed7359f00b.tar.bz2 drakx-edfe4757c524fcfaed62f3d4ff7f74ed7359f00b.tar.xz drakx-edfe4757c524fcfaed62f3d4ff7f74ed7359f00b.zip | |
dhcp fix
Diffstat (limited to 'perl-install/network')
| -rw-r--r-- | perl-install/network/network.pm | 6 |
1 files 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; |