summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-04-29 10:43:30 +0000
committerOlivier Blin <oblin@mandriva.org>2005-04-29 10:43:30 +0000
commit0939cae9aec13338fc1a31e5d0dcb2a541103c4f (patch)
tree90277fb74fa22bf14eb076c3c0da5ec27b796816 /perl-install
parenta0843702db52bf4823db0948f591266cf88e9a55 (diff)
downloaddrakx-0939cae9aec13338fc1a31e5d0dcb2a541103c4f.tar
drakx-0939cae9aec13338fc1a31e5d0dcb2a541103c4f.tar.gz
drakx-0939cae9aec13338fc1a31e5d0dcb2a541103c4f.tar.bz2
drakx-0939cae9aec13338fc1a31e5d0dcb2a541103c4f.tar.xz
drakx-0939cae9aec13338fc1a31e5d0dcb2a541103c4f.zip
exit and warn when no wireless interface is found (#15244)
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakroam11
1 files changed, 10 insertions, 1 deletions
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';