applications/luci-ffwizard-leipzig/luasrc/model/cbi/ffwizard.lua

   1 --[[
   2 LuCI - Lua Configuration Interface
   3
   4 Copyright 2008 Steven Barth <steven@midlink.org>
   5 Copyright 2008 Jo-Philipp Wich <xm@leipzig.freifunk.net>
   6
   7 Licensed under the Apache License, Version 2.0 (the "License");
   8 you may not use this file except in compliance with the License.
   9 You may obtain a copy of the License at
  10
  11 http://www.apache.org/licenses/LICENSE-2.0
  12
  13 $Id$
  14
  15 ]]--
  16
  17
  18 local uci = require "luci.model.uci".cursor()
  19 local tools = require "luci.tools.ffwizard"
  20
  21
  22 -------------------- View --------------------
  23 f = SimpleForm("ffwizward", "Freifunkassistent",
  24  "Dieser Assistent unterstüzt bei der Einrichtung des Routers für das Freifunknetz.")
  25
  26
  27 dev = f:field(ListValue, "device", "WLAN-Gerät")
  28 uci:foreach("wireless", "wifi-device",
  29         function(section)
  30                 dev:value(section[".name"])
  31         end)
  32
  33
  34 main = f:field(Flag, "wifi", "Freifunkzugang einrichten")
  35
  36 net = f:field(Value, "net", "Freifunknetz")
  37 net.rmempty = true
  38 net:depends("wifi", "1")
  39 net:value("104.61", "Leipzig (104.61)")
  40 net:value("104.62", "Halle (104.62)")
  41 function net.cfgvalue(self, section)
  42         return uci:get("freifunk", "wizard", "net")
  43 end
  44 function net.write(self, section, value)
  45         uci:set("freifunk", "wizard", "net", value)
  46         uci:save("freifunk")
  47 end
  48
  49
  50 subnet = f:field(ListValue, "subnet", "Subnetz (Projekt)")
  51 subnet.rmempty = true
  52 subnet:depends("wifi", "1")
  53 for i=0, 255 do
  54         subnet:value(i)
  55 end
  56 function subnet.cfgvalue(self, section)
  57         return uci:get("freifunk", "wizard", "subnet")
  58 end
  59 function subnet.write(self, section, value)
  60         uci:set("freifunk", "wizard", "subnet", value)
  61         uci:save("freifunk")
  62 end
  63
  64 node = f:field(Value, "node", "Knoten")
  65 node.rmempty = true
  66 node:depends("wifi", "1")
  67 for i=1, 51 do
  68         node:value(i)
  69 end
  70 function node.cfgvalue(self, section)
  71         return uci:get("freifunk", "wizard", "node")
  72 end
  73 function node.write(self, section, value)
  74         uci:set("freifunk", "wizard", "node", value)
  75         uci:save("freifunk")
  76 end
  77
  78 client = f:field(Flag, "client", "WLAN-DHCP anbieten")
  79 client:depends("wifi", "1")
  80
  81
  82 olsr = f:field(Flag, "olsr", "OLSR einrichten")
  83
  84 share = f:field(ListValue, "sharenet", "Eigenen Internetzugang freigeben")
  85 share:value("maybe", "-- keine Aktion --")
  86 share:value("yes", "einschalten")
  87 share:value("no", "ausschalten")
  88
  89
  90
  91 -------------------- Control --------------------
  92 function f.handle(self, state, data)
  93         if state == FORM_VALID then
  94                 luci.http.redirect(luci.dispatcher.build_url("admin", "uci", "changes"))
  95                 return false
  96         elseif state == FORM_INVALID then
  97                 self.errmessage = "Ungültige Eingabe: Bitte die Formularfelder auf Fehler prüfen."
  98         end
  99         return true
 100 end
 101
 102 local function _strip_internals(tbl)
 103         tbl = tbl or {}
 104         for k, v in pairs(tbl) do
 105                 if k:sub(1, 1) == "." then
 106                         tbl[k] = nil
 107                 end
 108         end
 109         return tbl
 110 end
 111
 112 -- Configure Freifunk checked
 113 function main.write(self, section, value)
 114         if value == "0" then
 115                 return
 116         end
 117
 118         local device = dev:formvalue(section)
 119
 120         -- Collect IP-Address
 121         local inet = net:formvalue(section)
 122         local isubnet = subnet:formvalue(section)
 123         local inode = node:formvalue(section)
 124
 125         -- Invalidate fields
 126         if not inet then
 127                 net.tag_missing[section] = true
 128         end
 129         if not isubnet then
 130                 subnet.tag_missing[section] = true
 131         end
 132         if not inode then
 133                 node.tag_missing[section] = true
 134         end
 135
 136         if not inet or not isubnet or not inode then
 137                 return
 138         end
 139
 140         local ip = "%s.%s.%s" % {inet, isubnet, inode}
 141
 142
 143         -- Cleanup
 144         luci.util.perror("1")
 145         tools.wifi_delete_ifaces(device)
 146         luci.util.perror("2")
 147         tools.network_remove_interface(device)
 148         luci.util.perror("3")
 149         tools.firewall_zone_remove_interface("freifunk", device)
 150
 151
 152         -- Tune wifi device
 153         local devconfig = _strip_internals(uci:get_all("freifunk", "wifi_device"))
 154         uci:tset("wireless", device, devconfig)
 155
 156         -- Create wifi iface
 157         local ifconfig = _strip_internals(uci:get_all("freifunk", "wifi_iface"))
 158         ifconfig.device = device
 159         ifconfig.network = device
 160         uci:section("wireless", "wifi-iface", nil, ifconfig)
 161
 162         -- Save wifi
 163         uci:save("wireless")
 164
 165         -- Create firewall zone and add default rules (first time)
 166         local newzone = tools.firewall_create_zone("freifunk", "DROP", "ACCEPT", "DROP", true)
 167         if newzone then
 168                 uci:foreach("freifunk", "fw_forwarding", function(section)
 169                         uci:section("firewall", "forwarding", nil, _strip_internals(section))
 170                 end)
 171
 172                 uci:foreach("freifunk", "fw_rule", function(section)
 173                         uci:section("firewall", "rule", nil, _strip_internals(section))
 174                 end)
 175
 176                 uci:save("firewall")
 177         end
 178
 179
 180         -- Crate network interface
 181         local netconfig = _strip_internals(uci:get_all("freifunk", "interface"))
 182         netconfig.proto = "static"
 183         netconfig.ipaddr = ip
 184         uci:section("network", "interface", device, netconfig)
 185
 186         uci:save("network")
 187
 188         tools.firewall_zone_add_interface("freifunk", device)
 189 end
 190
 191
 192 function olsr.write(self, section, value)
 193         if value == "0" then
 194                 return
 195         end
 196
 197         local device = dev:formvalue(section)
 198
 199         -- Delete old interface
 200         uci:delete_all("freifunk", "Interface", {Interface=device})
 201
 202         -- Write new interface
 203         local olsrbase = _strip_internals(uci:get_all("freifunk", "olsr_interface"))
 204         olsrbase.Interface = device
 205         uci:section("olsr", "Interface", nil, olsrbase)
 206         uci:save("olsr")
 207 end
 208
 209
 210 function share.write(self, section, value)
 211         if value == "maybe" then
 212                 return
 213         end
 214
 215         uci:delete_all("firewall", "forwarding", {src="freifunk", dest="wan"})
 216
 217         if value == "yes" then
 218                 uci:section("firewall", "forwarding", nil, {src="freifunk", dest="wan"})
 219         end
 220         uci:save("firewall")
 221 end
 222
 223
 224 function client.write(self, section, value)
 225         if value == "0" then
 226                 return
 227         end
 228
 229         local device = dev:formvalue(section)
 230
 231         -- Collect IP-Address
 232         local inet = net:formvalue(section)
 233         local isubnet = subnet:formvalue(section)
 234         local inode = node:formvalue(section)
 235
 236         if not inet or not isubnet or not inode then
 237                 return
 238         end
 239
 240         local dhcpbeg = 48 + tonumber(inode) * 4
 241         local dclient = "%s.%s.%s" % {inet:gsub("^[0-9]+", "10"), isubnet, dhcpbeg}
 242         local limit = dhcpbeg < 252 and 3 or 2
 243
 244         -- Delete old alias
 245         uci:delete("network", device .. "dhcp")
 246
 247         -- Create alias
 248         local aliasbase = _strip_internals(uci:get_all("freifunk", "alias"))
 249         aliasbase.interface = device
 250         aliasbase.ipaddr = dclient
 251         aliasbase.proto = "static"
 252         uci:section("network", "alias", device .. "dhcp", aliasbase)
 253         uci:save("network")
 254
 255
 256         -- Create dhcp
 257         local dhcpbase = _strip_internals(uci:get_all("freifunk", "dhcp"))
 258         dhcpbase.interface = device .. "dhcp"
 259         dhcpbase.start = dhcpbeg
 260         dhcpbase.limit = limit
 261
 262         uci:section("dhcp", "dhcp", device .. "dhcp", dhcpbase)
 263         uci:save("dhcp")
 264
 265
 266         -- Delete old splash
 267         uci:delete_all("luci_splash", "iface", {net=device, zone="freifunk"})
 268
 269         -- Register splash
 270         uci:section("luci_splash", "iface", nil, {net=device, zone="freifunk"})
 271         uci:save("luci_splash")
 272 end
 273
 274 return f