#!/usr/bin/webif-page
<?

###
 #
 # FreeWLAN Addons - http://www.freewlan.info
 #
 # This Script is based on the original La Fonera Firmware version 0.7.1r2
 #
 # This program is free software; you can redistribute it and/or
 # modify it under the terms of the GNU General Public License
 # as published by the Free Software Foundation; either version 2
 # of the License, or (at your option) any later version.
 #
 # This program is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 # GNU General Public License for more details.
 #
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
 # MA  02110-1301, USA
 #
 # http://www.gnu.org/copyleft/gpl.html
 #
###

. /usr/lib/webif/webif.sh

validate <<EOF
string|FORM_submit|@TR<<Submit>>|max=10|$FORM_submit
EOF

if [ "$?" != "0" ]
then
	FORM_submit=""
fi

load_settings fon
get_default mode wan mode

if empty "$FORM_submit"; then
	get_default ssid private essid
	get_default hide_ssid private hidden
	get_default enc private encryption
	get_default oldenc private oldenc
	get_default crypto private wpa_crypto
	get_default bgmode advanced bgmode
	get_default channel advanced channel
	case "${FORM_enc##/*}" in
		wep|WEP) FORM_auth=WEP;;
		WPA|WPA1|wpa|wpa1) FORM_auth=WPA;;
		WPA2|wpa2) FORM_auth=WPA2;;
		mixed|MIXED) FORM_auth=MIXED;;
		*) FORM_auth=OPEN;;
	esac
	case "${FORM_crypto}" in
		aes|AES|ccmp|CCMP) FORM_crypto="aes";;
		tkip|TKIP) FORM_crypto="tkip";;
		tkip+aes|TKIP+AES|aes+tkip|AES+TKIP) FORM_crypto="tkip+aes";;
		*) FORM_crypto=tkip+aes;;
	esac
	get_default psk private password
	get_default wepkey private wepkey
	get_default ascii private wepphrase
	get_default key1 private key1
	get_default key2 private key2
	get_default key3 private key3
	get_default key4 private key4
	get_default txp private txpower
else
	validate <<EOF
	string|FORM_ssid|@TR<<ESSID>>|required max=28|$FORM_ssid
	bool|FORM_hide_ssid|@TR<<Hide SSID>>|required|$FORM_hide_ssid
	chk_auth|FORM_auth|@TR<<Authentication>>||$FORM_auth
	int|FORM_wepkey|@TR<<Selected WEP Key>>|min=1 max=4|$FORM_wepkey
	chk_crypto|FORM_crypto|@TR<<Cipher>>||$FORM_crypto
EOF
equal "$?" 0 && {
	case "$FORM_auth" in
		WPA|WPA2|MIXED)
			V_PSK="required"
		;;
		WEP)
			eval "V_K$FORM_wepkey=required"
		;;
	esac

	validate <<EOF
	string|FORM_psk|@TR<<WPA Passphrase>>|min=8 max=63 $V_PSK|$FORM_psk
	wep|FORM_key1|@TR<<WEP Key>> 1|$V_K1|$FORM_key1
	wep|FORM_key2|@TR<<WEP Key>> 2|$V_K2|$FORM_key2
	wep|FORM_key3|@TR<<WEP Key>> 3|$V_K3|$FORM_key3
	wep|FORM_key4|@TR<<WEP Key>> 4|$V_K4|$FORM_key4
EOF
	equal "$?" 0 && {
		save_setting fon private essid "$FORM_ssid"
		save_setting fon private hidden "$FORM_hide_ssid"
		save_setting fon private txpower "$FORM_txp"
		case "$FORM_auth" in
			WPA|WPA2|MIXED)
				save_setting fon private encryption "$FORM_auth"
				save_setting fon private wpa_crypto "$FORM_crypto"
				save_setting fon private password "$FORM_psk"
				save_setting fon private oldenc "$FORM_auth"
			;;
			WEP)
				get_default oldenc private oldenc
				if [ "$FORM_oldenc" != "WEP" -a "$FORM_oldenc" != "OPEN" ]; then
					reboot_mandatory=1
				else
					reboot_mandatory=0
				fi
				save_setting fon private oldenc "$FORM_auth"
				save_setting fon private encryption WEP
				save_setting fon private wepphrase "$FORM_ascii"
				save_setting fon private wepkey "$FORM_wepkey"
				save_setting fon private key1 "$FORM_key1"
				save_setting fon private key2 "$FORM_key2"
				save_setting fon private key3 "$FORM_key3"
				save_setting fon private key4 "$FORM_key4"
			;;
			*)
				get_default oldenc private oldenc
				if [ "$FORM_oldenc" != "WEP" -a "$FORM_oldenc" != "OPEN" ]; then
					reboot_mandatory=1
				else
					reboot_mandatory=0
				fi
				save_setting fon private encryption OPEN
				save_setting fon private oldenc "$FORM_auth"
			;;
		esac
			if [ "$FORM_mode" != "wlan" ]; then
