diff options
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/drakconnect | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index e4cb640a6..1aa28d9cf 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -200,16 +200,15 @@ sub manage { $notebook->set_property('show-tabs', 0); $notebook->set_property('show-border', 0); - eval(cat_('/etc/sysconfig/drakconnect')); - @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{$_} : $_} = { kind => $_ }; } - foreach (keys %$intf) { - /^ippp/ and $p->{isdn} = { kind => $_ }; - /^ppp0/ and $p->{modem} = { kind => $_ }; + while (my ($device, $interface) = each %$intf) { + my $type; + member($device, keys %name) and next; + $type = network::tools::get_interface_type($interface) and $p->{$type} = { kind => $device }; } $window->{rwindow}->add(gtkpack_(Gtk2::VBox->new, |