2 LuCI - Lua Configuration Interface
3 Copyright
2009 Jo-Philipp Wich
<xm@leipzig.freifunk.net
>
5 Licensed under the Apache License, Version
2.0 (the
"License");
6 you may not use this file except in compliance with the License.
7 You may obtain a copy of the License at
9 http://www.apache.org/licenses/LICENSE-
2.0
17 local utl = require
"luci.util"
18 local ipt = require
"luci.sys.iptparser".IptParser()
19 local uci = require
"luci.model.uci".cursor_state()
20 local wat = require
"luci.tools.webadmin"
21 local fs = require
"nixio.fs"
24 local leasetime = tonumber(uci:get(
"luci_splash",
"general",
"leasetime") or
1) *
60 *
60
25 local leasefile =
"/tmp/dhcp.leases"
27 uci:foreach(
"dhcp",
"dnsmasq",
29 if s.leasefile then leasefile = s.leasefile end
33 uci:foreach(
"luci_splash",
"lease",
35 if s.start and s.mac then
36 clients[s.mac:lower()] = {
37 start = tonumber(s.start),
38 limit = ( tonumber(s.start) + leasetime ),
48 for _, r in ipairs(ipt:find({
table=
"nat",
chain=
"luci_splash_leases"})) do
49 if r.options and #r.options
>=
2 and r.options[
1] ==
"MAC" then
50 if not clients[r.options[
2]:lower()] then
51 clients[r.options[
2]:lower()] = {
54 mac = r.options[
2]:upper(),
55 policy = ( r.target ==
"RETURN" ) and
"whitelist" or
"blacklist",
63 for mac, client in pairs(clients) do
67 client.packets_out =
0
70 local rin = ipt:find({
table=
"mangle",
chain=
"luci_splash_mark_in", destination=client.ipaddr})
71 local rout = ipt:find({
table=
"mangle",
chain=
"luci_splash_mark_out", options={
"MAC", client.mac:upper()}})
73 if rin and #rin
> 0 then
74 client.bytes_in = rin[
1].bytes
75 client.packets_in = rin[
1].packets
78 if rout and #rout
> 0 then
79 client.bytes_out = rout[
1].bytes
80 client.packets_out = rout[
1].packets
85 uci:foreach(
"luci_splash",
"whitelist",
87 if s.mac and clients[s.mac:lower()] then
88 clients[s.mac:lower()].
policy=
"whitelist"
92 uci:foreach(
"luci_splash",
"blacklist",
94 if s.mac and clients[s.mac:lower()] then
95 clients[s.mac:lower()].policy=(s.kicked and
"kicked" or
"blacklist")
99 if fs.access(leasefile) then
100 for l in io.lines(leasefile) do
101 local time, mac, ip, name = l:match(
"^(%d+) (%S+) (%S+) (%S+)")
102 if time and mac and ip then
103 local c = clients[mac:lower()]
106 c.hostname = ( name ~=
"*" ) and name or nil
112 for i, a in ipairs(luci.sys.net.arptable()) do
113 local c = clients[a[
"HW address"]:lower()]
114 if c and not c.ip then
115 c.ip = a[
"IP address"]
119 local function showmac(mac)
121 mac = mac:gsub(
"(%S%S:%S%S):%S%S:%S%S:(%S%S:%S%S)",
"%1:XX:XX:%2")
130 <div id=
"cbi-splash-leases" class=
"cbi-map">
131 <h2><a id=
"content" name=
"content"><%:ff_splash Client-Splash%
></a></h2>
132 <fieldset id=
"cbi-table-table" class=
"cbi-section">
133 <legend><%:ff_splash_clients Active Clients%
></legend>
134 <div class=
"cbi-section-node">
135 <% if is_admin then %
><form action=
"<%=REQUEST_URI%>" method=
"post"><% end %
>
136 <table class=
"cbi-section-table">
137 <tr class=
"cbi-section-table-titles">
138 <th class=
"cbi-section-table-cell"><%:ff_splash_hostname Hostname%
></th>
139 <th class=
"cbi-section-table-cell"><%:ff_splash_ip IP Address%
></th>
140 <th class=
"cbi-section-table-cell"><%:ff_splash_mac MAC Address%
></th>
141 <th class=
"cbi-section-table-cell"><%:ff_splash_timeleft Time remaining%
></th>
142 <th class=
"cbi-section-table-cell"><%:ff_splash_traffic Traffic in/out%
></th>
143 <th class=
"cbi-section-table-cell"><%:ff_splash_policy Policy%
></th>
148 for _, c in utl.spairs(clients,
150 if clients[a].policy == clients[b].policy then
151 return (clients[a].start
> clients[b].start)
153 return (clients[a].policy
> clients[b].policy)
160 <tr class=
"cbi-section-table-row cbi-rowstyle-<%=2-(count%2)%>">
161 <td class=
"cbi-section-table-cell"><%=c.hostname or
"<em>" .. translate(
"ff_splash_unknown",
"unknown") ..
"</em>"%
></td>
162 <td class=
"cbi-section-table-cell"><%=c.ip or
"<em>" .. translate(
"ff_splash_unknown",
"unknown") ..
"</em>"%
></td>
163 <td class=
"cbi-section-table-cell"><%=showmac(c.mac)%
></td>
164 <td class=
"cbi-section-table-cell"><%=
165 (c.limit
>= os.time()) and wat.date_format(c.limit-os.time()) or
166 (c.policy ~=
"normal") and
"-" or
"<em>" .. translate(
"ff_splash_expired",
"expired") ..
"</em>"
168 <td class=
"cbi-section-table-cell"><%=wat.byte_format(c.bytes_in)%
> / <%=wat.byte_format(c.bytes_out)%
></td>
169 <td class=
"cbi-section-table-cell">
170 <% if is_admin then %
>
171 <select name=
"policy.<%=c.mac:lower()%>" style=
"width:200px">
172 <option value=
"whitelist"<%=c.policy==
"whitelist" and '
selected=
"selected"'%
>><%:ff_splash_whitelisted whitelisted%
></option>
173 <option value=
"normal"<%=c.policy==
"normal" and not c.kicked and '
selected=
"selected"'%
>><%:ff_splash_splashed splashed%
></option>
174 <option value=
"blacklist"<%=c.policy==
"blacklist" and '
selected=
"selected"'%
>><%:ff_splash_blacklisted blacklisted%
></option>
175 <% if c.policy ==
"normal" then -%
>
176 <option value=
"kicked"><%:ff_splash_tempblock temporarily blocked%
></option>
179 <input type=
"submit" class=
"cbi-button cbi-button-save" name=
"save.<%=c.mac:lower()%>" value=
"<%:save Save%>" />
191 <tr class=
"cbi-section-table-row">
192 <td colspan=
"7" class=
"cbi-section-table-cell">
193 <br /><em><%:ff_splash_noclients No clients connected%
></em><br />
198 <% if is_admin then %
></form><% end %
>