validate <<EOF
chk_bgmode|FORM_bgmode|@TR<<BGMode#b/g Mode>>|required|$FORM_bgmode
chk_channel|FORM_channel|@TR<<Channel>>|required|$FORM_channel
EOF
equal "$?" 0 && {
	save_setting fon advanced bgmode "$FORM_bgmode"
	save_setting fon advanced channel "$FORM_channel"
	}
			fi
		commit_settings
		SAVED=1
	}
}
fi

if [ "$FORM_mode" != "wlan" ]; then
channels=
for ch in $(iwlist ath1 freq | grep 'Channel ' | grep -v "reque" | awk '{print $2}'); do
	channels="${channels:+$channels$N}option|$ch|$ch"
done

#fallback
channels="${channels:-
option|01|01
option|02|02
option|03|03
option|04|04
option|05|05
option|06|06
option|07|07
option|08|08
option|09|09
option|10|10
option|11|11}"
fi

header "Priv_Title#Private Wireless Settings"

if [ "$SAVED" = "1" ]; then
	echo "<br /><br /><font color=red><b>EXECUTING CONFIGURATION</b></font>"
	[ "$reboot_mandatory" = "1" ] && echo "<br /><br /><font color=red><b>Reboot mandatory.</b></font>"
	echo "<br /><br /><font color=grey><b>@TR<<autoload#The Webinterface of your Fonera will autoreload after that, please stand by>>...</b></font>"
fi

