From 0939cae9aec13338fc1a31e5d0dcb2a541103c4f Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 29 Apr 2005 10:43:30 +0000
Subject: exit and warn when no wireless interface is found (#15244)

---
 perl-install/standalone/drakroam | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam
index eeecff4bc..9a05c7823 100755
--- a/perl-install/standalone/drakroam
+++ b/perl-install/standalone/drakroam
@@ -29,7 +29,7 @@ use lib qw(/usr/lib/libDrakX);
 use standalone;
 use common;
 use run_program;
-
+use detect_devices;
 use Glib qw(TRUE FALSE);
 use ugtk2 qw(:create :helpers :wrappers);
 use Gtk2::SimpleList;
@@ -37,6 +37,15 @@ use Socket;
 
 require_root_capability();
 
+unless (any { detect_devices::is_wireless_interface($_) } detect_devices::getNet()) {
+    ugtk2::err_dialog(N("Error"), N("You do not have any wireless interface.
+Run the \"%s\" assistant from the Mandriva Linux Control Center", N("Set up a new network interface (LAN, ISDN, ADSL, ...)")));
+    ugtk2::exit(0);
+}
+
+
+
+
 # global settings
 my $route = '/sbin/route -n';
 my $IWList = '/sbin/iwlist';
-- 
cgit v1.2.1