05e98a9db78bc7bf02e2457e98e4e76f189f5e60
[project/luci.git] / applications / luci-firewall / luasrc / model / cbi / firewall / rules.lua
1 --[[
2 LuCI - Lua Configuration Interface
3
4 Copyright 2008 Steven Barth <steven@midlink.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 local ds = require "luci.dispatcher"
16 local ft = require "luci.tools.firewall"
17
18 m = Map("firewall",
19         translate("Firewall - Traffic Rules"),
20         translate("Traffic rules define policies for packets traveling between \
21                 different zones, for example to reject traffic between certain hosts \
22                 or to open WAN ports on the router."))
23
24 --
25 -- Rules
26 --
27
28 s = m:section(TypedSection, "rule", translate("Traffic Rules"))
29 s.addremove = true
30 s.anonymous = true
31 s.sortable  = true
32 s.template = "cbi/tblsection"
33 s.extedit   = ds.build_url("admin/network/firewall/rules/%s")
34 s.defaults.target = "ACCEPT"
35 s.template_addremove = "firewall/cbi_addrule"
36
37
38 function s.create(self, section)
39         created = TypedSection.create(self, section)
40 end
41
42 function s.parse(self, ...)
43         TypedSection.parse(self, ...)
44
45         local i_n = m:formvalue("_newopen.name")
46         local i_p = m:formvalue("_newopen.proto")
47         local i_e = m:formvalue("_newopen.extport")
48         local i_x = m:formvalue("_newopen.submit")
49
50         local f_n = m:formvalue("_newfwd.name")
51         local f_s = m:formvalue("_newfwd.src")
52         local f_d = m:formvalue("_newfwd.dest")
53         local f_x = m:formvalue("_newfwd.submit")
54
55         if i_x then
56                 created = TypedSection.create(self, section)
57
58                 self.map:set(created, "target",    "ACCEPT")
59                 self.map:set(created, "src",       "wan")
60                 self.map:set(created, "proto",     (i_p ~= "other") and i_p or "all")
61                 self.map:set(created, "dest_port", i_e)
62                 self.map:set(created, "_name",     i_n)
63
64                 if i_p ~= "other" and i_e and #i_e > 0 then
65                         created = nil
66                 end
67
68         elseif f_x then
69                 created = TypedSection.create(self, section)
70
71                 self.map:set(created, "target", "ACCEPT")
72                 self.map:set(created, "src",    f_s)
73                 self.map:set(created, "dest",   f_d)
74                 self.map:set(created, "_name",  f_n)
75         end
76
77         if created then
78                 m.uci:save("firewall")
79                 luci.http.redirect(ds.build_url(
80                         "admin", "network", "firewall", "rules", created
81                 ))
82         end
83 end
84
85 name = s:option(DummyValue, "_name", translate("Name"))
86 function name.cfgvalue(self, s)
87         return self.map:get(s, "_name") or "-"
88 end
89
90 family = s:option(DummyValue, "family", translate("Family"))
91 function family.cfgvalue(self, s)
92         local f = self.map:get(s, "family")
93         if f and f:match("4") then
94                 return translate("IPv4")
95         elseif f and f:match("6") then
96                 return translate("IPv6")
97         else
98                 return translate("Any")
99         end
100 end
101
102 proto = s:option(DummyValue, "proto", translate("Protocol"))
103 proto.rawhtml = true
104 proto.width   = "20%"
105 function proto.cfgvalue(self, s)
106         return ft.fmt_proto(self.map:get(s, "proto"), self.map:get(s, "icmp_type"))
107                 or "TCP+UDP"
108 end
109
110 src = s:option(DummyValue, "src", translate("Source"))
111 src.rawhtml = true
112 src.width   = "20%"
113 function src.cfgvalue(self, s)
114         local z = ft.fmt_zone(self.map:get(s, "src"))
115         local a = ft.fmt_ip(self.map:get(s, "src_ip"))
116         local p = ft.fmt_port(self.map:get(s, "src_port"))
117         local m = ft.fmt_mac(self.map:get(s, "src_mac"))
118
119         local s = "From %s in %s " %{
120                 (a or "<var>any host</var>"),
121                 (z or "<var>any zone</var>")
122         }
123
124         if p and m then
125                 s = s .. "with source %s and %s" %{ p, m }
126         elseif p or m then
127                 s = s .. "with source %s" %( p or m )
128         end
129
130         return s
131 end
132
133 dest = s:option(DummyValue, "dest", translate("Destination"))
134 dest.rawhtml = true
135 dest.width   = "20%"
136 function dest.cfgvalue(self, s)
137         local z = ft.fmt_zone(self.map:get(s, "dest"))
138         local a = ft.fmt_ip(self.map:get(s, "dest_ip"))
139         local p = ft.fmt_port(self.map:get(s, "dest_port"))
140
141         -- Forward
142         if z then
143                 return "To %s%s in %s" %{
144                         (a or "<var>any host</var>"),
145                         (p and ", %s" % p or ""),
146                         z
147                 }
148
149         -- Input
150         else
151                 return "To %s%s on <var>this device</var>" %{
152                         (a or "<var>any router IP</var>"),
153                         (p and " at %s" % p or "")
154                 }
155         end
156 end
157
158
159 target = s:option(DummyValue, "target", translate("Action"))
160 target.rawhtml = true
161 target.width   = "20%"
162 function target.cfgvalue(self, s)
163         local z = ft.fmt_zone(self.map:get(s, "dest"))
164         local l = ft.fmt_limit(self.map:get(s, "limit"), self.map:get(s, "limit_burst"))
165         local t = ft.fmt_target(self.map:get(s, "target"))
166
167         return "<var>%s</var> %s%s" %{
168                 t,
169                 (z and "forward" or "input"),
170                 (l and " and limit to %s" % l or "")
171         }
172 end
173
174
175 --
176 -- SNAT
177 --
178
179 s = m:section(TypedSection, "redirect",
180         translate("Source NAT"),
181         translate("Source NAT is a specific form of masquerading which allows \
182                 fine grained control over the source IP used for outgoing traffic, \
183                 for example to map multiple WAN addresses to internal subnets."))
184 s.template  = "cbi/tblsection"
185 s.addremove = true
186 s.anonymous = true
187 s.sortable  = true
188 s.extedit   = ds.build_url("admin/network/firewall/rules/%s")
189 s.template_addremove = "firewall/cbi_addsnat"
190
191 function s.create(self, section)
192         created = TypedSection.create(self, section)
193 end
194
195 function s.parse(self, ...)
196         TypedSection.parse(self, ...)
197
198         local n = m:formvalue("_newsnat.name")
199         local s = m:formvalue("_newsnat.src")
200         local d = m:formvalue("_newsnat.dest")
201         local a = m:formvalue("_newsnat.dip")
202         local p = m:formvalue("_newsnat.dport")
203         local x = m:formvalue("_newsnat.submit")
204
205         if x and a and #a > 0 then
206                 created = TypedSection.create(self, section)
207
208                 self.map:set(created, "target",    "SNAT")
209                 self.map:set(created, "src",       s)
210                 self.map:set(created, "dest",      d)
211                 self.map:set(created, "proto",     "all")
212                 self.map:set(created, "src_dip",   a)
213                 self.map:set(created, "src_dport", p)
214                 self.map:set(created, "_name",     n)
215         end
216
217         if created then
218                 m.uci:save("firewall")
219                 luci.http.redirect(ds.build_url(
220                         "admin/network/firewall/rules", created
221                 ))
222         end
223 end
224
225 function s.filter(self, sid)
226         return (self.map:get(sid, "target") == "SNAT")
227 end
228
229 name = s:option(DummyValue, "_name", translate("Name"))
230 function name.cfgvalue(self, s)
231         return self.map:get(s, "_name") or "-"
232 end
233
234 proto = s:option(DummyValue, "proto", translate("Protocol"))
235 proto.rawhtml = true
236 function proto.cfgvalue(self, s)
237         return ft.fmt_proto(self.map:get(s, "proto")) or "TCP+UDP"
238 end
239
240
241 src = s:option(DummyValue, "src", translate("Source"))
242 src.rawhtml = true
243 src.width   = "20%"
244 function src.cfgvalue(self, s)
245         local z = ft.fmt_zone(self.map:get(s, "src"))
246         local a = ft.fmt_ip(self.map:get(s, "src_ip"))
247         local p = ft.fmt_port(self.map:get(s, "src_port"))
248         local m = ft.fmt_mac(self.map:get(s, "src_mac"))
249
250         local s = "From %s in %s " %{
251                 (a or "<var>any host</var>"),
252                 (z or "<var>any zone</var>")
253         }
254
255         if p and m then
256                 s = s .. "with source %s and %s" %{ p, m }
257         elseif p or m then
258                 s = s .. "with source %s" %( p or m )
259         end
260
261         return s
262 end
263
264 dest = s:option(DummyValue, "dest", translate("Destination"))
265 dest.rawhtml = true
266 dest.width   = "30%"
267 function dest.cfgvalue(self, s)
268         local z = ft.fmt_zone(self.map:get(s, "dest"))
269         local a = ft.fmt_ip(self.map:get(s, "dest_ip"))
270         local p = ft.fmt_port(self.map:get(s, "dest_port")) or
271                 ft.fmt_port(self.map:get(s, "src_dport"))
272
273         return "To %s%s in %s " %{
274                 (a or "<var>any host</var>"),
275                 (p and ", %s" % p or ""),
276                 (z or "<var>any zone</var>")
277         }
278 end
279
280 snat = s:option(DummyValue, "via", translate("SNAT"))
281 snat.rawhtml = true
282 snat.width   = "20%"
283 function snat.cfgvalue(self, s)
284         local a = ft.fmt_ip(self.map:get(s, "src_dip"))
285         local p = ft.fmt_port(self.map:get(s, "src_dport"))
286
287         --local z = self.map:get(s, "src")
288         --local s = "To %s " %(a or "<var>any %s IP</var>" %( z or "router" ))
289
290         if a and p then
291                 return "Rewrite to source %s, %s" %{ a, p }
292         elseif a or p then
293                 return "Rewrite to source %s" %( a or p )
294         else
295                 return "Bug"
296         end
297 end
298
299
300 return m