luci/applications: add experimental SIIT setup assistant
authorJo-Philipp Wich <jow@openwrt.org>
Sun, 30 Nov 2008 06:00:52 +0000 (06:00 +0000)
committerJo-Philipp Wich <jow@openwrt.org>
Sun, 30 Nov 2008 06:00:52 +0000 (06:00 +0000)
applications/luci-siitwizard/Makefile [new file with mode: 0644]
applications/luci-siitwizard/luasrc/controller/siitwizard.lua [new file with mode: 0644]
applications/luci-siitwizard/luasrc/model/cbi/siitwizard.lua [new file with mode: 0644]
applications/luci-siitwizard/root/etc/config/siit [new file with mode: 0644]
contrib/package/luci/Makefile

diff --git a/applications/luci-siitwizard/Makefile b/applications/luci-siitwizard/Makefile
new file mode 100644 (file)
index 0000000..81a96f6
--- /dev/null
@@ -0,0 +1,2 @@
+include ../../build/config.mk
+include ../../build/module.mk
\ No newline at end of file
diff --git a/applications/luci-siitwizard/luasrc/controller/siitwizard.lua b/applications/luci-siitwizard/luasrc/controller/siitwizard.lua
new file mode 100644 (file)
index 0000000..dabbcaf
--- /dev/null
@@ -0,0 +1,21 @@
+--[[
+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$
+
+]]--
+
+module "luci.controller.siitwizard"
+
+function index()
+       entry({"admin", "freifunk", "siitwizard"}, form("siitwizard"), "SIIT 4over6 assistent", 50)
+end
diff --git a/applications/luci-siitwizard/luasrc/model/cbi/siitwizard.lua b/applications/luci-siitwizard/luasrc/model/cbi/siitwizard.lua
new file mode 100644 (file)
index 0000000..7274f98
--- /dev/null
@@ -0,0 +1,179 @@
+--[[
+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 io = require "io"
+
+
+-------------------- View --------------------
+f = SimpleForm("siitwizward", "4over6-Assistent",
+ "Dieser Assistent unterstüzt bei der Einrichtung von IPv4-over-IPv6 Translation.")
+
+mode = f:field(ListValue, "mode", "Betriebsmodus")
+mode:value("gateway", "Gateway")
+mode:value("client", "Client")
+
+dev = f:field(ListValue, "device", "WLAN-Gerät")
+uci:foreach("network", "interface",
+       function(section)
+               if section[".name"] ~= "siit0" then
+                       dev:value(section[".name"])
+               end
+       end)
+
+
+-------------------- Control --------------------
+LL_PREFIX = luci.ip.IPv6("fe80::/16")
+
+--
+-- find link-local address
+--
+function find_ll(dev)
+       for _, r in ipairs(luci.sys.net.routes6()) do
+               if r.device == dev and LL_PREFIX:contains(r.dest) then
+                       return r.dest:sub(LL_PREFIX)
+               end
+       end
+       return luci.ip.IPv6("::")
+end
+
+
+
+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
+
+function mode.write(self, section, value)
+
+       --
+       -- Determine defaults
+       --
+       local ula_prefix  = uci:get("siit", "defaults", "ula_prefix")  or "fd00::"
+       local ula_global  = uci:get("siit", "defaults", "ula_global")  or "00ca:ffee:babe::"            -- = Freifunk
+       local ula_subnet  = uci:get("siit", "defaults", "ula_subnet")  or "0000:0000:0000:4223::"       -- = Berlin
+       local siit_prefix = uci:get("siit", "defaults", "siit_prefix") or "::ffff:ffff:0000:0000"
+       local siit_route  = luci.ip.IPv6(siit_prefix .. "/96")
+
+       -- Find wifi interface
+       local device = dev:formvalue(section)
+
+       --
+       -- Generate ULA
+       --
+       local ula = luci.ip.IPv6("::")
+
+       for _, prefix in ipairs({ ula_prefix, ula_global, ula_subnet }) do
+               ula = ula:add(luci.ip.IPv6(prefix))
+       end
+
+       ula = ula:add(find_ll(uci:get("network", device, "ifname") or device))
+
+
+       --
+       -- 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
+
+               uci:set("network", "wan", "mtu", 1400)
+
+
+       --
+       -- 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
+               local lan_ip = luci.ip.IPv4(
+                       uci:get("network", "lan", "ipaddr"),
+                       uci:get("network", "lan", "netmask")
+               )
+
+               siit_route = luci.ip.IPv6(
+                       siit_prefix .. "/" .. (96 + lan_ip:prefix())
+               ):add(lan_ip[2])
+
+       end
+
+       -- siit0 interface
+       uci:delete_all("network", "interface",
+               function(s) return ( s.ifname == "siit0" ) end)
+
+       uci:section("network", "interface", "siit0", {
+               ifname  = "siit0",
+               proto   = "static",
+               ipaddr  = "169.254.42.42",
+               netmask = "255.255.255.0"
+       })
+
+       -- 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 = device,
+               target    = siit_route:string()
+       })
+
+       -- interface
+       uci:set("network", device, "ip6addr", ula:string())
+       uci:set("network", "lan", "mtu", 1400)
+
+       uci:set("olsrd", "general", "IpVersion", 6)
+       uci:foreach("olsrd", "Interface",
+               function(s)
+                       if s.interface == device then
+                               uci:set("olsrd", s[".name"], "Ip6AddrType", "global")
+                       end
+                       uci:delete("olsrd", s[".name"], "Ip4Boradcast")
+               end)
+
+       -- hna6
+       uci:delete_all("olsrd", "Hna6",
+               function(s)
+                       if s.netaddr and s.prefix then
+                               return siit_route:contains(luci.ip.IPv6(s.netaddr.."/"..s.prefix))
+                       end
+               end)
+
+       uci:section("olsrd", "Hna6", nil, {
+               netaddr = siit_route:host():string(),
+               prefix  = siit_route:prefix()
+       })
+
+       uci:save("network")
+       uci:save("olsrd")
+end
+
+return f
diff --git a/applications/luci-siitwizard/root/etc/config/siit b/applications/luci-siitwizard/root/etc/config/siit
new file mode 100644 (file)
index 0000000..affea80
--- /dev/null
@@ -0,0 +1,5 @@
+config siit defaults
+       option ula_prefix               "fd00::"
+       option ula_global               "00ca:ffee:babe::"
+       option ula_subnet               "0000:0000:0000:4223::"
+       option siit_prefix              "::ffff:ffff:0000:0000"
index e3a4376035391088d24dfe0ba504b7f8998c8288..07bc33903d54a634ba6bcdd4e43f927e0a5f3842 100644 (file)
@@ -345,6 +345,16 @@ define Package/luci-app-ffwizard-leipzig/install
 endef
 
 
