-- Copyright 2017-2018 Dirk Brenken (dev@brenken.org)
-- This is free software, licensed under the Apache License, Version 2.0

local fs   = require("nixio.fs")
local uci  = require("luci.model.uci").cursor()
local http = require("luci.http")

m = SimpleForm("edit", translate("Edit Wireless Uplink Configuration"))
m.submit = translate("Save")
m.cancel = translate("Back to overview")
m.reset = false

function m.on_cancel()
	http.redirect(luci.dispatcher.build_url("admin/services/travelmate/stations"))
end

m.hidden = {
	cfg = http.formvalue("cfg")
}

local s = uci:get_all("wireless", m.hidden.cfg)
if s ~= nil then
	wssid = m:field(Value, "ssid", translate("SSID"))
	wssid.datatype = "rangelength(1,32)"
	wssid.default = s.ssid or ""

	bssid = m:field(Value, "bssid", translate("BSSID"))
	bssid.datatype = "macaddr"
	bssid.default = s.bssid or ""

	s.cipher = "auto"
	if string.match(s.encryption, '\+') and not string.match(s.encryption, '^wep') then
		s.pos = string.find(s.encryption, '\+')
		s.cipher = string.sub(s.encryption, s.pos + 1)
		s.encryption = string.sub(s.encryption, 0, s.pos - 1)
	end

	if s.encryption and s.encryption ~= "none" then
		if string.match(s.encryption, '^wep') then
			encr = m:field(ListValue, "encryption", translate("Encryption"))
			encr:value("wep", "WEP")
			encr:value("wep+open", "WEP Open System")
			encr:value("wep+mixed", "WEP mixed")
			encr:value("wep+shared", "WEP Shared Key")
			encr.default = s.encryption

			wkey = m:field(Value, "key", translate("Passphrase"))
			wkey.datatype = "wepkey"
		elseif string.match(s.encryption, '^psk') then
			encr = m:field(ListValue, "encryption", translate("Encryption"))
			encr:value("psk", "WPA PSK")
			encr:value("psk-mixed", "WPA/WPA2 mixed")
			encr:value("psk2", "WPA2 PSK")
			encr.default = s.encryption

			ciph = m:field(ListValue, "cipher", translate("Cipher"))
			ciph:value("auto", translate("Automatic"))
			ciph:value("ccmp", translate("Force CCMP (AES)"))
			ciph:value("tkip", translate("Force TKIP"))
			ciph:value("tkip+ccmp", translate("Force TKIP and CCMP (AES)"))
			ciph.default = s.cipher

			wkey = m:field(Value, "key", translate("Passphrase"))
			wkey.datatype = "wpakey"
		elseif string.match(s.encryption, '^wpa') then
			encr = m:field(ListValue, "encryption", translate("Encryption"))
			encr:value("wpa", "WPA Enterprise")
			encr:value("wpa-mixed", "WPA/WPA2 Enterprise mixed")
			encr:value("wpa2", "WPA2 Enterprise")
			encr.default = s.encryption

			ciph = m:field(ListValue, "cipher", translate("Cipher"))
			ciph:value("auto", translate("Automatic"))
			ciph:value("ccmp", translate("Force CCMP (AES)"))
			ciph:value("tkip", translate("Force TKIP"))
			ciph:value("tkip+ccmp", translate("Force TKIP and CCMP (AES)"))
			ciph.default = s.cipher

			eaptype = m:field(ListValue, "eap_type", translate("EAP-Method"))
			eaptype:value("tls", "TLS")
			eaptype:value("ttls", "TTLS")
			eaptype:value("peap", "PEAP")
			eaptype:value("fast", "FAST")
			eaptype.default = s.eap_type or "peap"

			authentication = m:field(ListValue, "auth", translate("Authentication"))
			authentication:value("PAP")
			authentication:value("CHAP")
			authentication:value("MSCHAP")
			authentication:value("MSCHAPV2")
			authentication:value("EAP-GTC")
			authentication:value("EAP-MD5")
			authentication:value("EAP-MSCHAPV2")
			authentication:value("EAP-TLS")
			authentication:value("auth=PAP")
			authentication:value("auth=MSCHAPV2")
			authentication.default = s.auth or "EAP-MSCHAPV2"

			ident = m:field(Value, "identity", translate("Identity"))
			ident.default = s.identity or ""

			wkey = m:field(Value, "password", translate("Passphrase"))
			wkey.datatype = "wpakey"

			cacert = m:field(Value, "ca_cert", translate("Path to CA-Certificate"))
			cacert.rmempty = true
			cacert.default = s.ca_cert or ""
			
			clientcert = m:field(Value, "client_cert", translate("Path to Client-Certificate"))
			clientcert:depends("eap_type","tls")
			clientcert.rmempty = true
			clientcert.default = s.client_cert or ""

			privkey = m:field(Value, "priv_key", translate("Path to Private Key"))
			privkey:depends("eap_type","tls")
			privkey.rmempty = true
			privkey.default = s.priv_key or ""

			privkeypwd = m:field(Value, "priv_key_pwd", translate("Password of Private Key"))
			privkeypwd:depends("eap_type","tls")
			privkeypwd.datatype = "wpakey"
			privkeypwd.password = true
			privkeypwd.rmempty = true
			privkeypwd.default = s.priv_key_pwd or ""
		end
		wkey.password = true
		wkey.default = s.key or s.password
	end
