libs/web: cbi: support description attribute in nullsection instances
[project/luci.git] / applications / luci-ffwizard / luasrc / tools / 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 local uci = require "luci.model.uci"
18 local util = require "luci.util"
19 local table = require "table"
20
21 local type = type
22
23 module "luci.tools.ffwizard"
24
25 -- Deletes all references of a wifi device
26 function wifi_delete_ifaces(device)
27 local cursor = uci.cursor()
28 cursor:delete_all("wireless", "wifi-iface", {device=device})
29 cursor:save("wireless")
30 end
31
32 -- Deletes a network interface and all occurences of it in firewall zones and dhcp
33 function network_remove_interface(iface)
34 local cursor = uci.cursor()
35
36 if not cursor:delete("network", iface) then
37 return false
38 end
39
40 local aliases = {iface}
41 cursor:foreach("network", "alias",
42 function(section)
43 if section.interface == iface then
44 table.insert(aliases, section[".name"])
45 end
46 end)
47
48 -- Delete Aliases and Routes
49 cursor:delete_all("network", "route", {interface=iface})
50 cursor:delete_all("network", "alias", {interface=iface})
51
52 -- Delete DHCP sections
53 cursor:delete_all("dhcp", "dhcp",
54 function(section)
55 return util.contains(aliases, section.interface)
56 end)
57
58 -- Remove OLSR sections
59 cursor:delete_all("olsrd", "Interface", {Interface=iface})
60
61 -- Remove Splash sections
62 cursor:delete_all("luci-splash", "iface", {network=iface})
63
64 cursor:save("network")
65 cursor:save("olsr")
66 cursor:save("dhcp")
67 cursor:save("luci-splash")
68 end
69
70 -- Creates a firewall zone
71 function firewall_create_zone(zone, input, output, forward, masq)
72 local cursor = uci.cursor()
73 if not firewall_find_zone(zone) then
74 local stat = cursor:section("firewall", "zone", nil, {
75 input = input,
76 output = output,
77 forward = forward,
78 masq = masq and "1",
79 name = zone
80 })
81 cursor:save("firewall")
82 return stat
83 end
84 end
85
86 -- Adds interface to zone, creates zone on-demand
87 function firewall_zone_add_interface(name, interface)
88 local cursor = uci.cursor()
89 local zone = firewall_find_zone(name)
90 local net = cursor:get("firewall", zone, "network")
91 local old = net or (cursor:get("network", name) and name)
92 cursor:set("firewall", zone, "network", (old and old .. " " or "") .. interface)
93 cursor:save("firewall")
94 end
95
96 -- Removes interface from zone
97 function firewall_zone_remove_interface(name, interface)
98 local cursor = uci.cursor()
99 local zone = firewall_find_zone(name)
100 if zone then
101 local net = cursor:get("firewall", zone, "network")
102 local new = remove_list_entry(net, interface)
103 if new then
104 if #new > 0 then
105 cursor:set("firewall", zone, "network", new)
106 else
107 cursor:delete("firewall", zone, "network")
108 end
109 cursor:save("firewall")
110 end
111 end
112 end
113
114
115 -- Finds the firewall zone with given name
116 function firewall_find_zone(name)
117 local find
118
119 uci.cursor():foreach("firewall", "zone",
120 function (section)
121 if section.name == name then
122 find = section[".name"]
123 end
124 end)
125
126 return find
127 end
128
129
130
131 -- Helpers --
132
133 -- Removes a listentry, handles real and pseduo lists transparently
134 function remove_list_entry(value, entry)
135 if type(value) == "nil" then
136 return nil
137 end
138
139 local result = type(value) == "table" and value or util.split(value, " ")
140 local key = util.contains(result, entry)
141
142 while key do
143 table.remove(result, key)
144 key = util.contains(result, entry)
145 end
146
147 result = type(value) == "table" and result or table.concat(result, " ")
148 return result ~= value and result
149 end