+define Package/luci-app-siitwizard
+  $(call Package/luci/fftemplate)
+  TITLE:=SIIT IPv4-over-IPv6 configuration wizard
+endef
+
+define Package/luci-app-siitwizard/install
+       $(call Package/luci/install/template,$(1),applications/luci-siitwizard)
+endef
+
+
 define Package/luci-app-firewall
   $(call Package/luci/webtemplate)
   DEPENDS+=+luci-admin-core
@@ -759,6 +769,9 @@ endif
 ifneq ($(CONFIG_PACKAGE_luci-app-ffwizard-leipzig),)
        PKG_SELECTED_MODULES+=applications/luci-ffwizard-leipzig
 endif
+ifneq ($(CONFIG_PACKAGE_luci-app-siitwizard),)
+       PKG_SELECTED_MODULES+=applications/luci-siitwizard
+endif
 ifneq ($(CONFIG_PACKAGE_luci-app-firewall),)
        PKG_SELECTED_MODULES+=applications/luci-fw
 endif
@@ -895,6 +908,7 @@ $(eval $(call BuildPackage,luci-mod-freifunk))
 $(eval $(call BuildPackage,luci-freifunk-community))
 
 $(eval $(call BuildPackage,luci-app-ffwizard-leipzig))
+$(eval $(call BuildPackage,luci-app-siitwizard))
 $(eval $(call BuildPackage,luci-app-firewall))
 $(eval $(call BuildPackage,luci-app-olsr))
 $(eval $(call BuildPackage,luci-app-qos))