summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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';