From 55620f43deef5c0eb5b4b0f675de18b30c8d1c2d Mon Sep 17 00:00:00 2001
From: Devin Teske <dteske@FreeBSD.org>
Date: Thu, 16 Jun 2016 21:14:25 +0000
Subject: [PATCH] Add bsdconfig `wifi' (aka `wireless' or `wlan') module

Approved by:	re (gjb)
MFC after:	8 weeks
Relnotes:	yes
---
 usr.sbin/bsdconfig/include/messages.subr      |   36 +
 usr.sbin/bsdconfig/networking/INDEX           |    5 +-
 usr.sbin/bsdconfig/networking/Makefile        |    3 +-
 .../networking/include/messages.subr          |    4 +-
 usr.sbin/bsdconfig/networking/networking      |   12 +-
 .../bsdconfig/networking/share/device.subr    |   20 +-
 usr.sbin/bsdconfig/networking/wlanconfig      |   78 +
 usr.sbin/bsdconfig/share/media/Makefile       |    2 +-
 usr.sbin/bsdconfig/share/media/wlan.subr      | 1392 +++++++++++++++++
 9 files changed, 1542 insertions(+), 10 deletions(-)
 create mode 100755 usr.sbin/bsdconfig/networking/wlanconfig
 create mode 100644 usr.sbin/bsdconfig/share/media/wlan.subr

diff --git a/usr.sbin/bsdconfig/include/messages.subr b/usr.sbin/bsdconfig/include/messages.subr
index 66b1ba1c447f..3877e54540f5 100644
--- a/usr.sbin/bsdconfig/include/messages.subr
+++ b/usr.sbin/bsdconfig/include/messages.subr
@@ -66,9 +66,11 @@ msg_canada="Canada"
 msg_cancel="Cancel"
 msg_cancel_exit="Cancel/Exit"
 msg_cannot_create_permission_denied="%s: cannot create %s: Permission denied"
+msg_cannot_edit_wireless_ssid="Cannot edit wireless configuration; no matches for\nSSID \`%s' in wpa_supplicants.conf(5)"
 msg_cannot_resolve_hostname="Cannot resolve \`%s'!  Are you sure that your\nname server, gateway and network interface are correctly configured?"
 msg_cant_find_distribution="Warning:  Can't find the \`%s' distribution on this\nFTP server.  You may need to visit a different server for\nthe release you are trying to fetch or go to the Options\nmenu and set the release name to explicitly match what's\navailable on %s (or set to \"any\").\n\nWould you like to select another FTP server?"
 msg_cant_seem_to_write_out_resolv_conf="Can't seem to write out %s.  Net cannot be used."
+msg_cant_start_wpa_supplicant="Can't start wpa_supplicant(8). Please create a wlan(4)\ninterface from the \`wlans' option after selecting your\nfavorite wireless adapter (i.e., %s)."
 msg_cd_dvd="CD/DVD"
 msg_cdrom="CDROM"
 msg_checking_access_to="Checking access to\n %s"
@@ -85,6 +87,9 @@ msg_client_error="Client error, you could try an other server"
 msg_command_failed_rest_of_script_aborted="Command \`%s' failed - rest of script aborted."
 msg_comms_desc="Communications utilities."
 msg_configuration_for_interface="Configuration for Interface"
+msg_configured="Configured"
+msg_configured_lc="configured"
+msg_configured_ssids="Configured SSIDs"
 msg_converters_desc="Format conversion utilities."
 msg_could_not_unmount_the_cdrom_dvd="Could not unmount the CDROM/DVD from %s: %s"
 msg_could_not_unmount_the_dos_partition="Could not unmount the DOS partition from %s: %s"
@@ -94,12 +99,15 @@ msg_couldnt_connect_to_ftp_server="Couldn't connect to FTP server"
 msg_couldnt_connect_to_proxy="Couldn't connect to proxy"
 msg_couldnt_connect_to_server="Couldn't connect to server"
 msg_couldnt_open_ftp_connection="Couldn't open FTP connection to %s:\n  %s."
+msg_create_new="Create New"
 msg_created_path="Created %s"
 msg_czech_republic="Czech Republic"
 msg_databases_desc="Database software."
 msg_debugging="Debugging"
 msg_denmark="Denmark"
 msg_deskutils_desc="Various Desktop utilities."
+msg_destroy="Destroy"
+msg_details="Details"
 msg_devel_desc="Software development utilities and libraries."
 msg_device_is_not_configured="The %s device is not configured.  You will need to do so\nin the Networking configuration menu before proceeding."
 msg_dhcp="DHCP"
@@ -107,6 +115,7 @@ msg_dialog_mixedform_navigation_help="Use <up>/<down> arrows to navigate between
 msg_directory="Directory"
 msg_directory_not_found="%s: Directory not found."
 msg_directory_where_package_temporary_files_go="The directory where package temporary files should go"
+msg_discovered_ssids="Discovered SSIDs"
 msg_dns_desc="Domain Name Service tools."
 msg_docs_desc="Meta-ports for FreeBSD documentation."
 msg_done="Done"
@@ -129,10 +138,15 @@ msg_exit="Exit"
 msg_exit_bsdconfig="Exit bsdconfig"
 msg_extra_options_to_ifconfig="Extra options to ifconfig (usually empty):"
 msg_failed_to_add_default_route="Failed to add a default route; please check your network configuration"
+msg_failed_to_reach_wpa_supplicant="Failed to reach wpa_supplicant: %s"
 msg_file_system="File System"
 msg_finance_desc="Monetary, financial and related applications."
 msg_finland="Finland"
 msg_floppy="Floppy"
+msg_forget_all="Forget All"
+msg_forget_all_confirm="WARNING! Are you really sure you want to forget all known networks\nby re-initializing wpa_supplicants.conf(5)? This cannot be undone."
+msg_forget_all_help="Reset wpa_supplicant(8) configuration, forgetting all known networks"
+msg_found="found"
 msg_france="France"
 msg_french_desc="Ported software for French countries."
 msg_ftp="FTP"
@@ -202,12 +216,15 @@ msg_linux_desc="Linux programs that can run under binary compatibility."
 msg_lisp_desc="Software related to the Lisp language."
 msg_lithuania="Lithuania"
 msg_loading_of_dependent_package_failed="Loading of dependent package %s failed"
+msg_loading_wireless_menu="Loading Wireless Menu..."
 msg_logging_in_to_user_at_host="Logging in to %s@%s.."
 msg_looking_for_keymap_files="Looking for keymap files..."
 msg_looking_up_host="Looking up host %s"
 msg_mail_desc="Electronic mail packages and utilities."
 msg_main_menu="Main Menu"
 msg_main_site="Main Site"
+msg_manually_connect="Manually Connect"
+msg_manually_connect_help="Connect to a wireless network that may be unlisted"
 msg_math_desc="Mathematical computation software."
 msg_mbone_desc="Applications and utilities for the MBONE."
 msg_media_timeout="Media Timeout"
@@ -271,6 +288,7 @@ msg_parallel_desc="Applications dealing with parallelism in computing."
 msg_pear_desc="Software related to the Pear PHP framework."
 msg_perl5_desc="Utilities/modules for the PERL5 language."
 msg_permission_denied="%s: %s: Permission denied"
+msg_pick_an_interface_to_destroy="Pick an interface to destroy"
 msg_pkg_delete_failed="Warning: pkg-delete(8) of %s failed.\n  Run with debugging for details."
 msg_pkg_install_apparently_did_not_like_the_package="pkg-install(8) apparently did not like the %s package."
 msg_pkg_not_yet_installed_install_now="pkg(8) not yet installed. Install now?"
@@ -319,9 +337,12 @@ msg_reinstall_desc="Mark this package for reinstall"
 msg_release_name="Release Name"
 msg_required_package_not_found="Warning: %s is a required package but was not found."
 msg_rerun_bsdconfig_initial_device_probe="Re-run bsdconfig initial device probe"
+msg_rescan_wireless="Rescan Wireless"
+msg_rescan_wireless_help="Scan for new wireless networks"
 msg_rescan_devices="Re-scan Devices"
 msg_reset="RESET!"
 msg_reset_all_values_to_startup_defaults="Reset all values to startup defaults"
+msg_return_to_previous_menu="Return to previous menu"
 msg_reuse_old_ftp_site_selection_values="Re-use old FTP site selection values?"
 msg_reuse_old_http_site_settings="Re-use old HTTP site settings?"
 msg_review="Review"
@@ -334,6 +355,7 @@ msg_russia="Russia"
 msg_russian_desc="Ported software for the Russian market."
 msg_scanning_for_dhcp_servers="Scanning for DHCP servers..."
 msg_scanning_for_ra_servers="Scanning for RA servers..."
+msg_scanning_wireless_pausing="Scanning Wireless... (pausing for %i seconds)"
 msg_scheme_desc="Software related to the Scheme language."
 msg_science_desc="Scientific software."
 msg_secure_mode_requires_root="Secure-mode requires root-access!"
@@ -341,9 +363,18 @@ msg_secure_mode_requires_x11="Secure-mode requires X11 (use \`-X')!"
 msg_security_desc="System security software."
 msg_select="Select"
 msg_select_a_site_thats_close="Select a site that's close!"
