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"><%:Client-Splash%></a></h2>
132 <fieldset id="cbi-table-table" class="cbi-section">
133 <legend><%: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"><%:Hostname%></th>
139 <th class="cbi-section-table-cell"><%:IP Address%></th>
140 <th class="cbi-section-table-cell"><%:MAC Address%></th>
141 <th class="cbi-section-table-cell"><%:Time remaining%></th>
142 <th class="cbi-section-table-cell"><%:Traffic in/out%></th>
143 <th class="cbi-section-table-cell"><%: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("unknown") .. "</em>"%></td>
162 <td class="cbi-section-table-cell"><%=c.ip or "<em>" .. translate("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("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"'%>><%:whitelisted%></option>
173 <option value="normal"<%=c.policy=="normal" and not c.kicked and ' selected="selected"'%>><%:splashed%></option>
174 <option value="blacklist"<%=c.policy=="blacklist" and ' selected="selected"'%>><%:blacklisted%></option>
175 <% if c.policy == "normal" then -%>
176 <option value="kicked"><%:temporarily blocked%></option>
179 <input type="submit" class="cbi-button cbi-button-save" name="save.<%=c.mac:lower()%>" value="<%:Save%>" />
191 <tr class="cbi-section-table-row">
192 <td colspan="7" class="cbi-section-table-cell">
193 <br /><em><%:No clients connected%></em><br />
198 <% if is_admin then %></form><% end %>