First version of web interface Wizard

packages/qmp-small-node/files/etc/qmp/qmpinfo.lua

@@ -25,6 +25,38 @@ util = require "luci.util"
 sys = require "luci.sys"
 
 qmpinfo = {}
+local i,d
+
+function qmpinfo.get_devices()
+
+	ethernet_interfaces = { 'eth' }
+	wireless_interfaces = { 'ath', 'wlan' }
+
+	local eth_int = {}
+	for i,d in ipairs(sys.net.devices()) do
+		for i,r in ipairs(ethernet_interfaces) do
+			if string.find(d,r) ~= nil then
+				if string.find(d,"%.") == nil  then
+					table.insert(eth_int,d)
+				end
+			end
+		end
+	end
+
+	local wl_int = {}
+	for i,d in ipairs(luci.sys.net.devices()) do
+		for i,r in ipairs(wireless_interfaces) do
+			if string.find(d,r) ~= nil then
+				if string.find(d,"%.") == nil  then
+					table.insert(wl_int,d)
+				end
+			end
+		end
+	end
+
+	return {eth_int,wl_int}
+
+end
 
 function qmpinfo.get_modes(dev)
 	local modes = {}

packages/qmp-small-node/files/usr/lib/lua/luci/model/cbi/qmp/wizard.lua

+--[[
+    Copyright (C) 2011 Fundacio Privada per a la Xarxa Oberta, Lliure i Neutral guifi.net
+
+    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.
+
+    The full GNU General Public License is included in this distribution in
+    the file called "COPYING".
+--]]
+
+local sys = require "luci.sys"
+local uci  = require "luci.model.uci"
+local http = require "luci.http"
+
+package.path = package.path .. ";/etc/qmp/?.lua"
+qmpinfo = require "qmpinfo"
+
+m = SimpleForm("qmp_tmp", translate("qMp Wizard"))
+
+netmode = m:field(ListValue, "_netmode",translate("Network mode"),translate("Roaming for quick deployments.<br/>Community for network communities"))
+netmode:value("community","community")
+netmode:value("roaming","roaming")
+netmode.default="roaming"
+
+
+nodename = m:field(Value, "_nodename", translate("Node name"),translate("The name of this node"))
+nodename:depends("_netmode","community")
+
+nodeip = m:field(Value, "_nodeip", translate("IP address"),translate("IP address to use as main IPv4 address"))
+nodeip:depends("_netmode","community")
+
+nodemask = m:field(Value, "_nodemask",translate("Network mask"),translate("Netmask to use with this IP"))
+nodemask.default = "255.255.255.0"
+nodemask:depends("_netmode","community")
+
+
+-- Get list of devices {{ethernet}{wireless}}
+devices = qmpinfo.get_devices()
+
+-- Ethernet devices
+for _,v in ipairs(devices[1]) do
+        tmp = m:field(ListValue, "_" .. v, v)
+	tmp:value("Mesh")
+	tmp:value("Lan")
+	tmp:value("Wan")
+	if v == "eth0" then
+		tmp.default = "Lan"
+	else
+		tmp.default = "Wan"
+	end
+end
+
+-- Wireless devices
+for _,v in ipairs(devices[2]) do
+	tmp = m:field(ListValue, "_" .. v, v)
+	tmp:value("Mesh")
+	tmp:value("AP")
+	if v == "wlan1" then
+		tmp.default = "AP"
+	else
+		tmp.default = "Mesh"
+	end
+end
+
+function netmode.write(self, section, value)
+	local uciout = uci.cursor()
+	local name = nodename:formvalue(section)
+	local mode = netmode:formvalue(section)
+	local nodeip = nodeip:formvalue(section)
+	local nodemask = nodemask:formvalue(section)
+
+	if mode == "community" then
+		uciout:set("qmp","non_overlapping","ignore","1")
+		uciout:set("qmp","networks","publish_lan","1")
+		uciout:set("qmp","networks","lan_address",nodeip)
+		uciout:set("qmp","networks","lan_netmask",nodemask)
+	else
+		uciout:set("qmp","non_overlapping","ignore","0")
+		uciout:set("qmp","networks","publish_lan","0")
+		uciout:set("qmp","networks","lan_address","172.30.22.1")
+		uciout:set("qmp","networks","lan_netmask","255.255.0.0")
+	end
+	uciout:commit("qmp")
+end
+
+return m