From 1b5b9ed35b69c8ce56942b21cd61ec8965a116fe Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 20 Jan 2004 13:26:32 +0000 Subject: go to wireless step if needed --- perl-install/network/netconnect.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'perl-install/network/netconnect.pm') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 966cf5d1d..ca6b17c00 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -592,7 +592,8 @@ notation (for example, 1.2.3.4).")), $ethntf->{HWADDR} = $track_network_id or delete $ethntf->{HWADDR}; $in->do_pkgs->install($netcnx->{dhcp_client}) if $auto_ip; - #FIXME "wireless" if $ethntf->{wireless_eth}; + + return "wireless" if is_wireless_intf($module); return "static_hostname"; }, }, @@ -600,12 +601,10 @@ notation (for example, 1.2.3.4).")), wireless => { pre => sub { - if (is_wireless_intf($module)) { - $ethntf->{wireless_eth} = 1; - $netc->{wireless_eth} = 1; - $ethntf->{WIRELESS_MODE} = "Managed"; - $ethntf->{WIRELESS_ESSID} = "any"; - } + $ethntf->{wireless_eth} = 1; + $netc->{wireless_eth} = 1; + $ethntf->{WIRELESS_MODE} = "Managed"; + $ethntf->{WIRELESS_ESSID} = "any"; }, name => N("Please enter the wireless parameters for this card:"), data => [ @@ -667,6 +666,7 @@ See iwpriv(8) man page for further information."), post => sub { # untranslate parameters $ethntf->{WIRELESS_MODE} = $wireless_mode{$ethntf->{WIRELESS_MODE}}; + return "static_hostname"; }, }, -- cgit v1.2.1