* luci/app-olsr: first round of olsr improvements:

	- implement new uci config format
	- moved hna announcements and plugins to separate pages
	- made all sections dynamic
	- added all known plugin options as additional fields

1 files changed, 174 insertions, 0 deletions

diff --git a/applications/luci-olsr/luasrc/model/cbi/olsr/olsrdplugins.lua b/applications/luci-olsr/luasrc/model/cbi/olsr/olsrdplugins.lua
new file mode 100644
index 000000000..83ed74ac9
--- /dev/null
+++ b/applications/luci-olsr/luasrc/model/cbi/olsr/olsrdplugins.lua
@@ -0,0 +1,174 @@
+--[[
+LuCI - Lua Configuration Interface
+
+Copyright 2008 Steven Barth <steven@midlink.org>
+
+Licensed under the Apache License, Version 2.0 (the "License");
+you may not use this file except in compliance with the License.
+You may obtain a copy of the License at
+
+	http://www.apache.org/licenses/LICENSE-2.0
+
+$Id$
+]]--
+
+require("luci.fs")
+require("luci.ip")
+
+mp = Map("olsrd", "OLSR - Plugins")
+
+p = mp:section(TypedSection, "LoadPlugin")
+p.addremove = true
+p.dynamic = true
+p.anonymous = true
+
+ign = p:option(Flag, "ignore")
+ign.enabled  = "1"
+ign.disabled = "0"
+
+lib = p:option(ListValue, "library", translate("library"))
+lib:value("")
+for k, v in pairs(luci.fs.dir("/usr/lib")) do
+	if v:sub(1, 6) == "olsrd_" then
+		lib:value(v)
+	end
+end
+
+local function Range(x,y)
+	local t = {}
+	for i = x, y do t[#t+1] = i end
+	return t
+end
+
+local function Cidr2IpMask(val)
+	local cidr = luci.ip.IPv4(val) or luci.ip.IPv6(val)
+	if not cidr then return val else return cidr end
+end
+
+local function IpMask2Cidr(val)
+	local ip, mask = val:gmatch("([^%s+])%s+([^%s+])")
+	local cidr
+	if ip and mask and ip:match(":") then
+		cidr = luci.ip.IPv6(ip, mask)
+	elseif ip and mask then
+		cidr = luci.ip.IPv4(ip, mask)
+	end
+	if not cidr then return val else return cidr end
+end
+
+
+local knownPlParams = {
+	["olsrd_bmf.so.1.5.3"] = {
+		{ Value, 		"BmfInterface",			"bmf0" },
+		{ Value, 		"BmfInterfaceIp",		"10.10.10.234/24" },
+		{ Flag,  		"DoLocalBroadcast",		"no" },
+		{ Flag,  		"CapturePacketsOnOlsrInterfaces", "yes" },
+		{ ListValue, 	"BmfMechanism",			{ "UnicastPromiscuous", "Broadcast" } },
+		{ Value, 		"BroadcastRetransmitCount",	"2" },
+		{ Value, 		"FanOutLimit",			"4" },
+		{ DynamicList,	"NonOlsrIf",			"eth1" },
+	},
+
+	["olsrd_dyn_gw.so.0.4"] = {
+		{ Value,		"Interval",				"40" },
+		{ DynamicList,  "Ping",					"141.1.1.1" },
+		{ DynamicList,	"HNA",					"192.168.80.0/24", Cidr2IpMask, IpMask2Cidr }
+	},
+
+	["olsrd_httpinfo.so.0.1"] = {
+		{ Value,		"port",					"80" },
+		{ DynamicList,	"Host",					"163.24.87.3" },
+		{ DynamicList,	"Net",					"0.0.0.0/0", Cidr2IpMask, IpMask2Cidr },
+	},
+
+	["olsrd_nameservice.so.0.2"] = {
+		{ DynamicList,	"name",					"my-name.mesh" },
+		{ DynamicList,	"hosts",				"1.2.3.4 name-for-other-interface.mesh" },
+		{ Value,		"suffix",				".olsr" },
+		{ Value,		"hosts_file",			"/path/to/hosts_file" },
+		{ Value,		"add_hosts",			"/path/to/file" },
+		{ Value,		"dns_server",			"141.1.1.1" },
+		{ Value,		"resolv_file",			"/path/to/resolv.conf" },
+		{ Value,		"interval",				"120" },
+		{ Value,		"timeout",				"240" },
+		{ Value,		"lat",					"12.123" },
+		{ Value,		"lon",					"12.123" },
+		{ Value,		"latlon_file",			"/var/run/latlon.js" },
+		{ Value,		"latlon_infile",		"/var/run/gps.txt" },
+		{ Value,		"sighup_pid_file",		"/var/run/dnsmasq.pid" },
+		{ Value,		"name_change_script",	"/usr/local/bin/announce_new_hosts.sh" },
+		{ Value,		"services_change_script",	"/usr/local/bin/announce_new_services.sh" }
+	},
+
+	["olsrd_quagga.so.0.2.2"] = {
+		{ StaticList,	"redistribute",			{
+			"system", "kernel", "connect", "static", "rip", "ripng", "ospf",
+			"ospf6", "isis", "bgp", "hsls"
+		} },
+		{ ListValue,	"ExportRoutes",			{ "only", "both" } },
+		{ Flag,			"LocalPref",			"true" },
+		{ Value,		"Distance",				Range(0,255) }
+	},
+
+	["olsrd_secure.so.0.5"] = {
+		{ Value,		"Keyfile",				"/etc/private-olsr.key" }
+	},
+
+	["olsrd_txtinfo.so.0.1"] = {
+		{ Value,		"accept",				"10.247.200.4" }
+	}
+}
+
+
+-- build plugin options with dependencies
+for plugin, options in pairs(knownPlParams) do
+	for _, option in ipairs(options) do
+		local otype, name, default, uci2cbi, cbi2uci = unpack(option)
+		local values
+
+		if type(default) == "table" then
+			values  = default
+			default = default[1]
+		end
+
+		if otype == Flag then
+			local bool = p:option( Flag, name )
+			if default == "yes" or default == "no" then
+				bool.enabled  = "yes"
+				bool.disabled = "no"
+			elseif default == "on" or default == "off" then
+				bool.enabled  = "on"
+				bool.disabled = "off"
+			elseif default == "1" or default == "0" then
+				bool.enabled  = "1"
+				bool.disabled = "0"
+			else
+				bool.enabled  = "true"
+				bool.disabled = "false"
+			end
+			bool.default = default
+			bool:depends({ library = plugin })
+		else
+			local field = p:option( otype, name )
+			if values then
+				for _, value in ipairs(values) do
+					field:value( value )
+				end
+			end
+			if type(uci2cbi) == "function" then
+				function field.cfgvalue(self, section)
+					return uci2cbi(otype.cfgvalue(self, section))
+				end
+			end
+			if type(cbi2uci) == "function" then
+				function field.formvalue(self, section)
+					return cbi2uci(otype.formvalue(self, section))
+				end
+			end
+			field.default = default
+			field:depends({ library = plugin })
+		end
+	end
+end
+
+return mp