384 lines
9.9 KiB
Lua
384 lines
9.9 KiB
Lua
--[[
|
|
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: siitwizard.lua 3966 2008-12-29 17:39:48Z jow $
|
|
|
|
]]--
|
|
|
|
local uci = require "luci.model.uci".cursor()
|
|
|
|
-------------------- Init --------------------
|
|
|
|
--
|
|
-- Find link-local address
|
|
--
|
|
LL_PREFIX = luci.ip.IPv6("fe80::/64")
|
|
function find_ll()
|
|
for _, r in ipairs(luci.sys.net.routes6()) do
|
|
if LL_PREFIX:contains(r.dest) and r.dest:higher(LL_PREFIX) then
|
|
return r.dest:sub(LL_PREFIX)
|
|
end
|
|
end
|
|
return luci.ip.IPv6("::")
|
|
end
|
|
|
|
--
|
|
-- Determine defaults
|
|
--
|
|
local ula_prefix = uci:get("siit", "ipv6", "ula_prefix") or "fd00::"
|
|
local ula_global = uci:get("siit", "ipv6", "ula_global") or "00ca:ffee:babe::" -- = Freifunk
|
|
local ula_subnet = uci:get("siit", "ipv6", "ula_subnet") or "0000:0000:0000:4223::" -- = Berlin
|
|
local siit_prefix = uci:get("siit", "ipv6", "siit_prefix") or "::ffff:0000:0000"
|
|
local ipv4_pool = uci:get("siit", "ipv4", "pool") or "172.16.0.0/12"
|
|
local ipv4_netsz = uci:get("siit", "ipv4", "netsize") or "24"
|
|
|
|
--
|
|
-- Find IPv4 allocation pool
|
|
--
|
|
local gv4_net = luci.ip.IPv4(ipv4_pool)
|
|
|
|
--
|
|
-- Generate ULA
|
|
--
|
|
local ula = luci.ip.IPv6("::/64")
|
|
|
|
for _, prefix in ipairs({ ula_prefix, ula_global, ula_subnet }) do
|
|
ula = ula:add(luci.ip.IPv6(prefix))
|
|
end
|
|
|
|
ula = ula:add(find_ll())
|
|
|
|
|
|
-------------------- View --------------------
|
|
f = SimpleForm("siitwizward", "SIIT-Wizzard",
|
|
"This wizzard helps to setup SIIT (IPv4-over-IPv6) translation according to RFC2765.")
|
|
|
|
f:field(DummyValue, "info_ula", "Mesh ULA address").value = ula:string()
|
|
|
|
f:field(DummyValue, "ipv4_pool", "IPv4 allocation pool").value =
|
|
"%s (%i hosts)" %{ gv4_net:string(), 2 ^ ( 32 - gv4_net:prefix() ) - 2 }
|
|
|
|
f:field(DummyValue, "ipv4_size", "IPv4 LAN network prefix").value =
|
|
"%i bit (%i hosts)" %{ ipv4_netsz, 2 ^ ( 32 - ipv4_netsz ) - 2 }
|
|
|
|
mode = f:field(ListValue, "mode", "Operation mode")
|
|
mode:value("client", "Client")
|
|
mode:value("gateway", "Gateway")
|
|
|
|
dev = f:field(ListValue, "device", "Wireless device")
|
|
uci:foreach("wireless", "wifi-device",
|
|
function(section)
|
|
dev:value(section[".name"])
|
|
end)
|
|
|
|
lanip = f:field(Value, "ipaddr", "LAN IPv4 subnet")
|
|
function lanip.formvalue(self, section)
|
|
local val = self.map:formvalue(self:cbid(section))
|
|
local net = luci.ip.IPv4("%s/%i" %{ val, ipv4_netsz })
|
|
|
|
if net then
|
|
if gv4_net:contains(net) then
|
|
if not net:minhost():equal(net:host()) then
|
|
self.error = { [section] = true }
|
|
f.errmessage = "IPv4 address is not the first host of " ..
|
|
"subnet, expected " .. net:minhost():string()
|
|
end
|
|
else
|
|
self.error = { [section] = true }
|
|
f.errmessage = "IPv4 address is not within the allocation pool"
|
|
end
|
|
else
|
|
self.error = { [section] = true }
|
|
f.errmessage = "Invalid IPv4 address given"
|
|
end
|
|
|
|
return val
|
|
end
|
|
|
|
dns = f:field(Value, "dns", "DNS server for LAN clients")
|
|
dns.value = "141.1.1.1"
|
|
|
|
-------------------- Control --------------------
|
|
function f.handle(self, state, data)
|
|
if state == FORM_VALID then
|
|
luci.http.redirect(luci.dispatcher.build_url("admin", "uci", "changes"))
|
|
return false
|
|
end
|
|
return true
|
|
end
|
|
|
|
function mode.write(self, section, value)
|
|
|
|
--
|
|
-- Find LAN IPv4 range
|
|
--
|
|
local lan_net = luci.ip.IPv4(
|
|
( lanip:formvalue(section) or "172.16.0.1" ) .. "/" .. ipv4_netsz
|
|
)
|
|
|
|
if not lan_net then return end
|
|
|
|
--
|
|
-- Find wifi interface, dns server and hostname
|
|
--
|
|
local device = dev:formvalue(section)
|
|
local dns_server = dns:formvalue(section) or "141.1.1.1"
|
|
local hostname = "siit-" .. lan_net:host():string():gsub("%.","-")
|
|
|
|
--
|
|
-- Configure wifi device
|
|
--
|
|
local wifi_device = dev:formvalue(section)
|
|
local wifi_essid = uci:get("siit", "wifi", "essid") or "6mesh.freifunk.net"
|
|
local wifi_bssid = uci:get("siit", "wifi", "bssid") or "02:ca:ff:ee:ba:be"
|
|
local wifi_channel = uci:get("siit", "wifi", "channel") or "1"
|
|
|
|
-- nuke old device definition
|
|
uci:delete_all("wireless", "wifi-iface",
|
|
function(s) return s.device == wifi_device end )
|
|
|
|
uci:delete_all("network", "interface",
|
|
function(s) return s['.name'] == wifi_device end )
|
|
|
|
-- create wifi device definition
|
|
uci:tset("wireless", wifi_device, {
|
|
disabled = 0,
|
|
channel = wifi_channel,
|
|
-- txantenna = 1,
|
|
-- rxantenna = 1,
|
|
-- diversity = 0
|
|
})
|
|
|
|
uci:section("wireless", "wifi-iface", nil, {
|
|
encryption = "none",
|
|
mode = "adhoc",
|
|
txpower = 10,
|
|
sw_merge = 1,
|
|
network = wifi_device,
|
|
device = wifi_device,
|
|
ssid = wifi_essid,
|
|
bssid = wifi_bssid,
|
|
})
|
|
|
|
--
|
|
-- Gateway mode
|
|
--
|
|
-- * wan port is dhcp, lan port is 172.23.1.1/24
|
|
-- * siit0 gets a dummy address: 169.254.42.42
|
|
-- * wl0 gets an ipv6 address, in this case the fdca:ffee:babe::1:1/64
|
|
-- * we do a ::ffff:ffff:0/96 route into siit0, so everything from 6mesh goes into translation.
|
|
-- * an HNA6 of ::ffff:ffff:0:0/96 announces the mapped 0.0.0.0/0 ipv4 space.
|
|
-- * MTU on WAN, LAN down to 1400, ipv6 headers are slighly larger.
|
|
|
|
if value == "gateway" then
|
|
|
|
-- wan mtu
|
|
uci:set("network", "wan", "mtu", 1240)
|
|
|
|
-- lan settings
|
|
uci:tset("network", "lan", {
|
|
mtu = 1240,
|
|
ipaddr = lan_net:host():string(),
|
|
netmask = lan_net:mask():string(),
|
|
proto = "static"
|
|
})
|
|
|
|
-- use full siit subnet
|
|
siit_route = luci.ip.IPv6(siit_prefix .. "/96")
|
|
|
|
-- v4 <-> siit route
|
|
uci:delete_all("network", "route",
|
|
function(s) return s.interface == "siit0" end)
|
|
|
|
uci:section("network", "route", nil, {
|
|
interface = "siit0",
|
|
target = gv4_net:network():string(),
|
|
netmask = gv4_net:mask():string()
|
|
})
|
|
|
|
--
|
|
-- Client mode
|
|
--
|
|
-- * 172.23.2.1/24 on its lan, fdca:ffee:babe::1:2 on wl0 and the usual dummy address on siit0.
|
|
-- * we do a ::ffff:ffff:172.13.2.0/120 to siit0, because in this case, only traffic directed to clients needs to go into translation.
|
|
-- * same route as HNA6 announcement to catch the traffic out of the mesh.
|
|
-- * Also, MTU on LAN reduced to 1400.
|
|
|
|
else
|
|
|
|
-- lan settings
|
|
uci:tset("network", "lan", {
|
|
mtu = 1240,
|
|
ipaddr = lan_net:host():string(),
|
|
netmask = lan_net:mask():string()
|
|
})
|
|
|
|
-- derive siit subnet from lan config
|
|
siit_route = luci.ip.IPv6(
|
|
siit_prefix .. "/" .. (96 + lan_net:prefix())
|
|
):add(lan_net[2])
|
|
|
|
-- ipv4 <-> siit route
|
|
uci:delete_all("network", "route",
|
|
function(s) return s.interface == "siit0" end)
|
|
|
|
-- XXX: kind of a catch all, gv4_net would be better
|
|
-- but does not cover non-local v4 space
|
|
uci:section("network", "route", nil, {
|
|
interface = "siit0",
|
|
target = "0.0.0.0",
|
|
netmask = "0.0.0.0"
|
|
})
|
|
end
|
|
|
|
-- setup the firewall
|
|
uci:delete_all("firewall", "zone",
|
|
function(s) return (
|
|
s['.name'] == "siit0" or s.name == "siit0" or
|
|
s.network == "siit0" or s['.name'] == wifi_device or
|
|
s.name == wifi_device or s.network == wifi_device
|
|
) end)
|
|
|
|
uci:delete_all("firewall", "forwarding",
|
|
function(s) return (
|
|
s.src == wifi_device and s.dest == "siit0" or
|
|
s.dest == wifi_device and s.src == "siit0" or
|
|
s.src == "lan" and s.dest == "siit0" or
|
|
s.dest == "lan" and s.src == "siit0"
|
|
) end)
|
|
|
|
uci:section("firewall", "zone", "siit0", {
|
|
name = "siit0",
|
|
network = "siit0",
|
|
input = "ACCEPT",
|
|
output = "ACCEPT",
|
|
forward = "ACCEPT"
|
|
})
|
|
|
|
uci:section("firewall", "zone", wifi_device, {
|
|
name = wifi_device,
|
|
network = wifi_device,
|
|
input = "ACCEPT",
|
|
output = "ACCEPT",
|
|
forward = "ACCEPT"
|
|
})
|
|
|
|
uci:section("firewall", "forwarding", nil, {
|
|
src = wifi_device,
|
|
dest = "siit0"
|
|
})
|
|
|
|
uci:section("firewall", "forwarding", nil, {
|
|
src = "siit0",
|
|
dest = wifi_device
|
|
})
|
|
|
|
uci:section("firewall", "forwarding", nil, {
|
|
src = "lan",
|
|
dest = "siit0"
|
|
})
|
|
|
|
uci:section("firewall", "forwarding", nil, {
|
|
src = "siit0",
|
|
dest = "lan"
|
|
})
|
|
|
|
-- firewall include
|
|
uci:delete_all("firewall", "include",
|
|
function(s) return s.path == "/etc/firewall.user" end)
|
|
|
|
uci:section("firewall", "include", nil, {
|
|
path = "/etc/firewall.user"
|
|
})
|
|
|
|
|
|
-- siit0 interface
|
|
uci:delete_all("network", "interface",
|
|
function(s) return ( s.ifname == "siit0" ) end)
|
|
|
|
uci:section("network", "interface", "siit0", {
|
|
ifname = "siit0",
|
|
proto = "none"
|
|
})
|
|
|
|
-- siit0 route
|
|
uci:delete_all("network", "route6",
|
|
function(s) return siit_route:contains(luci.ip.IPv6(s.target)) end)
|
|
|
|
uci:section("network", "route6", nil, {
|
|
interface = "siit0",
|
|
target = siit_route:string()
|
|
})
|
|
|
|
-- create wifi network interface
|
|
uci:section("network", "interface", wifi_device, {
|
|
proto = "static",
|
|
mtu = 1400,
|
|
ip6addr = ula:string()
|
|
})
|
|
|
|
-- nuke old olsrd interfaces
|
|
uci:delete_all("olsrd", "Interface",
|
|
function(s) return s.interface == wifi_device end)
|
|
|
|
-- configure olsrd interface
|
|
uci:foreach("olsrd", "olsrd",
|
|
function(s) uci:set("olsrd", s['.name'], "IpVersion", 6) end)
|
|
|
|
uci:section("olsrd", "Interface", nil, {
|
|
ignore = 0,
|
|
interface = wifi_device,
|
|
Ip6AddrType = "unique-local"
|
|
})
|
|
|
|
-- hna6
|
|
uci:delete_all("olsrd", "Hna6",
|
|
function(s) return true end)
|
|
|
|
uci:section("olsrd", "Hna6", nil, {
|
|
netaddr = siit_route:host():string(),
|
|
prefix = siit_route:prefix()
|
|
})
|
|
|
|
-- txtinfo v6 & olsrd nameservice
|
|
uci:foreach("olsrd", "LoadPlugin",
|
|
function(s)
|
|
if s.library == "olsrd_txtinfo.so.0.1" then
|
|
uci:set("olsrd", s['.name'], "accept", "::1")
|
|
elseif s.library == "olsrd_nameservice.so.0.3" then
|
|
uci:set("olsrd", s['.name'], "name", hostname)
|
|
end
|
|
end)
|
|
|
|
-- lan dns
|
|
uci:tset("dhcp", "lan", {
|
|
dhcp_option = "6," .. dns_server,
|
|
start = bit.band(lan_net:minhost():add(1)[2][2], 0xFF),
|
|
limit = ( 2 ^ ( 32 - lan_net:prefix() ) ) - 3
|
|
})
|
|
|
|
-- hostname
|
|
uci:foreach("system", "system",
|
|
function(s)
|
|
uci:set("system", s['.name'], "hostname", hostname)
|
|
end)
|
|
|
|
uci:save("wireless")
|
|
uci:save("firewall")
|
|
uci:save("network")
|
|
uci:save("system")
|
|
uci:save("olsrd")
|
|
uci:save("dhcp")
|
|
end
|
|
|
|
return f
|