else
	m.on_cancel()
end

function wssid.write(self, section, value)
	uci:set("wireless", m.hidden.cfg, "ssid", wssid:formvalue(section))
	uci:set("wireless", m.hidden.cfg, "bssid", bssid:formvalue(section))
	if s.encryption and s.encryption ~= "none" then
		if string.match(s.encryption, '^wep') then
			uci:set("wireless", m.hidden.cfg, "encryption", encr:formvalue(section))
			uci:set("wireless", m.hidden.cfg, "key", wkey:formvalue(section) or "")
		elseif string.match(s.encryption, '^psk') then
			if ciph:formvalue(section) ~= "auto" then
				uci:set("wireless", m.hidden.cfg, "encryption", encr:formvalue(section) .. "+" .. ciph:formvalue(section))
			else
				uci:set("wireless", m.hidden.cfg, "encryption", encr:formvalue(section))
			end
			uci:set("wireless", m.hidden.cfg, "key", wkey:formvalue(section) or "")
		elseif string.match(s.encryption, '^wpa') then
			if ciph:formvalue(section) ~= "auto" then
				uci:set("wireless", m.hidden.cfg, "encryption", encr:formvalue(section) .. "+" .. ciph:formvalue(section))
			else
				uci:set("wireless", m.hidden.cfg, "encryption", encr:formvalue(section))
			end
			uci:set("wireless", m.hidden.cfg, "eap_type", eaptype:formvalue(section))
			uci:set("wireless", m.hidden.cfg, "auth", authentication:formvalue(section))
			uci:set("wireless", m.hidden.cfg, "identity", ident:formvalue(section) or "")
			uci:set("wireless", m.hidden.cfg, "password", wkey:formvalue(section) or "")
			uci:set("wireless", m.hidden.cfg, "ca_cert", cacert:formvalue(section) or "")
			uci:set("wireless", m.hidden.cfg, "client_cert", clientcert:formvalue(section) or "")
			uci:set("wireless", m.hidden.cfg, "priv_key", privkey:formvalue(section) or "")
			uci:set("wireless", m.hidden.cfg, "priv_key_pwd", privkeypwd:formvalue(section) or "")
		end
	end
	uci:save("wireless")
	uci:commit("wireless")
	luci.sys.call("env -i /bin/ubus call network reload >/dev/null 2>&1")
	m.on_cancel()
end

return m