+msg_select_the_configuration_you_would_like="Select the configuration you would like to edit:\nAddional network information displayed in help line."
+msg_select_wlan_interfaces_for="Select wlan interfaces for %s:"
 msg_selected="selected"
 msg_server_error_when_requesting_url="Server error when requesting %s, you could try an other server"
 msg_shells_desc="Various shells (tcsh, bash, etc)."
+msg_show_all="Show All"
+msg_show_all_help="Show wireless networks without an SSID and all BSSIDs"
+msg_show_configured="Show Configured"
+msg_show_configured_help="Show networks configured in wpa_supplicants.conf(5)"
+msg_show_scan_results="Show Scan Results"
+msg_show_scan_results_help="Show wpa_cli(8) scan results"
+msg_skip="Skip"
 msg_slovak_republic="Slovak Republic"
 msg_slovenia="Slovenia"
 msg_sorry_invalid_url="Sorry, %s is an invalid URL!"
@@ -378,6 +409,7 @@ msg_unable_to_initialize_media_type_for_package_extract="Unable to initialize me
 msg_unable_to_make_directory_mountpoint="Unable to make %s directory mountpoint for %s!"
 msg_unable_to_open="Unable to open %s"
 msg_unable_to_update_pkg_from_selected_media="Unable to update pkg(8) from selected media."
+msg_unconfigured="Unconfigured"
 msg_uninstall="Uninstall"
 msg_uninstall_desc="Mark this package for deletion"
 msg_uninstalling_package_waiting_for_pkg_delete="Uninstalling %s package - waiting for pkg-delete(8)"
@@ -397,11 +429,15 @@ msg_using_interface="Using interface %s"
 msg_using_usb_device="Using USB device: %s"
 msg_vietnamese_desc="Ported software for the Vietnamese market."
 msg_view_set_various_media_options="View/Set various media options"
+msg_warning_no_wireless_devices="WARNING! No wireless devices found."
 msg_what_would_you_like_to_do_with="What would you like to do with %s?"
 msg_which_release_to_attempt_to_load="Which release to attempt to load from installation media"
 msg_which_text_editor_to_use="Which text editor to use during installation"
+msg_wireless_networks_text="Select an unmarked ([ ]) entry to join that network.\nSelect a marked ([X]) entry to edit that configuration."
 msg_windowmaker_desc="Ports to support the WindowMaker window manager."
+msg_wireless_network_configuration_for="Wireless network configuration for SSID \`%s'"
 msg_would_you_like_to_bring_interface_up="Would you like to bring the %s interface up right now?"
+msg_wpa_cli_ping_failed="wpa_cli(8) ping failed"
 msg_www_desc="Web utilities (browsers, HTTP servers, etc)."
 msg_x11_clocks_desc="X Window System based clocks."
 msg_x11_desc="X Window System based utilities."
diff --git a/usr.sbin/bsdconfig/networking/INDEX b/usr.sbin/bsdconfig/networking/INDEX
index 852712480b4f..d05d4948606e 100644
--- a/usr.sbin/bsdconfig/networking/INDEX
+++ b/usr.sbin/bsdconfig/networking/INDEX
@@ -1,5 +1,5 @@
 # Copyright (c) 2012 Ron McDowell
-# Copyright (c) 2012 Devin Teske
+# Copyright (c) 2012-2016 Devin Teske
 # All rights reserved.
 #
 # Redistribution and use in source and binary forms, with or without
@@ -50,6 +50,9 @@ menu_selection="defaultrouter|defaultrouter"
 menu_selection="hostname|hostname"
 menu_selection="nameservers|nameservers"
 menu_selection="netdev|devices"
+menu_selection="wireless|wlanconfig"
+menu_selection="wlan|wlanconfig"
+menu_selection="wifi|wlanconfig"
 
 #
 # ------------ Items below this line do NOT need i18n translation ------------
diff --git a/usr.sbin/bsdconfig/networking/Makefile b/usr.sbin/bsdconfig/networking/Makefile
index 8a88067032bb..6a1eedda8a9f 100644
--- a/usr.sbin/bsdconfig/networking/Makefile
+++ b/usr.sbin/bsdconfig/networking/Makefile
@@ -6,6 +6,7 @@ FILESDIR=	${LIBEXECDIR}/bsdconfig/120.networking
 FILES=		INDEX USAGE
 
 SCRIPTSDIR=	${FILESDIR}
-SCRIPTS=	defaultrouter devices hostname nameservers networking
+SCRIPTS=	defaultrouter devices hostname nameservers networking \
+		wlanconfig
 
 .include <bsd.prog.mk>
diff --git a/usr.sbin/bsdconfig/networking/include/messages.subr b/usr.sbin/bsdconfig/networking/include/messages.subr
index bb94c36cd6d1..55881ffa63f7 100644
--- a/usr.sbin/bsdconfig/networking/include/messages.subr
+++ b/usr.sbin/bsdconfig/networking/include/messages.subr
@@ -1,4 +1,4 @@
-# Copyright (c) 2012 Devin Teske
+# Copyright (c) 2012-2016 Devin Teske
 # All rights reserved.
 #
 # Redistribution and use in source and binary forms, with or without
@@ -100,6 +100,8 @@ msg_scanning_for_dhcp="Scanning for DHCP servers on %s interface..."
 msg_select_network_interface="Select a network interface to configure.\n\n* Interface is marked as \"active\""
 msg_supported_media_options="Below is a list of supported media options for the %s interface. Please select the options that you would like to set for the %s network interface"
 msg_unknown_networking_menu_selection="Unknown networking menu selection"
+msg_wireless_networks="Wireless Networks"
+msg_wlans="wlans"
 xmsg_please_enter_fqhn="Please enter your fully qualified hostname (e.g. foo.bar.com).\n The domain portion of the hostname will be configured in resolv.conf(5)."
 xmsg_please_enter_nameserver_existing="Please enter the new IP address of the DNS nameserver\n(set to the NULL string to remove entry):"
 xmsg_supported_media_options="Below is a list of supported media options for the %s interface. Please\nselect the options that you would like to set for the %s network interface"
diff --git a/usr.sbin/bsdconfig/networking/networking b/usr.sbin/bsdconfig/networking/networking
index c61ce8f109d9..af37caaf3d6c 100755
--- a/usr.sbin/bsdconfig/networking/networking
+++ b/usr.sbin/bsdconfig/networking/networking
@@ -1,6 +1,6 @@
 #!/bin/sh
 #-
-# Copyright (c) 2006-2013 Devin Teske
+# Copyright (c) 2006-2016 Devin Teske
 # All rights reserved.
 #
 # Redistribution and use in source and binary forms, with or without
@@ -53,8 +53,9 @@ dialog_menu_main()
 		'X' '$msg_exit'
 		'1' '$msg_hostname_domain'
 		'2' '$msg_network_interfaces'
-		'3' '$msg_default_router'
-		'4' '$msg_dns_nameservers'
+		'3' '$msg_wireless_networks'
+		'4' '$msg_default_router'
+		'5' '$msg_dns_nameservers'
 	" # END-QUOTE
 	local defaultitem= # Calculated below
 	local hline="$hline_arrows_tab_enter"
@@ -124,8 +125,9 @@ while :; do
 	X) break ;;
 	1) command=hostname      ;; # Hostname/Domain
 	2) command=devices       ;; # Network Interfaces
-	3) command=defaultrouter ;; # Default Router/Gateway
-	4) command=nameservers   ;; # DNS nameservers
+	3) command=wlanconfig    ;; # Wireless Networks
+	4) command=defaultrouter ;; # Default Router/Gateway
+	5) command=nameservers   ;; # DNS nameservers
 	esac
 
 	if [ "$command" ]; then
diff --git a/usr.sbin/bsdconfig/networking/share/device.subr b/usr.sbin/bsdconfig/networking/share/device.subr
index 14758e678ae9..41ea29def67c 100644
--- a/usr.sbin/bsdconfig/networking/share/device.subr
+++ b/usr.sbin/bsdconfig/networking/share/device.subr
@@ -1,6 +1,6 @@
 if [ ! "$_NETWORKING_DEVICE_SUBR" ]; then _NETWORKING_DEVICE_SUBR=1
 #
-# Copyright (c) 2006-2015 Devin Teske
+# Copyright (c) 2006-2016 Devin Teske
 # All rights reserved.
 #
 # Redistribution and use in source and binary forms, with or without
@@ -34,6 +34,7 @@ f_dprintf "%s: loading includes..." networking/device.subr
 f_include $BSDCFG_SHARE/device.subr
 f_include $BSDCFG_SHARE/dialog.subr
 f_include $BSDCFG_SHARE/media/tcpip.subr
+f_include $BSDCFG_SHARE/media/wlan.subr
 f_include $BSDCFG_SHARE/networking/common.subr
 f_include $BSDCFG_SHARE/networking/ipaddr.subr
 f_include $BSDCFG_SHARE/networking/media.subr
@@ -194,15 +195,29 @@ f_dialog_menu_netdev_edit()
 	# to ifconfig(8).
 	#
 	local defaultitem=
+	local wlans wlan_status
 	while :; do
 		local dhcp_status="$msg_disabled"
 		[ "$dhcp" ] && dhcp_status="$msg_enabled"
 
+		if f_device_is_wireless "$interface"; then
+			wlans=$( f_sysrc_get "wlans_$interface" )
+			wlan_status="$msg_unconfigured"
+			[ -e "$( f_sysrc_get wpa_supplicant_conf_file )" ] &&
+				wlan_status="$msg_configured"
+		fi
+
 		#
 		# Display configuration-edit menu
 		#
 		menu_list="
 			'X $msg_save_exit' '$msg_return_to_previous_menu'
