summaryrefslogtreecommitdiffstats
path: root/perl-install/network/network.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network/network.pm')
-rw-r--r--perl-install/network/network.pm14
1 files changed, 10 insertions, 4 deletions
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index ea16b36dc..eff3ce5cd 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -363,7 +363,6 @@ sub easy_dhcp {
return if text2bool($netc->{NETWORKING});
require modules;
- require network::ethernet;
modules::load_category($modules_conf, 'network/main|gigabit|pcmcia|usb');
my @all_dev = sort map { $_->[0] } network::ethernet::get_eth_cards($modules_conf);
@@ -374,12 +373,19 @@ sub easy_dhcp {
my $dhcp_intf = $ether_dev[0];
log::explanations("easy_dhcp: found $dhcp_intf");
- network::ethernet::conf_network_card_backend($netc, $intf, 'dhcp', $dhcp_intf);
-
- put_in_hash($netc, {
+ put_in_hash($netc, {
NETWORKING => "yes",
DHCP => "yes",
+ NET_DEVICE => $dhcp_intf,
+ NET_INTERFACE => $dhcp_intf,
});
+ $intf->{$dhcp_intf} ||= {};
+ put_in_hash($intf->{$dhcp_intf}, {
+ DEVICE => $dhcp_intf,
+ BOOTPROTO => 'dhcp',
+ NETMASK => '255.255.255.0',
+ ONBOOT => 'yes'
+ });
1;
}