+++ /dev/null
---[[
-LuCI - Lua Configuration Interface
-
-Copyright 2008 Steven Barth <steven@midlink.org>
-Copyright 2008 Jo-Philipp Wich <xm@leipzig.freifunk.net>
-
-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$
-
-]]--
-
-
-local uci = require "luci.model.uci".cursor()
-local tools = require "luci.tools.ffwizard"
-local util = require "luci.util"
-local sys = require "luci.sys"
-local ip = require "luci.ip"
-
-local function mksubnet(community, meship)
- local subnet_prefix = tonumber(uci:get("freifunk", community, "splash_prefix")) or 27
- local pool_network = uci:get("freifunk", community, "splash_network") or "10.104.0.0/16"
- local pool = luci.ip.IPv4(pool_network)
-
- if pool then
- local hosts_per_subnet = 2^(32 - subnet_prefix)
- local number_of_subnets = (2^pool:prefix())/hosts_per_subnet
-
- local seed1, seed2 = meship:match("(%d+)%.(%d+)$")
- math.randomseed(seed1 * seed2)
-
- local subnet = pool:add(hosts_per_subnet * math.random(number_of_subnets))
-
- local subnet_ipaddr = subnet:network(subnet_prefix):add(1):string()
- local subnet_netmask = subnet:mask(subnet_prefix):string()
-
- return subnet_ipaddr, subnet_netmask
- end
-end
-
-
--------------------- View --------------------
-f = SimpleForm("ffwizward", "Freifunkassistent",
- "Dieser Assistent unterstüzt bei der Einrichtung des Routers für das Freifunknetz.")
-
-
-dev = f:field(ListValue, "device", "WLAN-Gerät")
-uci:foreach("wireless", "wifi-device",
- function(section)
- dev:value(section[".name"])
- end)
-
-
-main = f:field(Flag, "wifi", "Freifunkzugang einrichten")
-
-net = f:field(Value, "net", "Freifunk Community", "Mesh Netzbereich")
-net.rmempty = true
-net:depends("wifi", "1")
-uci:foreach("freifunk", "community", function(s)
- net:value(s[".name"], "%s (%s)" % {s.name, s.mesh_network or "?"})
-end)
-
-function net.cfgvalue(self, section)
- return uci:get("freifunk", "wizard", "net")
-end
-function net.write(self, section, value)
- uci:set("freifunk", "wizard", "net", value)
- uci:save("freifunk")
-end
-
-meship = f:field(Value, "meship", "Mesh IP Adresse", "Netzweit eindeutige Identifikation")
-meship.rmempty = true
-meship:depends("wifi", "1")
-function meship.cfgvalue(self, section)
- return uci:get("freifunk", "wizard", "meship")
-end
-function meship.write(self, section, value)
- uci:set("freifunk", "wizard", "meship", value)
- uci:save("freifunk")
-end
-function meship.validate(self, value)
- local x = ip.IPv4(value)
- return ( x and x:prefix() == 32 ) and x:string() or ""
-end
-
-client = f:field(Flag, "client", "WLAN-DHCP anbieten")
-client:depends("wifi", "1")
-client.rmempty = false
-function client.cfgvalue(self, section)
- return uci:get("freifunk", "wizard", "dhcp_splash") or "0"
-end
-
-olsr = f:field(Flag, "olsr", "OLSR einrichten")
-olsr.rmempty = true
-
-lat = f:field(Value, "lat", "Latitude")
-lat:depends("olsr", "1")
-function lat.cfgvalue(self, section)
- return uci:get("freifunk", "wizard", "latitude")
-end
-function lat.write(self, section, value)
- uci:set("freifunk", "wizard", "latitude", value)
- uci:save("freifunk")
-end
-
-lon = f:field(Value, "lon", "Longitude")
-lon:depends("olsr", "1")
-function lon.cfgvalue(self, section)
- return uci:get("freifunk", "wizard", "longitude")
-end
-function lon.write(self, section, value)
- uci:set("freifunk", "wizard", "longitude", value)
- uci:save("freifunk")
-end
-
-share = f:field(Flag, "sharenet", "Eigenen Internetzugang freigeben")
-share.rmempty = true
-
-wansec = f:field(Flag, "wansec", "WAN-Zugriff auf Gateway beschränken")
-wansec.rmempty = false
-wansec:depends("sharenet", "1")
-function wansec.cfgvalue(self, section)
- return uci:get("freifunk", "wizard", "wan_security")
-end
-function wansec.write(self, section, value)
- uci:set("freifunk", "wizard", "wan_security", value)
- uci:save("freifunk")
-end
-
--------------------- Control --------------------
-function f.handle(self, state, data)
- if state == FORM_VALID then
- luci.http.redirect(luci.dispatcher.build_url("admin", "uci", "changes"))
- return false
- elseif state == FORM_INVALID then
- self.errmessage = "Ungültige Eingabe: Bitte die Formularfelder auf Fehler prüfen."
- end
- return true
-end
-
-local function _strip_internals(tbl)
- tbl = tbl or {}
- for k, v in pairs(tbl) do
- if k:sub(1, 1) == "." then
- tbl[k] = nil
- end
- end
- return tbl
-end
-
--- Configure Freifunk checked
-function main.write(self, section, value)
- if value == "0" then
- return
- end
-
- local device = dev:formvalue(section)
- local node_ip, external
-
- -- Collect IP-Address
- local community = net:formvalue(section)
-
- -- Invalidate fields
- if not community then
- net.tag_missing[section] = true
- else
- external = uci:get("freifunk", community, "external") or ""
- network = ip.IPv4(uci:get("freifunk", community, "mesh_network") or "104.0.0.0/8")
- node_ip = meship:formvalue(section) and ip.IPv4(meship:formvalue(section))
-
- if not node_ip or not network or not network:contains(node_ip) then
- meship.tag_missing[section] = true
- node_ip = nil
- end
- end
-
- if not node_ip then return end
-
-
- -- Cleanup
- tools.wifi_delete_ifaces(device)
- tools.network_remove_interface(device)
- tools.firewall_zone_remove_interface("freifunk", device)
-
- -- Tune community settings
- if community and uci:get("freifunk", community) then
- uci:tset("freifunk", "community", uci:get_all("freifunk", community))
- end
-
- -- Tune wifi device
- local devconfig = uci:get_all("freifunk", "wifi_device")
- util.update(devconfig, uci:get_all(external, "wifi_device") or {})
- uci:tset("wireless", device, devconfig)
-
- -- Create wifi iface
- local ifconfig = uci:get_all("freifunk", "wifi_iface")
- util.update(ifconfig, uci:get_all(external, "wifi_iface") or {})
- ifconfig.device = device
- ifconfig.network = device
- ifconfig.ssid = uci:get("freifunk", community, "ssid")
- uci:section("wireless", "wifi-iface", nil, ifconfig)
-
- -- Save wifi
- uci:save("wireless")
-
- -- Create firewall zone and add default rules (first time)
- local newzone = tools.firewall_create_zone("freifunk", "REJECT", "ACCEPT", "REJECT", true)
- if newzone then
- uci:foreach("freifunk", "fw_forwarding", function(section)
- uci:section("firewall", "forwarding", nil, section)
- end)
- uci:foreach(external, "fw_forwarding", function(section)
- uci:section("firewall", "forwarding", nil, section)
- end)
-
- uci:foreach("freifunk", "fw_rule", function(section)
- uci:section("firewall", "rule", nil, section)
- end)
- uci:foreach(external, "fw_rule", function(section)
- uci:section("firewall", "rule", nil, section)
- end)
- end
-
- -- Enforce firewall include
- local has_include = false
- uci:foreach("firewall", "include",
- function(section)
- if section.path == "/etc/firewall.freifunk" then
- has_include = true
- end
- end)
-
- if not has_include then
- uci:section("firewall", "include", nil,
- { path = "/etc/firewall.freifunk" })
- end
-
- -- Allow state: invalid packets
- uci:foreach("firewall", "defaults",
- function(section)
- uci:set("firewall", section[".name"], "drop_invalid", "0")
- end)
-
- -- Prepare advanced config
- local has_advanced = false
- uci:foreach("firewall", "advanced",
- function(section) has_advanced = true end)
-
- if not has_advanced then
- uci:section("firewall", "advanced", nil,
- { tcp_ecn = "0", ip_conntrack_max = "8192", tcp_westwood = "1" })
- end
-
- uci:save("firewall")
-
-
- -- Create network interface
- local netconfig = uci:get_all("freifunk", "interface")
- util.update(netconfig, uci:get_all(external, "interface") or {})
- netconfig.proto = "static"
- netconfig.ipaddr = node_ip:string()
- uci:section("network", "interface", device, netconfig)
-
- uci:save("network")
-
- tools.firewall_zone_add_interface("freifunk", device)
-
-
- local new_hostname = node_ip:string():gsub("%.", "-")
- local old_hostname = sys.hostname()
-
- uci:foreach("system", "system",
- function(s)
- -- Make crond silent
- uci:set("system", s['.name'], "cronloglevel", "10")
-
- -- Set hostname
- if old_hostname == "OpenWrt" or old_hostname:match("^%d+-%d+-%d+-%d+$") then
- uci:set("system", s['.name'], "hostname", new_hostname)
- sys.hostname(new_hostname)
- end
- end)
-
- uci:save("system")
-end
-
-
-function olsr.write(self, section, value)
- if value == "0" then
- return
- end
-
-
- local device = dev:formvalue(section)
-
- local community = net:formvalue(section)
- local external = community and uci:get("freifunk", community, "external") or ""
-
- local latval = tonumber(lat:formvalue(section))
- local lonval = tonumber(lon:formvalue(section))
-
-
- -- Delete old interface
- uci:delete_all("olsrd", "Interface", {interface=device})
-
- -- Write new interface
- local olsrbase = uci:get_all("freifunk", "olsr_interface")
- util.update(olsrbase, uci:get_all(external, "olsr_interface") or {})
- olsrbase.interface = device
- olsrbase.ignore = "0"
- uci:section("olsrd", "Interface", nil, olsrbase)
-
- -- Delete old watchdog settings
- uci:delete_all("olsrd", "LoadPlugin", {library="olsrd_watchdog.so.0.1"})
-
- -- Write new watchdog settings
- uci:section("olsrd", "LoadPlugin", nil, {
- library = "olsrd_watchdog.so.0.1",
- file = "/var/run/olsrd.watchdog",
- interval = "30"
- })
-
- -- Delete old nameservice settings
- uci:delete_all("olsrd", "LoadPlugin", {library="olsrd_nameservice.so.0.3"})
-
- -- Write new nameservice settings
- uci:section("olsrd", "LoadPlugin", nil, {
- library = "olsrd_nameservice.so.0.3",
- suffix = ".olsr",
- hosts_file = "/var/etc/hosts.olsr",
- latlon_file = "/var/run/latlon.js",
- lat = latval and string.format("%.15f", latval) or "",
- lon = lonval and string.format("%.15f", lonval) or ""
- })
-
- -- Save latlon to system too
- if latval and lonval then
- uci:foreach("system", "system", function(s)
- uci:set("system", s[".name"], "latlon",
- string.format("%.15f %.15f", latval, lonval))
- end)
- else
- uci:foreach("system", "system", function(s)
- uci:delete("system", s[".name"], "latlon")
- end)
- end
-
- -- Import hosts
- uci:foreach("dhcp", "dnsmasq", function(s)
- uci:set("dhcp", s[".name"], "addnhosts", "/var/etc/hosts.olsr")
- end)
-
- -- Make sure that OLSR is enabled
- sys.exec("/etc/init.d/olsrd enable")
-
- uci:save("olsrd")
- uci:save("dhcp")
-end
-
-
-function share.write(self, section, value)
- uci:delete_all("firewall", "forwarding", {src="freifunk", dest="wan"})
- uci:delete_all("olsrd", "LoadPlugin", {library="olsrd_dyn_gw_plain.so.0.4"})
- uci:foreach("firewall", "zone",
- function(s)
- if s.name == "wan" then
- uci:delete("firewall", s['.name'], "local_restrict")
- return false
- end
- end)
-
- if value == "1" then
- uci:section("firewall", "forwarding", nil, {src="freifunk", dest="wan"})
- uci:section("olsrd", "LoadPlugin", nil, {library="olsrd_dyn_gw_plain.so.0.4"})
-
- if wansec:formvalue(section) == "1" then
- uci:foreach("firewall", "zone",
- function(s)
- if s.name == "wan" then
- uci:set("firewall", s['.name'], "local_restrict", "1")
- return false
- end
- end)
- end
- end
-
- uci:save("firewall")
- uci:save("olsrd")
- uci:save("system")
-end
-
-
-function client.write(self, section, value)
- if value == "0" then
- uci:delete("freifunk", "wizard", "dhcp_splash")
- uci:save("freifunk")
- return
- end
-
- local device = dev:formvalue(section)
-
- -- Collect IP-Address
- local node_ip = meship:formvalue(section)
-
- if not node_ip then return end
-
- local community = net:formvalue(section)
- local external = community and uci:get("freifunk", community, "external") or ""
- local splash_ip, splash_mask = mksubnet(community, node_ip)
-
- -- Delete old alias
- uci:delete("network", device .. "dhcp")
-
- -- Create alias
- local aliasbase = uci:get_all("freifunk", "alias")
- util.update(aliasbase, uci:get_all(external, "alias") or {})
- aliasbase.interface = device
- aliasbase.ipaddr = splash_ip
- aliasbase.netmask = splash_mask
- aliasbase.proto = "static"
- uci:section("network", "alias", device .. "dhcp", aliasbase)
- uci:save("network")
-
-
- -- Create dhcp
- local dhcpbase = uci:get_all("freifunk", "dhcp")
- util.update(dhcpbase, uci:get_all(external, "dhcp") or {})
- dhcpbase.interface = device .. "dhcp"
- dhcpbase.start = dhcpbeg
- dhcpbase.limit = limit
- dhcpbase.force = 1
-
- uci:section("dhcp", "dhcp", device .. "dhcp", dhcpbase)
- uci:save("dhcp")
-
- uci:delete_all("firewall", "rule", {
- src="freifunk",
- proto="udp",
- dest_port="53"
- })
- uci:section("firewall", "rule", nil, {
- src="freifunk",
- proto="udp",
- dest_port="53",
- target="ACCEPT"
- })
- uci:delete_all("firewall", "rule", {
- src="freifunk",
- proto="udp",
- src_port="68",
- dest_port="67"
- })
- uci:section("firewall", "rule", nil, {
- src="freifunk",
- proto="udp",
- src_port="68",
- dest_port="67",
- target="ACCEPT"
- })
- uci:delete_all("firewall", "rule", {
- src="freifunk",
- proto="tcp",
- dest_port="8082",
- })
- uci:section("firewall", "rule", nil, {
- src="freifunk",
- proto="tcp",
- dest_port="8082",
- target="ACCEPT"
- })
-
- uci:save("firewall")
-
- -- Delete old splash
- uci:delete_all("luci_splash", "iface", {network=device.."dhcp", zone="freifunk"})
-
- -- Register splash
- uci:section("luci_splash", "iface", nil, {network=device.."dhcp", zone="freifunk"})
- uci:save("luci_splash")
-
- -- Make sure that luci_splash is enabled
- sys.exec("/etc/init.d/luci_splash enable")
-
- -- Remember state
- uci:set("freifunk", "wizard", "dhcp_splash", "1")
- uci:save("freifunk")
-end
-
-return f
projects / project / luci.git / blobdiff