diff options
author | Jo-Philipp Wich <jow@openwrt.org> | 2014-12-03 15:17:05 +0100 |
---|---|---|
committer | Jo-Philipp Wich <jow@openwrt.org> | 2015-01-08 16:26:20 +0100 |
commit | 1bb4822dca6113f73e3bc89e2acf15935e6f8e92 (patch) | |
tree | 35e16f100466e4e00657199b38bb3d87d52bf73f /applications/luci-app-meshwizard/luasrc/model/cbi | |
parent | 9edd0e46c3f880727738ce8ca6ff1c8b85f99ef4 (diff) |
Rework LuCI build system
* Rename subdirectories to their repective OpenWrt package names
* Make each LuCI module its own standalone package
* Deploy a shared luci.mk which is used by each module Makefile
Signed-off-by: Jo-Philipp Wich <jow@openwrt.org>
Diffstat (limited to 'applications/luci-app-meshwizard/luasrc/model/cbi')
-rw-r--r-- | applications/luci-app-meshwizard/luasrc/model/cbi/freifunk/meshwizard.lua | 199 |
1 files changed, 199 insertions, 0 deletions
diff --git a/applications/luci-app-meshwizard/luasrc/model/cbi/freifunk/meshwizard.lua b/applications/luci-app-meshwizard/luasrc/model/cbi/freifunk/meshwizard.lua new file mode 100644 index 000000000..68f7a5a25 --- /dev/null +++ b/applications/luci-app-meshwizard/luasrc/model/cbi/freifunk/meshwizard.lua @@ -0,0 +1,199 @@ +-- wizard rewrite wip + +local uci = require "luci.model.uci".cursor() +local sys = require "luci.sys" +local util = require "luci.util" +local ip = require "luci.ip" + +local community = "profile_" .. (uci:get("freifunk", "community", "name") or "Freifunk") +local mesh_network = ip.IPv4(uci:get_first(community, "community", "mesh_network") or "10.0.0.0/8") +local community_ipv6 = uci:get_first(community, "community", "ipv6") or 0 +local community_ipv6mode = uci:get_first(community, "community", "ipv6_config") or "static" +local meshkit_ipv6 = uci:get("meshwizard", "ipv6", "enabled") or 0 +local community_vap = uci:get_first(community, "community", "vap") or 0 + +m = Map("meshwizard", translate("Wizard"), translate("This wizard will assist you in setting up your router for Freifunk " .. + "or another similar wireless community network.")) + +n = m:section(NamedSection, "netconfig", nil, translate("Interfaces")) +n.anonymous = true + +-- common functions + +function cbi_configure(device) + local configure = n:taboption(device, Flag, device .. "_config", translate("Configure this interface"), + translate("Note: this will set up this interface for mesh operation, i.e. add it to zone 'freifunk' and enable olsr.")) +end + +function cbi_ip4addr(device) + local ip4addr = n:taboption(device, Value, device .. "_ip4addr", translate("Mesh IP address"), + translate("This is a unique address in the mesh (e.g. 10.1.1.1) and has to be registered at your local community.")) + ip4addr:depends(device .. "_config", 1) + ip4addr.datatype = "ip4addr" + function ip4addr.validate(self, value) + local x = ip.IPv4(value) + if mesh_network:contains(x) then + return value + else + return nil, translate("The given IP address is not inside the mesh network range ") .. + "(" .. mesh_network:string() .. ")." + end + end +end + +function cbi_ip6addr(device) + local ip6addr = n:taboption(device, Value, device .. "_ip6addr", translate("Mesh IPv6 address"), + translate("This is a unique IPv6 address in CIDR notation (e.g. 2001:1:2:3::1/64) and has to be registered at your local community.")) + ip6addr:depends(device .. "_config", 1) + ip6addr.datatype = "ip6addr" +end + + +function cbi_dhcp(device) + local dhcp = n:taboption(device, Flag, device .. "_dhcp", translate("Enable DHCP"), + translate("DHCP will automatically assign ip addresses to clients")) + dhcp:depends(device .. "_config", 1) + dhcp.rmempty = true +end + +function cbi_ra(device) + local ra = n:taboption(device, Flag, device .. "_ipv6ra", translate("Enable RA"), + translate("Send router advertisements on this device.")) + ra:depends(device .. "_config", 1) + ra.rmempty = true +end + +function cbi_dhcprange(device) + local dhcprange = n:taboption(device, Value, device .. "_dhcprange", translate("DHCP IP range"), + translate("The IP range from which clients are assigned ip addresses (e.g. 10.1.2.1/28). " .. + "If this is a range inside your mesh network range, then it will be announced as HNA. Any other range will use NAT. " .. + "If left empty then the defaults from the community profile will be used.")) + dhcprange:depends(device .. "_dhcp", "1") + dhcprange.rmempty = true + dhcprange.datatype = "ip4addr" +end +-- create tabs and config for wireless +local nets={} +uci:foreach("wireless", "wifi-device", function(section) + local device = section[".name"] + table.insert(nets, device) +end) + +local wired_nets = {} +uci:foreach("network", "interface", function(section) + local device = section[".name"] + if not util.contains(nets, device) and device ~= "loopback" and not device:find("wireless") then + table.insert(nets, device) + table.insert(wired_nets, device) + end +end) + +for _, net in util.spairs(nets, function(a,b) return (nets[a] < nets[b]) end) do + n:tab(net, net) +end + +-- create cbi config for wireless +uci:foreach("wireless", "wifi-device", function(section) + local device = section[".name"] + local hwtype = section.type + local syscc = section.country or uci:get(community, "wifi_device", "country") or + uci:get("freifunk", "wifi_device", "country") + + cbi_configure(device) + + -- Channel selection + + if hwtype == "atheros" then + local cc = util.trim(sys.exec("grep -i '" .. syscc .. "' /lib/wifi/cc_translate.txt |cut -d ' ' -f 2")) or 0 + sys.exec('"echo " .. cc .. " > /proc/sys/dev/" .. device .. "/countrycode"') + elseif hwtype == "mac80211" then + sys.exec("iw reg set " .. syscc) + elseif hwtype == "broadcom" then + sys.exec ("wlc country " .. syscc) + end + + local chan = n:taboption(device, ListValue, device .. "_channel", translate("Channel"), + translate("Your device and neighbouring nodes have to use the same channel.")) + chan:depends(device .. "_config", 1) + chan:value('default') + + local iwinfo = sys.wifi.getiwinfo(device) + if iwinfo and iwinfo.freqlist then + for _, f in ipairs(iwinfo.freqlist) do + if not f.restricted then + chan:value(f.channel) + end + end + end + -- IPv4 address + cbi_ip4addr(device) + + -- DHCP enable + cbi_dhcp(device) + + -- DHCP range + cbi_dhcprange(device) + + -- IPv6 addr and RA + if community_ipv6 == "1" then + if community_ipv6mode == "static" then + cbi_ip6addr(device) + end + cbi_ra(device) + end + + -- Enable VAP + local supports_vap = 0 + if sys.call("/usr/bin/meshwizard/helpers/supports_vap.sh " .. device .. " " .. hwtype) == 0 then + supports_vap = 1 + end + if supports_vap == 1 then + local vap = n:taboption(device, Flag, device .. "_vap", translate("Virtual Access Point (VAP)"), + translate("This will setup a new virtual wireless interface in Access Point mode.")) + vap:depends(device .. "_dhcp", "1") + vap.rmempty = true + if community_vap == "1" then + vap.default = "1" + end + end +end) + +for _, device in pairs(wired_nets) do + cbi_configure(device) + cbi_ip4addr(device) + cbi_dhcp(device) + cbi_dhcprange(device) + -- IPv6 addr and RA + if community_ipv6 == "1" then + if community_ipv6mode == "static" then + cbi_ip6addr(device) + end + cbi_ra(device) + end +end + +-- General settings +g = m:section(TypedSection, "general", translate("General Settings")) +g.anonymous = true + +local cleanup = g:option(Flag, "cleanup", translate("Cleanup config"), + translate("If this is selected then config is cleaned before setting new config options.")) +cleanup.default = "1" + +local restrict = g:option(Flag, "local_restrict", translate("Protect LAN"), + translate("Check this to protect your LAN from other nodes or clients") .. " (" .. translate("recommended") .. ").") + +local share = g:option(Flag, "sharenet", translate("Share your internet connection"), + translate("Select this to allow others to use your connection to access the internet.")) + share.rmempty = true + +-- IPv6 config +if community_ipv6 == "1" then + v6 = m:section(NamedSection, "ipv6", nil, translate("IPv6 Settings")) + local enabled = v6:option(Flag, "enabled", translate("Enabled"), + translate("Activate or deactivate IPv6 config globally.")) + enabled.default = meshkit_ipv6 + enabled.rmempty = false +end + +return m |