From b82e295bf883d69cd7e9ed93159ee04f217ae2dd Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 8 Sep 2004 03:52:30 +0000 Subject: fix #11287 --- perl-install/standalone/drakconnect | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index 9e1087f05..3d5099f2a 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -203,14 +203,19 @@ sub manage { @all_cards = network::ethernet::get_eth_cards($modules_conf); my %name = network::ethernet::get_eth_cards_names($modules_conf, @all_cards); foreach (keys %name) { - $p->{/eth|ath|wlan/ ? $name{$_} : $_} = { name => $_ }; - $p->{name}{intf} = $_; + my $dev = /eth|ath|wlan/ ? $name{$_} : $_; + $p->{$dev} = { + name => $_ , + intf => $intf->{$_} + }; } while (my ($device, $interface) = each %$intf) { - my $type; exists $name{$device} and next; - $type = network::tools::get_interface_type($interface) and $p->{$type} = { name => $device }; - $p->{name}{intf} = $intf->{$device}; + my $type = network::tools::get_interface_type($interface); + $p->{$type || $device} = { + name => $device, + intf => $interface + }; } $window->{rwindow}->add(gtkpack_(Gtk2::VBox->new, @@ -349,7 +354,7 @@ sub build_notebook { if ($is_ethernet) { my $proto = $gui->{intf}{BOOTPROTO}; - $proto->{protocols} = { static => N("static"), dhcp => N("DHCP") }; + $proto->{protocols} = { none => N("none"), static => N("static"), dhcp => N("DHCP") }; $proto->set_popdown_strings(values %{$proto->{protocols}}); $proto->set_text($proto->{protocols}{$intf->{BOOTPROTO}}); foreach ($gui->{intf}{IPADDR}, $gui->{intf}{NETMASK}, $gui->{netc}{GATEWAY}) { -- cgit v1.2.1