From 1505cb9a13be9acb25847858726792821dbb2f81 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Tue, 12 Apr 2005 19:01:19 +0000
Subject: use sysfs as fallback to detect wireless interfaces (rt2x00/prism2_*)

---
 perl-install/detect_devices.pm      | 18 ++++++++++++------
 perl-install/network/netconnect.pm  |  2 +-
 perl-install/network/tools.pm       |  2 +-
 perl-install/standalone/drakconnect |  2 +-
 4 files changed, 15 insertions(+), 9 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index df183ebcb..f2c05bf4f 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -563,16 +563,22 @@ sub is_lan_interface {
     $_[0] !~ /^(?:lo|ippp|isdn|plip|ppp|sit0|wifi)/;
 }
 
+sub is_wireless_interface {
+    my ($interface) = @_;
+    #- some wireless drivers don't always support the SIOCGIWNAME ioctl
+    #-   ralink devices need to be up to support it
+    #-   wlan-ng (prism2_*) need some special tweaks to support it
+    #- use sysfs as fallback to detect wireless interfaces,
+    #- i.e interfaces for which get_wireless_stats() is available
+    c::isNetDeviceWirelessAware($interface) || -e "/sys/class/net/$interface/wireless";
+}
+
 sub getNet() {
-    my @net_devices = grep { is_lan_interface($_) }
+    grep { is_lan_interface($_) }
       uniq(
            (map { if_(/^\s*([A-Za-z0-9:\.]*):/, $1) } cat_("/proc/net/dev")),
            c::get_netdevices(),
           );
-    #- enable interfaces if get_wireless_stats() is available
-    #- needed for some drivers (Ralink) to be able to detect it is wireless aware
-    c::enable_net_device($_) foreach grep { -d "/sys/class/net/$_/wireless" } @net_devices;
-    @net_devices;
  }
 
 #sub getISDN() {
@@ -873,7 +879,7 @@ sub matching_type {
     if ($type =~ /laptop/i) {
         return isLaptop();
     } elsif ($type =~ /wireless/i) {
-        return any { c::isNetDeviceWirelessAware($_) } getNet();
+        return any { is_wireless_interface($_) } getNet();
     }
 }
 
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 24c848ba1..f12e9e23c 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -133,7 +133,7 @@ sub real_main {
           %all_eth_intf = network::ethernet::get_eth_cards_names(@all_cards); #- needed not to loose GATEWAYDEV
           require list_modules; #- FIXME: check if useful
           %eth_intf = map { $_->[0] => join(': ', $_->[0], $_->[2]) }
-            grep { to_bool($is_wireless) == c::isNetDeviceWirelessAware($_->[0]) } @all_cards;
+            grep { to_bool($is_wireless) == detect_devices::is_wireless_interface($_->[0]) } @all_cards;
       };
 
       my $find_lan_module = sub { 
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index d99e0f39e..26e09dd6e 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -282,7 +282,7 @@ sub get_interface_type {
     member($interface->{TYPE}, "xDSL", "ADSL") && "adsl" ||
     $interface->{DEVICE} =~ /^ippp/ && "isdn" ||
     $interface->{DEVICE} =~ /^ppp/ && "modem" ||
-    c::isNetDeviceWirelessAware($interface->{DEVICE}) && "wifi" ||
+    detect_devices::is_wireless_interface($interface->{DEVICE}) && "wifi" ||
     detect_devices::is_lan_interface($interface->{DEVICE}) && "ethernet" ||
     "unknown";
 }
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 2408df2e3..42ce559a3 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -292,7 +292,7 @@ sub build_tree {
     }
     else {
 	#- ethernet is default
-	$intf->{pages} = { 'TCP/IP' => 1, 'DHCP' => 1, if_(c::isNetDeviceWirelessAware($intf->{DEVICE}), 'Wireless' => 1), 'Options' => 1, 'Information' => 1 };
+	$intf->{pages} = { 'TCP/IP' => 1, 'DHCP' => 1, if_(detect_devices::is_wireless_interface($intf->{DEVICE}), 'Wireless' => 1), 'Options' => 1, 'Information' => 1 };
     }
 }
 
-- 
cgit v1.2.1