cat <<EOF
<script type="text/javascript">
<!--
function modechange(){
	var v = isset('auth', 'WPA') || isset('auth', 'WPA2') || isset('auth', 'MIXED');
	set_visible('wpa_stuff', v);
	set_visible('wep_stuff', isset('auth', 'WEP'));
}
var characters = new Array( '!', '#', '%', '*', '+', ',', '-', '.', '/', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', ':', '<', '=', '>', '?', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', '_', 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', '~');
function rand_char(){
	return Math.floor(Math.random() * characters.length);
}
function tohex(){
	window.document.foneraGUI.key1.value='';
	for (i = 0; i < window.document.foneraGUI.ascii.value.length; i++) {
    	window.document.foneraGUI.key1.value += window.document.foneraGUI.ascii.value.charCodeAt(i).toString(16);
	}
	window.document.foneraGUI.key2.value = window.document.foneraGUI.key1.value;
	window.document.foneraGUI.key3.value = window.document.foneraGUI.key1.value;
	window.document.foneraGUI.key4.value = window.document.foneraGUI.key1.value;
}
function keygen(bytelength, enctype){
	if ( enctype == "WPA" ) {
		window.document.foneraGUI.psk.value = '';
		for (i = 0; i < bytelength; i++) {
			window.document.foneraGUI.psk.value += characters[rand_char()];
		}	
	}
	if ( enctype == "WEP" ){
		window.document.foneraGUI.ascii.value = '';
		for (i = 0; i < bytelength; i++) {
			window.document.foneraGUI.ascii.value += characters[rand_char()];
		}
		tohex();
	}
}
function formsubmit() {
	if ( isset('auth', 'WPA') || isset('auth', 'WPA2') || isset('auth', 'MIXED') ) {
		if ( window.document.foneraGUI.psk.value.length > 63 ) {
			alert("WPA passphrase too long. (max length = 63 bytes)");
			return false;
		} else { return true; }
	}
	if ( isset('auth', 'WEP') || isset('auth', 'OPEN')) {
		antwort=confirm("@TR<<private_confirm#It is highly recommended to set encryption to WPA(2) as it\nis the only certain wifi encryption.\n\nHit \"OK\" to continue anyway or \"Cancel\" to reconfigure.>>")
		if (!antwort) { window.document.foneraGUI.auth.value = 'MIXED'; modechange(); return false; }
	}
	if ( isset('auth', 'WEP') ) {
		if ( (window.document.foneraGUI.ascii.value.length != 13) && (window.document.foneraGUI.ascii.value.length != 5)) {
			alert("WEP key length has to be 5 bytes or 13 bytes (ASCII)");
			return false;
		} else { return true; }
	}
}
//-->
</script>
EOF

display_form <<EOF
	infotable|PRE_PRIV_SSID#This is the name of the signal for your personal use.
	start_table|0|10|5
		add_row
			add_label_cell|@TR<<SSID#Name (SSID)>>
			add_input_cell|ssid|$FORM_ssid|tableTextButton
			add_label_cell|(@TR<<leave empty to disable signal>>)
		end_row
		add_row
			add_label_cell|@TR<<Hide SSID>>
			start_select_cell|hide_ssid|$FORM_hide_ssid|tableTextSelect
				option|0|@TR<<No>>
				option|1|@TR<<Yes>>
			end_select_cell
		end_row
		add_row
			add_label_cell|@TR<<Authentication>>
			start_select_cell|auth|$FORM_auth|tableTextSelect|modechange
				option|OPEN|@TR<<None>>
				option|WEP|WEP
				option|WPA|WPA
				option|WPA2|WPA2
				option|MIXED|@TR<<WPA and WPA2>>
			end_select_cell
		end_row
	end_table

	start_div|wpa_stuff
		start_table|0|10|5
			add_row
				add_label_cell|@TR<<Cipher>>
				start_select_cell|crypto|$FORM_crypto|tableTextSelect
					option|tkip+aes|@TR<<TKIP and AES>>
					option|tkip|TKIP
					option|aes|AES
				end_select_cell
			end_row
			add_row
				add_label_cell|@TR<<WPA Passphrase>>
				add_input_cell|psk|$FORM_psk|tableTextButton
EOF
cat <<EOF
<TD><input type="button" name="generatekey" value="@TR<<Generate Random Key>>" class="plain_button_orange" onclick=keygen(63,'WPA') /></TD>
EOF
display_form <<EOF
			end_row
		end_table
	end_div

	start_div|wep_stuff
		start_table|0|10|5
			add_row
				add_label_cell|ASCII @TR<<WEP Key>>
				add_input_cell|ascii|$FORM_ascii|tableTextButton|tohex
EOF
cat <<EOF
<TD><input type="button" name="generatekey" value="@TR<<Generate Random Key>>" class="plain_button_orange" onclick=keygen(13,'WEP') /></TD>
EOF
display_form <<EOF
			end_row
			add_row
				add_label_cell|@TR<<Use key>>
				start_select_cell|wepkey|$FORM_wepkey|tableTextSelect
					option|1|1
					option|2|2
					option|3|3
					option|4|4
				end_select_cell
			end_row
			add_row
				add_label_cell|@TR<<WEP Key>> 1
				add_input_cell|key1|$FORM_key1|tableTextButton
			end_row
			add_row
				add_label_cell|@TR<<WEP Key>> 2
				add_input_cell|key2|$FORM_key2|tableTextButton
			end_row
			add_row
				add_label_cell|@TR<<WEP Key>> 3
				add_input_cell|key3|$FORM_key3|tableTextButton
			end_row
			add_row
				add_label_cell|@TR<<WEP Key>> 4
				add_input_cell|key4|$FORM_key4|tableTextButton
			end_row
		end_table
	end_div
EOF
[ -f /etc/debug ] && {
display_form <<EOF
		start_table|0|10|5
				add_row
					add_label_cell|@TR<<TX Power>>
					start_select_cell|txp|$FORM_txp|tableTextSelect
						option|18|18 dBm (63 mW)
						option|16|16 dBm (39 mW)
						option|14|14 dBm (25 mW)
						option|12|12 dBm (15 mW)
						option|10|10 dBm (10 mW)
						option|8|8 dBm (6 mW)
						option|6|6 dBm (3 mW)
						option|0|0 dBm (1 mW)
				end_row
		end_table
EOF
}
display_form <<EOF
	start_table|0|10|5
		add_row
			add_button_cell|submit|@TR<<Submit>>
		end_row
	end_table
	call_js|modechange
EOF

if [ "$FORM_mode" != "wlan" ]; then
display_form <<EOF
	infotable|Advanced_wifi#This values will permit you configure very specific WiFi paramters of La Fonera. All of them are optional
	start_table|0|10|5
		add_row
			add_label_cell|@TR<<Channel>>
			start_select_cell|channel|$FORM_channel|tableTextSelect
				option|auto|@TR<<Automatic>>
				$channels
			end_select_cell
		end_row
		add_row
			add_label_cell|@TR<<BGMode#b/g Mode>>
			start_select_cell|bgmode|$FORM_bgmode|tableTextSelect
				option|mixed|@TR<<b and g>>
				option|g|@TR<<g only>>
				option|b|@TR<<b only>>
			end_select_cell
		end_row
		add_row
			add_button_cell|submit|@TR<<Submit>>|tableTextButton
		end_row
	end_table
EOF
fi

footer

if [ "$SAVED" = "1" ]; then
SAVED=0
	if [ "$reboot_mandatory" = "1" ]; then
	display_form <<EOF
		autoloadpage|private|reboot
EOF
	/bin/restartfonerea
	exit
	else
	display_form <<EOF
		autoloadpage|private|services
EOF
	sleep 2
	lock -u /var/run/restart-services
	fi
fi

?>