+		" # END-QUOTE
+		f_device_is_wireless "$interface" && menu_list="$menu_list
+			'W $msg_wireless_networks' '$wlan_status'
+			'1 $msg_wlans'             '$wlans'
+		" # END-QUOTE
+		menu_list="$menu_list
 			'2 $msg_dhcp'      '$dhcp_status'
 			'3 $msg_ipaddr4'   '$ipaddr'
 			'4 $msg_netmask'   '$netmask'
@@ -251,6 +266,9 @@ f_dialog_menu_netdev_edit()
 		#
 		case "$tag" in
 		X\ *) break ;;
+		W\ *) f_dialog_menu_wireless_edit ;;
+		1\ *) f_dialog_menu_wlandev_edit \
+		      	"$interface" "${wlans%%[$IFS]*}" ;;
 		2\ *) #
 		      # Proceed cautiously (confirm with the user) if/when NFS-
 		      # mounts are active. If the network on which these mounts
diff --git a/usr.sbin/bsdconfig/networking/wlanconfig b/usr.sbin/bsdconfig/networking/wlanconfig
new file mode 100755
index 000000000000..989bb794fb8e
--- /dev/null
+++ b/usr.sbin/bsdconfig/networking/wlanconfig
@@ -0,0 +1,78 @@
+#!/bin/sh
+#-
+# Copyright (c) 2011 Nathan Whitehorn
+# Copyright (c) 2013 Tom Rhodes
+# Copyright (c) 2013-2016 Devin Teske
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+# SUCH DAMAGE.
+#
+# $FreeBSD$
+#
+############################################################ INCLUDES
+
+# Prevent device.subr (included indirectly) from auto scanning on load
+DEVICE_SELF_SCAN_ALL=NO
+
+BSDCFG_SHARE="/usr/share/bsdconfig"
+. $BSDCFG_SHARE/common.subr || exit 1
+f_dprintf "%s: loading includes..." "$0"
+f_include $BSDCFG_SHARE/dialog.subr
+f_include $BSDCFG_SHARE/media/wlan.subr
+f_include $BSDCFG_SHARE/mustberoot.subr
+
+BSDCFG_LIBE="/usr/libexec/bsdconfig" APP_DIR="120.networking"
+f_include_lang $BSDCFG_LIBE/$APP_DIR/include/messages.subr
+
+f_index_menusel_keyword $BSDCFG_LIBE/$APP_DIR/INDEX "$pgm" ipgm &&
+	pgm="${ipgm:-$pgm}"
+
+############################################################ MAIN
+
+# Incorporate rc-file if it exists
+[ -f "$HOME/.bsdconfigrc" ] && f_include "$HOME/.bsdconfigrc"
+
+#
+# Process command-line arguments
+#
+while getopts h$GETOPTS_STDARGS flag; do
+	case "$flag" in
+	h|\?) f_usage $BSDCFG_LIBE/$APP_DIR/USAGE "PROGRAM_NAME" "$pgm" ;;
+	esac
+done
+shift $(( $OPTIND - 1 ))
+
+#
+# Initialize
+#
+f_dialog_title "$msg_wireless_networks"
+f_dialog_backtitle "${ipgm:+bsdconfig }$pgm"
+f_mustberoot_init
+
+#
+# Launch the wireless network menu
+#
+f_dialog_menu_wireless_edit
+
+################################################################################
+# END
+################################################################################
diff --git a/usr.sbin/bsdconfig/share/media/Makefile b/usr.sbin/bsdconfig/share/media/Makefile
index 135515b8258e..e8ec319a0ae4 100644
--- a/usr.sbin/bsdconfig/share/media/Makefile
+++ b/usr.sbin/bsdconfig/share/media/Makefile
@@ -3,6 +3,6 @@
 FILESDIR=	${SHAREDIR}/bsdconfig/media
 FILES=		any.subr cdrom.subr common.subr directory.subr dos.subr \
 		floppy.subr ftp.subr http.subr httpproxy.subr network.subr \
-		nfs.subr options.subr tcpip.subr ufs.subr usb.subr
+		nfs.subr options.subr tcpip.subr ufs.subr usb.subr wlan.subr
 
 .include <bsd.prog.mk>
