FF-Wizard: assign matching network interface to wireless configuration
[project/luci.git] / 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