diff options
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/drakroam | 11 |
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'; |