summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakconnect
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakconnect')
-rwxr-xr-xperl-install/standalone/drakconnect5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 0e02f2e4d..34d739da2 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -34,6 +34,7 @@ use network::ethernet;
use network::tools;
use network::modem;
use network::network;
+use detect_devices;
use c;
use modules;
use network::isdn;
@@ -204,7 +205,7 @@ sub manage {
@all_cards = network::ethernet::get_eth_cards($modules_conf);
my %names = network::ethernet::get_eth_cards_names(@all_cards);
foreach (keys %names) {
- my $dev = /eth|ath|wlan/ ? $names{$_} : $_;
+ my $dev = detect_devices::is_lan_interface($_) ? $names{$_} : $_;
$p->{$dev} = {
name => $_ ,
intf => $intf->{$_}
@@ -298,7 +299,7 @@ sub build_notebook {
my ($netc, $intf, $gui, $apply_button, $interface, $interface_name) = @_;
my $apply = sub { $apply_button->set_sensitive(1) };
- my $is_ethernet = $interface =~ /eth|ath|wlan/;
+ my $is_ethernet = detect_devices::is_lan_interface($interface);
if ($intf->{pages}{'TCP/IP'}) {
gtkpack($gui->{sheet}{'TCP/IP'} = Gtk2::HBox->new,