From 03391c72a47b86459b48496d9368824f3d400d7c Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 17 Aug 2004 11:03:17 +0000 Subject: (easy_dhcp) allow configured interface not to be eth0 and make sure it uses ethernet --- perl-install/network/network.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'perl-install/network/network.pm') diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm index a5e9bd20b..b4d06d01e 100644 --- a/perl-install/network/network.pm +++ b/perl-install/network/network.pm @@ -367,12 +367,14 @@ sub easy_dhcp { modules::load_category($modules_conf, 'network/main|gigabit|pcmcia|usb'); my @all_cards = network::ethernet::get_eth_cards($modules_conf); - #- only for a single network card - (any { $_->[0] eq 'eth0' } @all_cards) && (every { $_->[0] ne 'eth1' } @all_cards) or return; + #- only for a single ethernet network card + my @ether_cards = grep { `LC_ALL= LANG= $::prefix/sbin/ip -o link show $_->[0] 2>/dev/null` =~ m|\slink/ether\s| } @all_cards; + @ether_cards == 1 or return; - log::explanations("easy_dhcp: found eth0"); + my $dhcp_intf = $ether_cards[0][0]; + log::explanations("easy_dhcp: found $dhcp_intf"); - network::ethernet::conf_network_card_backend($netc, $intf, 'dhcp', 'eth0'); + network::ethernet::conf_network_card_backend($netc, $intf, 'dhcp', $dhcp_intf); put_in_hash($netc, { NETWORKING => "yes", -- cgit v1.2.1