summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakconnect9
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,