From c9bce49edb95981c46bda5f68983ac21dd246b0c Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 4 Mar 2005 11:14:00 +0000
Subject: use detect_devices::is_lan_interface

---
 perl-install/standalone/drakconnect | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone')

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,
-- 
cgit v1.2.1