applications: add radvd frontend
[project/luci.git] / applications / luci-radvd / luasrc / model / cbi / radvd.lua
1 --[[
2 LuCI - Lua Configuration Interface
3
4 Copyright 2010 Jo-Philipp Wich <xm@subsignal.org>
5
6 Licensed under the Apache License, Version 2.0 (the "License");
7 you may not use this file except in compliance with the License.
8 You may obtain a copy of the License at
9
10         http://www.apache.org/licenses/LICENSE-2.0
11
12 $Id$
13 ]]--
14
15 m = Map("radvd", translate("Radvd"),
16         translate("Radvd is a router advertisement daemon for IPv6. " ..
17                 "It listens to router solicitations and sends router advertisements " ..
18                 "as described in RFC 4861."))
19
20 local nm = require "luci.model.network".init(m.uci)
21
22
23 --
24 -- Interfaces
25 --
26
27 s = m:section(TypedSection, "interface", translate("Interfaces"))
28 s.template = "cbi/tblsection"
29 s.extedit  = luci.dispatcher.build_url("admin/network/radvd/interface/%s")
30 s.anonymous = true
31 s.addremove = true
32
33 function s.create(...)
34         local id = TypedSection.create(...)
35         luci.http.redirect(s.extedit % id)
36 end
37
38 function s.remove(self, section)
39         local iface = m.uci:get("radvd", section, "interface")
40         if iface then
41                 m.uci:delete_all("radvd", "prefix",
42                         function(s) return s.interface == iface end)
43
44                 m.uci:delete_all("radvd", "route",
45                         function(s) return s.interface == iface end)
46
47                 m.uci:delete_all("radvd", "rdnss",
48                         function(s) return s.interface == iface end)
49         end
50
51         return TypedSection.remove(self, section)
52 end
53
54
55 o = s:option(DummyValue, "interface", translate("Interface"))
56 o.template = "cbi/network_netinfo"
57
58 o = s:option(DummyValue, "UnicastOnly", translate("Multicast"))
59 function o.cfgvalue(...)
60         local v = Value.cfgvalue(...)
61         return v == "1" and translate("no") or translate("yes")
62 end
63
64 o = s:option(DummyValue, "AdvSendAdvert", translate("Advertising"))
65 function o.cfgvalue(...)
66         local v = Value.cfgvalue(...)
67         return v == "1" and translate("yes") or translate("no")
68 end
69
70 o = s:option(DummyValue, "MaxRtrAdvInterval", translate("Max. interval"))
71 function o.cfgvalue(...)
72         local v = Value.cfgvalue(...) or "600"
73         return v .. "s"
74 end
75
76 o = s:option(DummyValue, "AdvHomeAgentFlag", translate("Mobile IPv6"))
77 function o.cfgvalue(...)
78         local v = Value.cfgvalue(...)
79         return v == "1" and translate("yes") or translate("no")
80 end
81
82 o = s:option(DummyValue, "AdvDefaultPreference", translate("Preference"))
83 function o.cfgvalue(...)
84         local v = Value.cfgvalue(...) or "medium"
85         return translate(v)
86 end
87
88
89 --
90 -- Prefixes
91 --
92
93 s2 = m:section(TypedSection, "prefix", translate("Prefixes"))
94 s2.template = "cbi/tblsection"
95 s2.extedit  = luci.dispatcher.build_url("admin/network/radvd/prefix/%s")
96 s2.addremove = true
97 s2.anonymous = true
98
99 function s2.create(...)
100         local id = TypedSection.create(...)
101         luci.http.redirect(s2.extedit % id)
102 end
103
104
105 o = s2:option(DummyValue, "interface", translate("Interface"))
106 o.template = "cbi/network_netinfo"
107
108 o = s2:option(DummyValue, "prefix", translate("Prefix"))
109 function o.cfgvalue(self, section)
110         local v = Value.cfgvalue(self, section)
111         if not v then
112                 local net = nm:get_network(m.uci:get("radvd", section, "interface"))
113                 if net then
114                         local ifc = nm:get_interface(net:ifname())
115                         if ifc then
116                                 local adr
117                                 local lla = luci.ip.IPv6("fe80::/10")
118                                 for _, adr in ipairs(ifc:ip6addrs()) do
119                                         if not lla:contains(adr) then
120                                                 v = adr:string()
121                                                 break
122                                         end
123                                 end
124                         end
125                 end
126         else
127                 v = luci.ip.IPv6(v)
128                 v = v and v:string()
129         end
130
131         return v or "?"
132 end
133
134 o = s2:option(DummyValue, "AdvAutonomous", translate("Autonomous"))
135 function o.cfgvalue(...)
136         local v = Value.cfgvalue(...)
137         return v == "1" and translate("yes") or translate("no")
138 end
139
140 o = s2:option(DummyValue, "AdvOnLink", translate("On-link"))
141 function o.cfgvalue(...)
142         local v = Value.cfgvalue(...)
143         return v == "1" and translate("yes") or translate("no")
144 end
145
146 o = s2:option(DummyValue, "AdvValidLifetime", translate("Validity time"))
147 function o.cfgvalue(...)
148         local v = Value.cfgvalue(...) or "86400"
149         return translate(v)
150 end
151
152
153 --
154 -- Routes
155 --
156
157 s3 = m:section(TypedSection, "route", translate("Routes"))
158 s3.template = "cbi/tblsection"
159 s3.extedit  = luci.dispatcher.build_url("admin/network/radvd/route/%s")
160 s3.addremove = true
161 s3.anonymous = true
162
163 function s3.create(...)
164         local id = TypedSection.create(...)
165         luci.http.redirect(s3.extedit % id)
166 end
167
168
169 o = s3:option(DummyValue, "interface", translate("Interface"))
170 o.template = "cbi/network_netinfo"
171
172 o = s3:option(DummyValue, "prefix", translate("Prefix"))
173 function o.cfgvalue(self, section)
174         local v = Value.cfgvalue(self, section)
175         if v then
176                 v = luci.ip.IPv6(v)
177                 v = v and v:string()
178         end
179         return v or "?"
180 end
181
182 o = s3:option(DummyValue, "AdvRouteLifetime", translate("Lifetime"))
183 function o.cfgvalue(self, section)
184         local v = Value.cfgvalue(self, section) or "1800"
185         return translate(v)
186 end
187
188 o = s3:option(DummyValue, "AdvRoutePreference", translate("Preference"))
189 function o.cfgvalue(self, section)
190         local v = Value.cfgvalue(self, section) or "medium"
191         return translate(v)
192 end
193
194
195 --
196 -- RDNSS
197 --
198
199 s4 = m:section(TypedSection, "rdnss", translate("RDNSS"))
200 s4.template = "cbi/tblsection"
201 s4.extedit  = luci.dispatcher.build_url("admin/network/radvd/rdnss/%s")
202 s4.addremove = true
203 s4.anonymous = true
204
205 function s.create(...)
206         local id = TypedSection.create(...)
207         luci.http.redirect(s4.extedit % id)
208 end
209
210
211 o = s4:option(DummyValue, "interface", translate("Interface"))
212 o.template = "cbi/network_netinfo"
213
214 o = s4:option(DummyValue, "addr", translate("Address"))
215 function o.cfgvalue(self, section)
216         local v = Value.cfgvalue(self, section)
217         if not v then
218                 local net = nm:get_network(m.uci:get("radvd", section, "interface"))
219                 if net then
220                         local ifc = nm:get_interface(net:ifname())
221                         if ifc then
222                                 local adr
223                                 local lla = luci.ip.IPv6("fe80::/10")
224                                 for _, adr in ipairs(ifc:ip6addrs()) do
225                                         if not lla:contains(adr) then
226                                                 v = adr:network(128):string()
227                                                 break
228                                         end
229                                 end
230                         end
231                 end
232         else
233                 v = luci.ip.IPv6(v)
234                 v = v and v:network(128):string()
235         end
236
237         return v or "?"
238 end
239
240 o = s4:option(DummyValue, "AdvRDNSSOpen", translate("Open"))
241 function o.cfgvalue(self, section)
242         local v = Value.cfgvalue(self, section)
243         return v == "1" and translate("yes") or translate("no")
244 end
245
246 o = s4:option(DummyValue, "AdvRDNSSLifetime", translate("Lifetime"))
247 function o.cfgvalue(self, section)
248         local v = Value.cfgvalue(self, section) or "1200"
249         return translate(v)
250 end
251
252
253 return m