diff options
| author | Francois Pons <fpons@mandriva.com> | 2003-03-06 21:18:07 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2003-03-06 21:18:07 +0000 |
| commit | efc82b81e54d081bd9230e8f423eb15ba35a6dab (patch) | |
| tree | 2ae63dfa76c5b2ea7366374a471e917d8f018a80 /perl-install/network | |
| parent | 303e42e0e48e55b080dc52d7f6a4588959f41d8c (diff) | |
| download | drakx-backup-do-not-use-efc82b81e54d081bd9230e8f423eb15ba35a6dab.tar drakx-backup-do-not-use-efc82b81e54d081bd9230e8f423eb15ba35a6dab.tar.gz drakx-backup-do-not-use-efc82b81e54d081bd9230e8f423eb15ba35a6dab.tar.bz2 drakx-backup-do-not-use-efc82b81e54d081bd9230e8f423eb15ba35a6dab.tar.xz drakx-backup-do-not-use-efc82b81e54d081bd9230e8f423eb15ba35a6dab.zip | |
avoid virtual ethX to be reconfigured by drakconnect
Diffstat (limited to 'perl-install/network')
| -rw-r--r-- | perl-install/network/ethernet.pm | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index 9dc6d9b1c..6d2a5b48a 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -148,7 +148,7 @@ sub conf_network_card_backend { $netc->{NET_DEVICE} = $interface; #- one consider that there is only ONE Internet connection device.. - @{$intf->{$interface}}{qw(DEVICE BOOTPROTO NETMASK NETWORK ONBOOT)} = ($interface, $type, '255.255.255.0', $netadr, 'yes'); + @{$intf->{$interface}}{qw(DEVICE BOOTPROTO NETMASK NETWORK ONBOOT)} = ($interface, $type, '255.255.255.0', $netadr, 'yes'); $intf->{$interface}{IPADDR} = $ipadr if $ipadr; $interface; @@ -166,20 +166,18 @@ sub configureNetwork { my ($netc, $intf, $_first_time) = @_; local $_; modules::interactive::load_category($in, 'network/main|gigabit|usb|pcmcia', !$::expert, 1) or return; - my @l = detect_devices::getNet() or die \N("no network card found"); my @all_cards = conf_network_card_backend($netc, $intf); + my @l = map { $_->[0] } @all_cards; configureNetwork_step_1: - my $n_card = 0; $netc ||= {}; - my $last; foreach (@l) { - my $intf2 = findIntf($intf ||= {}, $_); + my $last; foreach (@all_cards) { + my $intf2 = findIntf($intf ||= {}, $_->[0]); add2hash($intf2, $last); add2hash($intf2, { NETMASK => '255.255.255.0' }); - configureNetworkIntf($netc, $in, $intf2, $netc->{NET_DEVICE}, 0, $all_cards[$n_card][1]) or return; + configureNetworkIntf($netc, $in, $intf2, $netc->{NET_DEVICE}, 0, $_->[1]) or return; $last = $intf2; - $n_card++; } $last or return; |