diff --git a/usr.sbin/bsdconfig/share/media/wlan.subr b/usr.sbin/bsdconfig/share/media/wlan.subr
new file mode 100644
index 000000000000..f25cddff94cd
--- /dev/null
+++ b/usr.sbin/bsdconfig/share/media/wlan.subr
@@ -0,0 +1,1392 @@
+if [ ! "$_MEDIA_WLAN_SUBR" ]; then _MEDIA_WLAN_SUBR=1
+#
+# Copyright (c) 2013-2016 Devin Teske
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+# SUCH DAMAGE.
+#
+# $FreeBSD$
+#
+############################################################ INCLUDES
+
+BSDCFG_SHARE="/usr/share/bsdconfig"
+. $BSDCFG_SHARE/common.subr || exit 1
+f_dprintf "%s: loading includes..." media/wlan.subr
+f_include $BSDCFG_SHARE/device.subr
+f_include $BSDCFG_SHARE/dialog.subr
+f_include $BSDCFG_SHARE/strings.subr
+f_include $BSDCFG_SHARE/sysrc.subr
+
+BSDCFG_LIBE="/usr/libexec/bsdconfig"
+f_include_lang $BSDCFG_LIBE/include/messages.subr
+
+############################################################ GLOBALS
+
+NWIRELESS_CONFIGS=0
+NWSCAN_RESULTS=0
+
+#
+# Settings used while interacting with various dialog(1) menus
+#
+: ${DIALOG_MENU_WLAN_SCAN_DURATION:=5}
+: ${DIALOG_MENU_WLAN_SHOW_ALL=}
+: ${DIALOG_MENU_WLAN_SHOW_CONFIGURED=1}
+: ${DIALOG_MENU_WLAN_SHOW_SCAN_RESULTS=1}
+
+# 
+# Structure to contain the wpa_supplicant.conf(5) default overrides
+#
+f_struct_define WPA_DEFAULTS \
+	ap_scan			\
+	ctrl_interface		\
+	ctrl_interface_group	\
+	eapol_version		\
+	fast_reauth
+
+#
+# Structure of wpa_supplicant.conf(5) network={ ... } entry
+#
+f_struct_define WPA_NETWORK \
+	anonymous_identity	\
+	auth_alg		\
+	bssid			\
+	ca_cert			\
+	ca_cert2		\
+	client_cert		\
+	client_cert2		\
+	dh_file			\
+	dh_file2		\
+	eap			\
+	eap_workaround		\
+	eapol_flags		\
+	eappsk			\
+	engine			\
+	engine_id		\
+	frequency		\
+	group			\
+	identity		\
+	key_id			\
+	key_mgmt		\
+	mixed_cell		\
+	mode			\
+	nai			\
+	pac_file		\
+	pairwise		\
+	password		\
+	pcsc			\
+	phase1			\
+	phase2			\
+	pin			\
+	priority		\
+	private_key		\
+	private_key2		\
+	private_key2_passwd	\
+	private_key_passwd	\
+	proto			\
+	psk			\
+	scan_ssid		\
+	server_nai		\
+	ssid			\
+	subject_match		\
+	subject_match2		\
+	wep_key0		\
+	wep_key1		\
+	wep_key2		\
+	wep_key3		\
+	wpa_ptk_rekey		\
+	wep_tx_keyidx
+
+#
+# The following properties are ``Lists'' and as such should not be quoted.
+# Everything else should be quoted.
+#
+WPA_NETWORK_LIST_PROPERTIES="
+	auth_algo
+	eap
+	group
+	key_mgmt
+	pairwise
+	proto
+" # END-QUOTE
+
+#
+# Structure of wpa_cli(8) `scan_results' entry
+#
+f_struct_define WPA_SCAN_RESULT \
+	bssid	\
+	flags	\
+	freq	\
+	siglev	\
+	ssid
+
+#
+# Structure of a menu item in the wireless editor
+#
+f_struct_define WLAN_MENU_ITEM \
+	letter		\
+	ssid		\
+	nconfigs	\
+	nfound		\
+	help
+
+############################################################ FUNCTIONS
+
+# f_wpa_supplicant_init $file
+#
+# Initialize $file with basic contents of new wpa_supplicant.conf(5).
+#
+f_wpa_supplicant_init()
+{
+	local funcname=f_wpa_supplicant_init
+	local conf_file="$1" tmpfile
+
+	# Create a temporary file
+	f_eval_catch -k tmpfile $funcname mktemp 'mktemp -t "%s"' "$pgm" ||
+		return $FAILURE
+
+	# Make it unreadable by anyone but ourselves
+	f_eval_catch $funcname chmod \
+		'chmod 0600 "%s"' "$tmpfile" || return $FAILURE
+
+	# Make it owned by root/wheel
+	f_eval_catch $funcname chown \
+		'chown 0:0 "%s"' "$tmpfile" || return $FAILURE
+
+	# Populate it
+	cat <<-EOF >> "$tmpfile"
+	ctrl_interface=/var/run/wpa_supplicant
+	eapol_version=2
+	ap_scan=1
+	fast_reauth=1
+	EOF
+	echo >> "$tmpfile"
+
+	# Move it into place
+	f_eval_catch $funcname mv 'mv "%s" "%s"' "$tmpfile" "$conf_file"
+}
+
+# f_wpa_supplicant_parse $file [struct_prefix [count_var]]
+#
+# Parse wpa_supplicant.conf(5) $file. Default overrides are stored in a struct
+# (see struct.subr for additional details) named `{struct_prefix}defaults'. See
+# WPA_DEFAULTS struct definition in the GLOBALS section above.
+#
+# In addition, for each one of the wireless networks we parse from $file,
+# create a struct named `struct_prefixN' where `N' is a number starting from 1
+# and ending in $count_var (zero means no networks). See WPA_NETWORK struct
+# definition in the GLOBALS section above.
+#
+# If a `blob-base64-*={ ... }' entry appears, a struct named
+# `{struct_prefix}blob_base64_*' is created and the `data' property holds the
+# base64 encoded binary data without whitespace.
+#
+# Custom `*={ ... }' definitions are also supported, but should be unique
+# (unlike the `network' definition). A struct named `{struct_prefix}*' is
+# created if at least one property is defined in the block.
+#
+f_wpa_supplicant_parse()
+{
+	local file="$1" struct_prefix="$2" count_var="$3"
+
+	[ "$count_var" ] && setvar "$count_var" 0
+
+	[ "$file" ] || file=$( f_sysrc_get wpa_supplicant_conf_file )
+	if [ ! -e "$file" ]; then
+		f_dprintf "%s: No such file or directory" "$file"
+		return $FAILURE
+	fi
+
+	local list_properties
+	f_replaceall "$WPA_NETWORK_LIST_PROPERTIES" "$NL" "" list_properties
+	eval "$( awk \
+		-v count_var="$count_var"         \
+		-v struct_prefix="$struct_prefix" \
+		-v list_properties="$list_properties" '
+	BEGIN {
+		if (!count_var && !struct_prefix) exit
+		blob = count = custom_struct = network = 0
+		split(list_properties, lists, FS)
+	}
+	function set_value(struct, prop, value)
+	{
+		quoted = substr(value, 0, 1) == "\""
+		for (l in lists) if (list = prop == lists[l]) break
+		# Remove data after whitespace if unquoted and not a list
+		if (!quoted && !list) sub("[[:space:]].*", "", value)
+		# Otherwise if quoted and not a list, remove the quotes
+		# NB: wep_keyN needs to retain quoting if/when present
+		else if (quoted && !list && prop !~ /^wep_key[[:digit:]]+/) {
+			sub("^\"", "", value)
+			sub("\".*", "", value)
+		}
+		gsub(/'\''/, "'\''\\'\'\''", value) # Sanitize the value
+		if (!created[struct]) {
+			print "debug= f_struct_free", struct
+			print "debug= f_struct_new WPA_NETWORK", struct
+			created[struct] = 1
+		}
+		printf "debug= %s set %s '\'%s\''\n", struct, prop, value
+	}
+	{
+		if ($1 ~ /^network={/) {
+			empty = 1 # We do not increment count unless !empty
+			network = 1
+			next
+		} else if (match($1, "^blob-base64-[[:alnum:]_./-]+={")) {
+			blob = 1
+			blob_data = ""
+			struct = struct_prefix "blob_bas64_"
+			struct = struct substr($1, 13, RLENGTH - 14)
+			next
+		} else if (match($1, "^[[:alnum:]_./-]+={")) {
+			empty = 1
+			custom_struct = 1
+			struct = struct_prefix substr($1, 0, RLENGTH - 2)
+			gsub(/[^[:alnum:]_]/, "_", struct)
+			next
+		} else if ($1 ~ /^}/) {
+			if (blob) {
+				gsub("[[:space:]]", "", blob_data)
+				set_value(struct, "data", blob_data)
+			}
+			blob = custom_struct = network = 0
+			next
+		} else if (!match($0, /^[[:space:]]*[[:alnum:]_]+=/))
+			next
+
+		if (blob) {
+			blob_data = blob_data $0
+			next
+		} else if (network) {
+			if (empty) { count++; empty = 0 }
+			struct = struct_prefix count
+		} else if (!custom_struct)
+			struct = struct_prefix "defaults"
+
+		if (!struct_prefix) next
+
+		prop = substr($0, 0, RLENGTH - 1)
+		sub(/^[[:space:]]*/, "", prop)
+		value = substr($0, RSTART + RLENGTH)
+
+		set_value(struct, prop, value)
+	}
+	END { if (count_var) print count_var "=" count }' "$file" )"
+}
+
+# f_wpa_scan_results_parse [struct_prefix [count_var]]
+#
+# Parse the results of wpa_cli(8) `scan_results' into a series of structs (see
+# struct.subr for additional details) named `struct_prefixN' where `N' is a
+# number starting from 1 and ending in $count_var (zero means no results). See
+# WPA_SCAN_RESULT struct definition in the GLOBALS section above.
+#
+f_wpa_scan_results_parse()
+{
+	local struct_prefix="$1" count_var="$2"
+
+	[ "$count_var" ] && setvar "$count_var" 0
+
+	eval "$( wpa_cli scan_results 2> /dev/null | awk \
+		-v count_var="$count_var" \
+		-v struct_prefix="$struct_prefix" '
+	BEGIN {
+		if (!count_var && !struct_prefix) exit
+		count = 0
+		seg = "[[:xdigit:]][[:xdigit:]]"
+		bssid = seg":"seg":"seg":"seg":"seg":"seg
+		freq = siglev = flags = "[^[:space:]]+"
+		S = "[[:space:]]+"
+		line = bssid S freq S siglev S flags
+		line = "^[[:space:]]*" line "[[:space:]]*"
+	}
+	function set_value(struct, prop, value)
+	{
+		gsub(/'\''/, "'\''\\'\'\''", value) # Sanitize the value
+		if (!created[struct]) {
+			print "debug= f_struct_free", struct
+			print "debug= f_struct_new WPA_SCAN_RESULT", struct
+			created[struct] = 1
+		}
+		printf "debug= %s set %s '\'%s\''\n", struct, prop, value
+	}
+	{
+		if (!match($0, line)) next
+		ssid = substr($0, RLENGTH + 1)
+
+		count++
+		if (!struct_prefix) next
+
+		struct = struct_prefix count
+		set_value(struct, "ssid", ssid)
+		set_value(struct, "bssid",  $1)
+		set_value(struct, "freq",   $2)
+		set_value(struct, "siglev", $3)
+		set_value(struct, "flags",  $4)
+	}
+	END { if (count_var) print count_var "=" count }' )"
+}
+
+# f_wpa_scan_match_network WPA_SCAN_RESULT WPA_NETWORK
+#
+# Compares a WPA_SCAN_RESULT struct to a WPA_NETWORK struct. If they appear to
+# be a match returns success, otherwise failure.
+#
+f_wpa_scan_match_network()
+{
+	local scan_struct="$1" wireless_struct="$2"
+	local cp debug=
+
+	f_struct "$scan_struct" || return $FAILURE
+	f_struct "$wireless_struct" || return $FAILURE
+
+	local scan_ssid scan_bssid
+	$scan_struct get ssid scan_ssid
+	$scan_struct get bssid scan_bssid
+	local wireless_ssid wireless_bssid
+	$wireless_struct get ssid wireless_ssid
+	$wireless_struct get bssid wireless_bssid
+
+	local id_matched=
+	if [ "$wireless_ssid" -a "$wireless_bssid" ]; then
+		# Must match both SSID and BSSID
+		[ "$scan_ssid" = "$wireless_ssid" -a \
+		  "$scan_bssid" = "$wireless_bssid" ] && id_matched=1
+	elif [ "$wireless_ssid" ]; then
+		# Must match SSID only
+		[ "$scan_ssid" = "$wireless_ssid" ] && id_matched=1
+	elif [ "$wireless_bssid" ]; then
+		# Must match BSSID only
+		[ "$scan_bssid" = "$wireless_bssid" ] && id_matched=1
+	fi
+	[ "$id_matched" ] || return $FAILURE
+
+
+	#
+	# Get the scanned flags for the next few comparisons
+	#
+	local flags
+	$scan_struct get flags flags
+
+	#
+	# Compare configured key management against scanned network
+	#
+	if $wireless_struct get key_mgmt cp && [ "$cp" -a "$cp" != "NONE" ]
+	then
+		local mgmt mgmt_matched=
+		for mgmt in $cp; do
+			local mgmt2="$mgmt"
+			[ "$mgmt" != "${mgmt#WPA-}" ] &&
+				mgmt2="WPA2${mgmt#WPA}"
+			case "$flags" in
+			"$mgmt"|"$mgmt"-*|*-"$mgmt"|*-"$mgmt"-*)
+				mgmt_matched=1 break ;;
+			"$mgmt2"|"$mgmt2"-*|*-"$mgmt2"|*-"$mgmt2"-*)
+				mgmt_matched=1 break ;;
+			esac
+		done
+		[ "$mgmt_matched" ] || return $FAILURE
+	fi
+
+	local enc type flag
+
+	#
+	# Compare configured encryption against scanned network
+	#
+	for enc in psk:PSK eap:EAP \
+		wep_key0:WEP wep_key1:WEP wep_key2:WEP wep_key3:WEP
+	do
+		type=${enc%%:*}
+		flag=${enc#*:}
+		{ debug= $wireless_struct get $type cp && [ "$cp" ]; } ||
+			continue
+		# Configured network requires encryption
+		case "$flags" in "[$flag]"|*"-$flag-"*)
+			break # Success; stop after first match
+		esac
+		return $FAILURE
+	done
+	cp="" # sensitive info
+
+	#
+	# Compare scanned network encryption against configuration
+	# NB: Scanned network flags indicates _one_ of PSK EAP or WEP
+	# NB: Otherwise, no encryption (so encryption won't match)
+	#
+	local enc_wanted=
+	for enc in -PSK-:psk -EAP-:eap; do
+		flag=${enc%%:*}
+		type=${enc#*:}
+		case "$flags" in *"$flag"*)
+			enc_wanted=1
+			{ debug= $wireless_struct get $type cp &&
+				[ "$cp" ]; } || return $FAILURE
+			break # success
+		esac
+	done
+	case "$flags" in *"[WEP]"*)
+		enc_wanted=1
+		local wep_found=
+		for type in wep_key0 wep_key1 wep_key2 wep_key3; do
+			debug= $wireless_struct get $type cp && [ "$cp" ] &&
+				wep_found=1 break
+		done
+		[ "$wep_found" ] || return $FAILURE
+	esac
+	if [ ! "$enc_wanted" ]; then
+		# No match if the network specifies encryption
+		for type in psk eap wep_key0 wep_key1 wep_key2 wep_key3; do
+			debug= $wireless_struct get $type cp && [ "$cp" ] &&
+				return $FAILURE
+		done
+	fi
+	cp="" # sensitive info
+
+	return $SUCCESS
+}
+
+# f_wpa_scan_find_matches scans_prefix $scans_count \
+#                         wireless_prefix $wireless_count
+#
+# For each struct from `{scans_prefix}1' up to `{scans_prefix}$scans_count'
+# (see struct.subr for additional details) compare the wireless network info
+# (defined as struct WPA_SCAN_RESULT) to that of each configured wireless 
+# stored in `{wireless_prefix}1' (defined as struct WPA_NETWORK) up to
+# `{wireless_prefix}$wireless_count'.
+#
+# If a scanned network is deemed to be a match to a configured wireless
+# network, a new `match' property is set on the WPA_NETWORK struct with a value
+# of `{scans_prefix}N' (where N represents the scanned network that matched).
+# At the same time, a new `matched' property is set on the WPA_SCAN_RESULT
+# struct with a value of 1, indicating that this network has been matched to a
+# stored [known] configuration and that it should not be displayed in menus.
+#
+# NB: If a matching entry is not correct, the user can optionally `Forget' the
+# network and that will cause the WPA_SCAN_RESULT to no longer match anything,
+# causing it to appear in the menus again.
+#
+# Return status should be ignored.
+#
+f_wpa_scan_find_matches()
+{
+	local scans_prefix="$1" scans_count="$2"
+	local wireless_prefix="$3" wireless_count="$4"
+	local matches
+
+	[ "$scans_count" -a "$wireless_count" ] || return $SUCCESS
+	f_isinteger "$scans_count" || return $FAILURE
+	f_isinteger "$wireless_count" || return $FAILURE
+
+	#
+	# Go through and eradicate any flags we set in a prior run, as things
+	# might have changed on us (either from the config side or scan side)
+	#
+	local w=1
+	while [ $w -le $wireless_count ]; do
+		f_struct "$wireless_prefix$w" set matches ""
+		w=$(( $w + 1 ))
+	done
+
+	#
+	# Find matches and set match data on structs
+	#
+	local s=1
+	while [ $s -le $scans_count ]; do
+		f_struct "$scans_prefix$s" set matched ""
+		w=1
+		while [ $w -le $wireless_count ]; do
+			if f_wpa_scan_match_network \
+				"$scans_prefix$s" "$wireless_prefix$w"
+			then
+				f_struct "$scans_prefix$s" set matched 1
+				debug= f_struct "$wireless_prefix$w" \
+				         get matches matches
+				matches="$matches${matches:+ }$scans_prefix$s"
+				f_struct "$wireless_prefix$w" \
+				         set matches "$matches"
+				break # to next scan result
+			fi
+			w=$(( $w + 1 ))
+		done
+		s=$(( $s + 1 ))
+	done
+}
+
+# f_dialog_menu_wlandev_edit $wlandev [$defaultitem]
+#
+# Display a list of wireless network devices (wlan*) associated with
+# $wlandev (e.g., `iwn0'). Allow the user to create and destroy wlan interfaces
+# while selecting ones to be cloned at startup (by setting `wlans_$wlandev').
+#
+f_dialog_menu_wlandev_edit()
+{
+	local funcname=f_dialog_menu_wlandev_edit
+	local wlandev="$1" defaultitem="$2"
+	local title="$DIALOG_TITLE"
+	local btitle="$DIALOG_BACKTITLE"
+	local prompt # Calculated below
+	local hline="$hline_arrows_tab_enter"
+
+	[ "$wlandev" ] || return $FAILURE
+
+	f_sprintf prompt "$msg_select_wlan_interfaces_for" "wlandev"
+
+	#
+	# Initially mark wlan devices with a %parent of $wlandev
+	#
+	local dev devs if list_to_save=
+	f_device_find "" $DEVICE_TYPE_NETWORK devs
+	for dev in $devs; do
+		f_struct "$dev" get name if || continue
+		case "$if" in wlan[0-9]*)
+			parent=$( sysctl -n net.wlan.${if#wlan}.%parent \
+				2> /dev/null )
+			if [ "$parent" = "$if" ]; then
+				local _wlanmark_$if="X"
+				list_to_save="$list_to_save $if"
+			fi
+		esac
+	done
+	list_to_save="${list_to_save# }"
+
+	#
+	# Operate in a loop so we can create/destroy interfaces from here
+	#
+	while :; do
+		#
+		# Refresh list of wlan interfaces
+		#
+		local wlanlist=
+		f_device_rescan_network
+		f_device_find "" $DEVICE_TYPE_NETWORK devs
+		for dev in $devs; do
+			f_struct "$dev" get name if || continue
+			case "$if" in wlan[0-9]*)
+				wlanlist="$wlanlist $if"
+			esac
+		done
+
+		#
+		# Build menu list of wlan devices
+		#
+		local menu_list="
+			'> $msg_save_exit'  '$msg_return_to_previous_menu'
+			'> $msg_create_new' 'wlan'
+			'> $msg_destroy'    '...'
+		" # END-QUOTE
+		local parent X
+		for if in $wlanlist; do
+			f_getvar _wlanmark_$if-" " X
+			menu_list="$menu_list '[$X] $if' '%parent: $parent'"
+			[ "$defaultitem" = "$if" ] && defaultitem="[$X] $if"
+		done 
+
+		#
+		# Ask user to make a choice
+		#
+		local height width rows
+		eval f_dialog_menu_size height width rows \
+			\"\$title\" \"\$btitle\" \"\$prompt\" \"\$hline\" \
+			$menu_list
+		local menu_choice
+		menu_choice=$( eval $DIALOG \
+			--title \"\$title\"              \
+			--backtitle \"\$btitle\"         \
+			--hline \"\$hline\"              \
+			--ok-label \"\$msg_select\"      \
+			--cancel-label \"\$msg_cancel\"  \
+			--default-item \"\$defaultitem\" \
+			--menu \"\$prompt\"              \
+			$height $width $rows             \
+			$menu_list                       \
+			2>&1 >&$DIALOG_TERMINAL_PASSTHRU_FD
+		) || return $FAILURE
+		f_dialog_data_sanitize menu_choice
+
+		case "$menu_choice" in
+		"> $msg_save_exit") # Save list to rc.conf(5) `wlans_$wlandev'
+			f_eval_catch $funcname f_sysrc_set \
+				'f_sysrc_set "wlans_%s" "%s"' \
+				"$wlandev" "$list_to_save" || continue
+			break # to success
+			;;
+		"> $msg_create_new") # Create new wlan interface for wlandev
+			local wlan
+			f_eval_catch -k wlan $funcname ifconfig \
+				'ifconfig wlan create wlandev "%s"' \
+				"$wlandev" || continue
+			local _wlanmark_$wlan="X"
+			list_to_save="$list_to_save${list_to_save:+ }$wlan"
+			;;
+		"> $msg_destroy") # Display a menu to pick one item to destroy
+			[ "$wlanlist" ] || continue # Nothing to destroy
+
+			menu_list=
+			for if in $wlanlist; do
+				menu_list="$menu_list '$if' ''"
+			done
+			local msg="$msg_pick_an_interface_to_destroy"
+			eval f_dialog_menu_size height width rows \
+			    \"\$title\" \"$btitle\" \"\$msg\" \"\" $menu_list
+			menu_choice=$( eval $DIALOG \
+				--title \"\$title\"             \
+				--backtitle \"\$btitle\"        \
+				--ok-label \"\$msg_destroy\"    \
+				--cancel-label \"\$msg_cancel\" \
+				--menu \"\$msg\"                \
+				$height $width $rows            \
+				$menu_list                      \
+				2>&1 >&$DIALOG_TERMINAL_PASSTHRU_FD
+			) || continue
+			f_dialog_data_sanitize menu_choice
+			f_eval_catch $funcname ifconfig \
+				'ifconfig "%s" destroy' "$menu_choice"
+			;;
+		"[ ] wlan"[0-9]*) # Unmarked; Mark
+			if="${menu_choice#??? }"
+			local _wlanmark_$if="X"
+			list_to_save="$list_to_save${list_to_save:+ }$if"
+			;;
+		"[X] wlan"[0-9]*) # Marked; Unmark
+			menu_choice="${menu_choice#??? }"
+			local _wlanmark_$menu_choice=" "
+			local new_list_to_save=
+			for if in $list_to_save; do
+				[ "$if" = "$menu_choice" ] && continue
+				new_list_to_save="$new_list_to_save $if"
+			done
+			list_to_save="${new_list_to_save# }"
+			;;
+		esac
+	done
+
+	return $SUCCESS
+}
+
+# f_dialog_scan_wireless
+#
+# Initiate a scan for wireless networks. If wpa_supplicant(8) is not running
+# but a wlan interface has been created, start an instance of wpa_supplicant(8)
+# with the first wlan(4) interface we find. After initiating the scan, displays
+# a message for 5 seconds (with option to dismiss). Returns failure if an error
+# occurs, otherwise success.
+#
+f_dialog_scan_wireless()
+{
+	local funcname=f_dialog_scan_wireless
+
+	#
+	# Try to communicate with a running wpa_supplicant(8)
+	#
+	if ! f_eval_catch -d $funcname wpa_cli 'wpa_cli ping'; then
+
+		# If there is indeed one running, bail!
+		if ps axo ucomm= | grep -qw wpa_supplicant; then
+			f_show_msg "$msg_failed_to_reach_wpa_supplicant" \
+			           "$msg_wpa_cli_ping_failed"
+			return $FAILURE
+		fi
+
+		# Try and find a wlan device so we can start wpa_supplicant
+		local dev devs if wlan=
+		f_device_rescan_network
+		f_device_find "" $DEVICE_TYPE_NETWORK devs
+		for dev in $devs; do
+			f_struct "$dev" get name if || continue
+			case "$if" in wlan[0-9]*)
+				wlan=$if
+				break
+			esac
+		done
+		if [ ! "$wlan" ]; then
+			# We can't start wpa_supplicant without wlan interface
+			# Tell the user they have to create one by navigating
+			# to a Wireless device to create a wlan interface. But
+			# let's go one step further and find an interface that
+			# we can provide in the prompt text.
+			local wlandev=
+			for if in $devs; do
+				case "$if" in wlan[0-9]*) next; esac
+				if f_device_is_wireless $if; then
+					wlandev=$if
+					break
+				fi
+			done
+			if [ "$wlandev" ]; then
+				f_show_msg "$msg_cant_start_wpa_supplicant" \
+				           "$wlandev"
+			else
+				# Warn user, appears no wireless available
+				f_show_msg "$msg_warning_no_wireless_devices"
+			fi
+			return $FAILURE
+		fi
+
+		# NB: Before we can proceed to fire up wpa_supplicant(8), let's
+		# make sure there is a bare-bones wpa_supplicant.conf(5) for it
+		local conf_file
+		conf_file=$( f_sysrc_get wpa_supplicant_conf_file )
+		if [ ! -e "$conf_file" ]; then
+			f_wpa_supplicant_init "$conf_file" || return $FAILURE
+			f_eval_catch -d $funcname wpa_cli 'wpa_cli reconfigure'
+		fi
+
+		# Try and start wpa_supplicant(8)
+		f_eval_catch $funcname wpa_supplicant \
+		        '/etc/rc.d/wpa_supplicant start "%s"' "$wlan" ||
+			return $FAILURE
+
+		# Try to reach this new wpa_supplicant(8)
+		if ! f_eval_catch -d $funcname wpa_cli 'wpa_cli ping'; then
+			f_show_msg "$msg_failed_to_reach_wpa_supplicant" \
+			           "$msg_wpa_cli_ping_failed"
+			return $FAILURE
+		fi
+
+	fi # ! f_quietly wpa_cli ping
+
+	# If we reach hear, then it should be OK to scan the airwaves
+	f_eval_catch -d $funcname wpa_cli 'wpa_cli scan' || return $FAILURE
+
+	# Return immediately if a duration is: null or not a number >= 1
+	local duration="$DIALOG_MENU_WLAN_SCAN_DURATION"
+	f_isinteger "$duration" || return $SUCCESS
+	[ $duration -gt 0 ] || return $SUCCESS
+
+	# Display a message that times-out if not dismissed manually
+	local prompt
+	f_sprintf prompt "$msg_scanning_wireless_pausing" "$duration"
+	f_dialog_pause "$prompt" "$duration"
+}
+
+# f_dialog_wireless_edit $ssid
+#
+# Display a menu to allow the user to either create a new entry for the
+# wpa_supplicants.conf(5) file, or to edit values for an existing entry.
+#
+# If more than one wireless network is found to match $ssid, a sub-menu is
+# presented, allowing the user to select the desired network.
+#
+f_dialog_wireless_edit()
+{
+	local title="$DIALOG_TITLE"
+	local btitle="$DIALOG_BACKTITLE"
+	local prompt1="$msg_select_the_configuration_you_would_like"
+	local prompt2 # Calculated below
+	local hline="$hline_alnum_arrows_punc_tab_enter"
+	local ssid="$1" bssid="$2"
+
+	f_sprintf prompt2 "$msg_wireless_network_configuration_for" "$ssid"
+
+	#
+	# Find one or more configurations that match the SSID selection
+	#
+	local height1 width1 rows1 menu_list1=
+	local n=0 nmatches=0 tag wssid wbssid help matches=
+	while [ $n -lt $NWIRELESS_CONFIGS ]; do
+		n=$(( $n + 1 ))
+
+		debug= f_struct WIRELESS_$n get ssid wssid
+		[ "$ssid" = "$wssid" ] || continue
+		debug= f_struct WIRELESS_$n get bssid wbssid
+		[ "${bssid:-$wbssid}" = "$wbssid" ] || continue
+
+		nmatches=$(( $nmatches + 1 ))
+		[ $nmatches -le ${#DIALOG_MENU_TAGS} ] || break
+		f_substr -v tag "$DIALOG_MENU_TAGS" $nmatches 1
+
+		f_wireless_describe WIRELESS_$n help
+		menu_list1="$menu_list1
+			'$tag $wssid' '$wbssid' '$help'
+		" # END-QUOTE
+
+		matches="$matches WIRELESS_$n"
+	done
+	if [ $nmatches -eq 0 ]; then
+		f_show_msg "$msg_cannot_edit_wireless_ssid" "$ssid"
+		return $FAILURE
+	elif [ $nmatches -eq 1 ]; then
+		struct=${matches# }
+	else
+		eval f_dialog_menu_with_help_size height1 width1 rows1 \
+			\"\$title\" \"\$btitle\" \"\$prompt1\" \"\$hline\" \
+			$menu_list1
+	fi
+
+	#
+	# Operate in a loop; for the case of $nmatches > 1, we can cycle back
+	# to allow the user to make another choice after inspecting each one.
+	#
+	local menu_choice index struct defaultitem1=
+	while :; do
+		if [ $nmatches -gt 1 ]; then
+			menu_choice=$( eval $DIALOG \
+				--title \"\$title\"               \
+				--backtitle \"\$btitle\"          \
+				--hline \"\$hline\"               \
+				--ok-label \"\$msg_select\"       \
+				--cancel-label \"\$msg_cancel\"   \
+				--item-help                       \
+				--default-item \"\$defaultitem1\" \
+				--menu \"\$prompt1\"              \
+				$height1 $width1 $rows1           \
+				$menu_list1                       \
+				2>&1 >&$DIALOG_TERMINAL_PASSTHRU_FD
+			) || return $FAILURE
+			f_dialog_data_sanitize menu_choice
+			defaultitem1="$menu_choice"
+			index=$( eval f_dialog_menutag2index_with_help \
+				\"\$menu_choice\" $menu_list1 )
+			struct=$( set -- $matches; eval echo \${$index} )
+		fi
+
+		#
+		# Operate within another loop to allow editing multiple values
+		#
+		local menu_list2 height2 width2 rows2 member
+		while :; do
+			menu_list2="
+				'> $msg_save_exit'
+					'$msg_return_to_previous_menu'
+			" # END-QUOTE
+			n=0
+			for member in $_struct_typedef_WPA_NETWORK; do
+				[ "$member" = "ssid" ] && continue
+				debug= $struct get $member value || continue
+				n=$(( $n + 1 ))
+				[ $n -le ${#DIALOG_MENU_TAGS} ] || break
+				f_substr -v tag "$DIALOG_MENU_TAGS" $n 1
+				if [ ${#value} -gt 32 ]; then
+					f_snprintf value 29 "%s" "$value"
+					value="$value..."
+				fi
+				case "$member" in
+				password|pin|private_key_passwd|psk|wep_key*)
+					f_replaceall "$value" "?" "*" value ;;
+				esac
+				f_shell_escape "$value" value
+				menu_list2="$menu_list2
+					'$tag $member' '$value'
+				" # END-QUOTE
+			done
+			eval f_dialog_menu_size height2 width2 rows2 \
+				\"\$title\" \"\$btitle\" \"\$prompt2\" \
+				\"\$hline\" $menu_list2
+			menu_choice=$( eval $DIALOG \
+				--title \"\$title\"               \
+				--backtitle \"\$btitle\"          \
+				--hline \"\$hline\"               \
+				--ok-label \"\$msg_select\"       \
+				--cancel-label \"\$msg_cancel\"   \
+				--default-item \"\$defaultitem2\" \
+				--menu \"\$prompt2\"              \
+				$height2 $width2 $rows2           \
+				$menu_list2                       \
+				2>&1 >&$DIALOG_TERMINAL_PASSTHRU_FD
+			) || break
+			f_dialog_data_sanitize menu_choice
+			defaultitem2="$menu_choice"
+
+			# XXXDT Unfinished
+		done
+		[ $nmatches -eq 1 ] && break
+	done
+
+	#
+	# XXXDT Unfinished
+	# This is where we display a menu that edits the entry
+	# And then we modify the wpa_supplicants.conf(5) config file
+	# XXXDT Unfinished
+	#
+
+	return $FAILURE # XXXDT Simulating DIALOG_CANCEL to mean ``no changes''
+}
+
+# f_wireless_describe WPA_NETWORK [$var_to_set]
+#
+# Provide a description of the WPA_NETWORK struct. If $var_to_set is missing or
+# NULL, the description is provided on standard output (which is less preferred
+# due to performance; e.g., if called in a loop).
+#
+f_wireless_describe()
+{
+	local __struct="$1" __var_to_set="$2" debug=
+
+	[ "$__var_to_set" ] && setvar "$__var_to_set" ""
+	f_struct "$__struct" || return $FAILURE
+
+	#
+	# Basic description is `proto key_mgmt group eap'
+	#
+	local __member __cp __desc=
+	for __member in proto key_mgmt group eap; do
+		$__struct get $__member __cp && [ "$__cp" ] &&
+			__desc="$__desc${__desc:+ }$__cp"
+	done
+
+	local __check __kk
+
+	#
+	# Make sure we add WEP40/WEP140 even if omitted from the key_mgmt
+	# section of entry
+	#
+	local __wep_keyN __f_wireless_describe_first_char __length
+	for __wep_keyN in wep_key0 wep_key1 wep_key2 wep_key3; do
+		$__struct get $__wep_keyN __kk
+		[ "$__kk" ] || continue
+
+		# What type is it? ASCII or HEX?
+		__check=WEP
+		f_substr -v __f_wireless_describe_first_char "$__kk" 1 1
+		case "$__f_wireless_describe_first_char" in
+		\") # ASCII
+			__length=$(( ${#__kk} - 2 ))
+			if [ $__length -le 5 ]; then
+				__check=WEP40
+			elif [ $__length -le 13 ]; then
+				__check=WEP104
+			fi ;;
+		*) # HEX
+			__length=${#__kk}
+			if [ $__length -eq 10 ]; then
+				__check=WEP40
+			elif [ $__length -le 26 ]; then
+				__check=WEP104
+			fi
+		esac
+		__kk="" # sensitive info
+
+		case "$__desc" in
+		*"$__check"*) : already there ;;
+		*) __desc="$__desc${__desc:+ }$__check"
+		esac
+	done
+
+	#
+	# Make sure we display PSK even if omitted
+	# from the key_mgmt section of the entry
+	#
+	$__struct get psk __kk
+	if [ "$__kk" ]; then
+		__kk="" # sensitive info
+		__check=PSK
+		case "$__desc" in
+		*"$__check"*) : already there ;;
+		*) __desc="$__desc${__desc:+ }$__check"
+		esac
+	fi
+
+	#
+	# Produce results
+	#
+	if [ "$__var_to_set" ]; then
+		setvar "$__var_to_set" "${__desc:-NONE}"
+	else
+		echo "$__desc"
+	fi
+}
+
+# f_menu_wireless_configs
+#
+# Generates the tag/item/help triplets for wireless network menu (`--item-help'
+# required) from wpa_supplicant.conf(5) [WPA_NETWORK] structs.
+#
+f_menu_wireless_configs()
+{
+	[ "$DIALOG_MENU_WLAN_SHOW_CONFIGURED" ] || return $SUCCESS
+
+	echo "' - $msg_configured_ssids -' ' - $msg_details -' ''"
+
+	local n=0 nunique=0 debug=
+	local ssid ussid matches nmatches nconfigs nfound help desc w
+	while [ $n -lt $NWIRELESS_CONFIGS ]; do
+		n=$(( $n + 1 ))
+
+		f_struct WIRELESS_$n get ssid ssid
+		[ ! "$DIALOG_MENU_WLAN_SHOW_ALL" -a ! "$ssid" ] && continue
+
+		local u=0 unique=1
+		while [ $u -lt $nunique ]; do
+			u=$(( $u + 1 ))
+			menuitem_$u get ssid ussid
+			[ "$ssid" != "$ussid" ] || unique= break
+		done
+		if [ "$unique" ]; then
+			nunique=$(( $nunique + 1 ))
+			u=$nunique
+
+			# Set SSID and initialize number of configs found (1)
+			f_struct_new WLAN_MENU_ITEM menuitem_$u
+			menuitem_$u set ssid "$ssid"
+			menuitem_$u set nconfigs 1
+
+			# Set number of wireless networks that match config
+			WIRELESS_$n get matches matches
+			f_count nmatches $matches
+			menuitem_$u set nfound $nmatches
+
+			# Set help to description of the wireless config
+			f_wireless_describe WIRELESS_$n desc
+			menuitem_$u set help "$desc"
+		else
+			# Increment number of configs found with this SSID
+			menuitem_$u get nconfigs nconfigs
+			nconfigs=$(( $nconfigs + 1 ))
+			menuitem_$u set nconfigs $nconfigs
+
+			# Add number of matched networks to existing count
+			WIRELESS_$n get matches matches
+			f_count nmatches $matches
+			menuitem_$u get nfound nfound
+			nfound=$(( $nfound + $nmatches ))
+			menuitem_$u set nfound $nfound
+
+			# Combine description with existing help
+			menuitem_$u get help help
+			f_wireless_describe WIRELESS_$n desc
+			for w in $desc; do
+				case "$help" in
+				"$w"|"$w "*|*" $w"|*" $w "*) : already there ;;
+				*) help="$help $w"
+				esac
+			done
+			menuitem_$u set help "${help# }"
+		fi
+	done
+
+	n=0
+	while [ $n -lt $nunique ]; do
+		n=$(( $n + 1 ))
+		menuitem_$n get ssid ssid
+
+		menuitem_$n get nconfigs nconfigs
+		desc="$nconfigs $msg_configured_lc"
+		[ $nconfigs -lt 10 ] && desc=" $desc"
+		menuitem_$n get nfound nfound
+		[ $nfound -gt 0 ] && desc="$desc $nfound $msg_found"
+
+		menuitem_$n get help help
+		echo "'[X] $ssid' '$desc' '$help'"
+	done | sort -bf | awk 'BEGIN { prefix = "" }
+	{
+		cur_prefix = toupper(substr($0, 6, 1))
+		if (cur_prefix != "'\''" && prefix != cur_prefix ) {
+			prefix = cur_prefix
+			printf "'\''%c%s\n", prefix, substr($0, 2)
+		} else
+			printf "'\'' %s\n", substr($0, 2)
+	}'
+}
+
+# f_menu_wpa_scan_results
+#
+# Generates the tag/item/help triplets for wireless network menu (`--item-help'
+# required) from wpa_cli(8) `scan_results' [WPA_SCAN_RESULT] structs.
+#
+f_menu_wpa_scan_results()
+{
+	[ "$DIALOG_MENU_WLAN_SHOW_SCAN_RESULTS" ] || return $SUCCESS
+
+	if [ "$DIALOG_MENU_WLAN_SHOW_ALL" ]; then
+		echo "' - $msg_discovered_ssids -' ' - $msg_details -' ''"
+	else
+		echo "' - $msg_discovered_ssids -' '' ''"
+	fi
+
+	local n=0 nunique=0 debug=
+	local ssid ussid matched nfound help flags f
+	while [ $n -lt $NWSCAN_RESULTS ]; do
+		n=$(( $n + 1 ))
+
+		WSCANS_$n get ssid ssid
+		[ ! "$DIALOG_MENU_WLAN_SHOW_ALL" -a ! "$ssid" ] && continue
+
+		WSCANS_$n get matched matched
+		[ "$DIALOG_MENU_WLAN_SHOW_CONFIGURED" -a "$matched" ] &&
+			continue
+
+		local u=0 unique=1
+		while [ $u -lt $nunique ]; do
+			u=$(( $u + 1 ))
+			menuitem_$u get ssid ussid
+			[ "$ssid" != "$ussid" ] || unique= break
+		done
+		if [ "$unique" ]; then
+			nunique=$(( $nunique + 1 ))
+			u=$nunique
+
+			# Set SSID and initialize number of networks found (1)
+			f_struct_new WLAN_MENU_ITEM menuitem_$u
+			menuitem_$u set ssid "$ssid"
+			menuitem_$u set nfound 1
+
+			# Set help to flags
+			WSCANS_$n get flags flags
+			f_replaceall "$flags" "[" " " flags
+			f_replaceall "$flags" "]" "" flags
+			flags="${flags# }"
+			case "$flags" in
+			"") flags="NONE" ;;
+			ESS) flags="NONE ESS" ;;
+			esac
+			menuitem_$u set help "$flags"
+		else
+			# Increment number of networks found with this SSID
+			menuitem_$u get nfound nfound
+			nfound=$(( $nfound + 1 ))
+			menuitem_$u set nfound $nfound
+
+			# Combine flags into existing help
+			WSCANS_$n get flags flags
+			f_replaceall "$flags" "[" " " flags
+			f_replaceall "$flags" "]" "" flags
+			local flags_ess=
+			case "$flags" in *" ESS")
+				flags_ess=1
+				flags="${flags% ESS}"
+			esac
+			local help_ess=
+			menuitem_$u get help help
+			case "$help" in *" ESS")
+				help_ess=1
+				help="${help% ESS}"
+			esac
+			for f in ${flags:-NONE}; do 
+				case "$help" in
+				"$f"|"$f "*|*" $f"|*" $f "*) : already there ;;
+				*) help="$help $f"
+				esac
+			done
+			[ "$flags_ess" -a ! "$help_ess" ] && help="$help ESS"
+			menuitem_$u set help "${help# }"
+		fi
+	done
+
+	local desc n=0
+	while [ $n -lt $nunique ]; do
+		n=$(( $n + 1 ))
+		menuitem_$n get ssid ssid
+
+		desc=
+		if [ "$DIALOG_MENU_WLAN_SHOW_ALL" ]; then
+			menuitem_$n get nfound nfound
+			desc="$nfound $msg_found"
+			[ $nfound -lt 10 ] && desc=" $desc"
+		fi
+
+		menuitem_$n get help help
+		echo "'[ ] $ssid' '$desc' '$help'"
+	done | sort -bf | awk 'BEGIN { prefix = "" }
+	{
+		cur_prefix = toupper(substr($0, 6, 1))
+		if (cur_prefix != "'\''" && prefix != cur_prefix ) {
+			prefix = cur_prefix
+			printf "'\''%c%s\n", prefix, substr($0, 2)
+		} else
+			printf "'\'' %s\n", substr($0, 2)
+	}'
+}
+
+# f_dialog_menu_wireless_edit
+#
+# Display a list of wireless networks configured in wpa_supplicants.conf(5) and
+# (if wpa_supplicant(8) is running) also displays scan results for unconfigured
+# wireless networks.
+#
+f_dialog_menu_wireless_edit()
+{
+	local funcname=f_dialog_menu_wireless_edit
+	local title="$DIALOG_TITLE"
+	local btitle="$DIALOG_BACKTITLE"
+	local prompt="$msg_wireless_networks_text"
+	local menu_list # Calculated below
+	local defaultitem= # Calculated below
+	local hline="$hline_alnum_arrows_punc_tab_enter"
+
+	f_show_info "$msg_loading_wireless_menu"
+
+	local conf_file
+	conf_file=$( f_sysrc_get wpa_supplicant_conf_file )
+
+	#
+	# Operate in a loop so we can edit wpa_supplicant.conf(5) and rescan
+	# for new wireless networks from here.
+	#
+	local do_parse=1 remake_menu=1 item
+	while :; do
+		#
+		# If this is the first time here, parse wpa_supplicant.conf(5),
+		# scan the airwaves, and compare to find matches.
+		#
+		if [ "$do_parse" -a "$DIALOG_MENU_WLAN_SHOW_SCAN_RESULTS" ]
+		then
+			f_dprintf "$funcname: Parsing wireless scan results"
+			f_dialog_scan_wireless &&
+				f_wpa_scan_results_parse WSCANS_ NWSCAN_RESULTS
+			f_dprintf "$funcname: Parsed %i scanned networks" \
+			          $NWSCAN_RESULTS
+		fi
+		if [ "$do_parse" -a "$DIALOG_MENU_WLAN_SHOW_CONFIGURED" ]
+		then
+			f_dprintf "$funcname: Parsing wpa_supplicants.conf(5)"
+			f_wpa_supplicant_parse "$conf_file" \
+			                       WIRELESS_ NWIRELESS_CONFIGS
+			f_dprintf "%s: Parsed %i wireless configurations" \
+				  $funcname $NWIRELESS_CONFIGS
+			f_wpa_scan_find_matches WSCANS_ $NWSCAN_RESULTS \
+			                        WIRELESS_ $NWIRELESS_CONFIGS
+		fi
+		do_parse=
+
+		if [ "$remake_menu" ]; then
+			remake_menu=
+
+			#
+			# Add both items scanned from the airwaves and networks
+			# parsed from wpa_supplicants.conf(5). Latter items are
+			# marked, sorted, and added to top of list above the
+			# former (which are unmarked and sorted separately).
+			#
+			f_dprintf "$funcname: Building menu list..."
+			menu_list=$( 
+				# Process wpa_supplicant.conf(5) structs
+				f_menu_wireless_configs
+				# Process wpa_cli(8) `scan_results' structs
+				f_menu_wpa_scan_results
+			)
+			f_dprintf "$funcname: menu list built."
+
+			#
+			# Add static top-level menu items
+			#
+			local XA=" " XC=" " XS=" "
+			[ "$DIALOG_MENU_WLAN_SHOW_ALL"          ] && XA="X"
+			[ "$DIALOG_MENU_WLAN_SHOW_CONFIGURED"   ] && XC="X"
+			[ "$DIALOG_MENU_WLAN_SHOW_SCAN_RESULTS" ] && XS="X"
+			menu_list="
+				'> $msg_exit' '$msg_return_to_previous_menu'
+					''
+				'> $msg_rescan_wireless'   '*'
+					'$msg_rescan_wireless_help'
+				'> $msg_forget_all'        '*'
+					'$msg_forget_all_help'
+				'> $msg_show_configured'   '[$XC]'
+					'$msg_show_configured_help'
+				'> $msg_show_scan_results' '[$XS]'
+					'$msg_show_scan_results_help'
+				'> $msg_show_all'          '[$XA]'
+					'$msg_show_all_help'
+				'> $msg_manually_connect'  '...'
+					'$msg_manually_connect_help'
+			$menu_list" # END-QUOTE
+		fi
+
+		local height width rows
+		eval f_dialog_menu_with_help_size height width rows \
+			\"\$title\" \"\$btitle\" \"\$prompt\" \"\$hline\" \
+			$menu_list
+
+		local menu_choice
+		menu_choice=$( eval $DIALOG \
+			--title \"\$title\"              \
+			--backtitle \"\$btitle\"         \
+			--hline \"\$hline\"              \
+			--ok-label \"\$msg_select\"      \
+			--cancel-label \"\$msg_cancel\"  \
+			--item-help                      \
+			--default-item \"\$defaultitem\" \
+			--menu \"\$prompt\"              \
+			$height $width $rows             \
+			$menu_list                       \
+			2>&1 >&$DIALOG_TERMINAL_PASSTHRU_FD
+		) || break
+		f_dialog_data_sanitize menu_choice
+		defaultitem="$menu_choice"
+
+		case "$menu_choice" in
+		"> $msg_exit") break ;;
+		"> $msg_rescan_wireless") do_parse=1 remake_menu=1 ;;
+		"> $msg_forget_all")
+			if f_noyes "$msg_forget_all_confirm"; then
+				f_eval_catch $funcname rm \
+					'rm -f "%s"' "$conf_file" || continue
+				f_wpa_supplicant_init "$conf_file" || continue
+				f_eval_catch -d $funcname wpa_cli \
+					'wpa_cli reconfigure'
+				f_wpa_supplicant_parse "$conf_file" \
+					WIRELESS_ NWIRELESS_CONFIGS
+				f_wpa_scan_find_matches \
+					WSCANS_ $NWSCAN_RESULTS \
+					WIRELESS_ $NWIRELESS_CONFIGS
+				do_parse=1 remake_menu=1
+			fi ;;
+		"> $msg_show_configured")
+			item=$( eval f_dialog_menutag2item_with_help \
+			        		\"\$menu_choice\" $menu_list )
+			if [ "$item" = "[ ]" ]; then
+				DIALOG_MENU_WLAN_SHOW_CONFIGURED=1
+			else
+				DIALOG_MENU_WLAN_SHOW_CONFIGURED=
+			fi
+			remake_menu=1 ;;
+		"> $msg_show_scan_results")
+			item=$( eval f_dialog_menutag2item_with_help \
+			        		\"\$menu_choice\" $menu_list )
+			if [ "$item" = "[ ]" ]; then
+				DIALOG_MENU_WLAN_SHOW_SCAN_RESULTS=1
+			else
+				DIALOG_MENU_WLAN_SHOW_SCAN_RESULTS=
+			fi
+			remake_menu=1 ;;
+		"> $msg_show_all")
+			item=$( eval f_dialog_menutag2item_with_help \
+			        		\"\$menu_choice\" $menu_list )
+			if [ "$item" = "[ ]" ]; then
+				DIALOG_MENU_WLAN_SHOW_ALL=1
+			else
+				DIALOG_MENU_WLAN_SHOW_ALL=
+			fi
+			remake_menu=1 ;;
+		"> $msg_manually_connect")
+			f_dialog_wireless_edit && remake_menu=1 ;;
+		?"[X] "*)
+			ssid="${menu_choice#??X? }"
+			f_dialog_wireless_edit "$ssid" || continue
+			do_parse=1 remake_menu=1 ;;
+		"[ ] "*)
+			:
+			: XXXDT Unfinished
+			:
+			;;
+		esac
+	done
+
+	#
+	# XXXDT Unfinished
+	#
+}
+
+############################################################ MAIN
+
+f_dprintf "%s: Successfully loaded." media/wlan.subr
+
+fi # ! $_MEDIA_WLAN_SUBR