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