summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-02-06 11:28:38 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-02-06 11:28:38 +0000
commit794307c752aec2b48e744ef4409656116eec214c (patch)
tree45cc32db8d609facc16e4f3174fd6ebeaed86311 /perl-install
parentf8d8b81e0fbfd1a2b55f1e52bd710e93e8cb890b (diff)
downloaddrakx-794307c752aec2b48e744ef4409656116eec214c.tar
drakx-794307c752aec2b48e744ef4409656116eec214c.tar.gz
drakx-794307c752aec2b48e744ef4409656116eec214c.tar.bz2
drakx-794307c752aec2b48e744ef4409656116eec214c.tar.xz
drakx-794307c752aec2b48e744ef4409656116eec214c.zip
fix wireless settings (references being made too early)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/netconnect.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index dc1664a8a..7b4839916 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -857,7 +857,8 @@ notation (for example, 1.2.3.4).")),
$ethntf->{WIRELESS_ESSID} = "any";
},
name => N("Please enter the wireless parameters for this card:"),
- data => [
+ data => sub {
+ [
{ label => N("Operating Mode"), val => \$ethntf->{WIRELESS_MODE},
list => [ keys %wireless_mode ] },
{ label => N("Network name (ESSID)"), val => \$ethntf->{WIRELESS_ESSID} },
@@ -903,6 +904,7 @@ those interface specific commands and their effect.
See iwpriv(8) man page for further information."),
}
],
+ },
complete => sub {
if ($ethntf->{WIRELESS_FREQ} && $ethntf->{WIRELESS_FREQ} !~ /[0-9.]*[kGM]/) {
$in->ask_warn(N("Error"), N("Freq should have the suffix k, M or G (for example, \"2.46G\" for 2.46 GHz frequency), or add enough '0' (zeroes)."));