modules/admin-full: live status, validation for dhcp leases

[project/luci.git] / modules / admin-full / luasrc / model / cbi / admin_network / dhcpleases.lua

diff --git a/modules/admin-full/luasrc/model/cbi/admin_network/dhcpleases.lua b/modules/admin-full/luasrc/model/cbi/admin_network/dhcpleases.lua
index 25187ae..3f631b3 100644 (file)
--- a/modules/admin-full/luasrc/model/cbi/admin_network/dhcpleases.lua
+++ b/modules/admin-full/luasrc/model/cbi/admin_network/dhcpleases.lua
@@ -11,54 +11,40 @@ You may obtain a copy of the License at
 
 $Id$
 ]]--
-require("luci.sys")
-require("luci.tools.webadmin")
-m2 = Map("luci_ethers", translate("dhcp_leases"))
 
-local leasefn, leasefp, leases
-luci.model.uci.foreach("dhcp", "dnsmasq",
- function(section)
-       leasefn = section.leasefile
- end
-) 
-local leasefp = leasefn and luci.fs.access(leasefn) and io.lines(leasefn)
-if leasefp then
-       leases = {}
-       for lease in leasefp do
-               table.insert(leases, luci.util.split(lease, " "))
-       end
-end
+local sys = require "luci.sys"
 
-if leases then
-       v = m2:section(Table, leases, translate("dhcp_leases_active"))
-       v.anonymous = true
-       v.rowcolors = true
-       
-       ip = v:option(DummyValue, 3, translate("ipaddress"))
-       
-       mac  = v:option(DummyValue, 2, translate("macaddress"))
-       
-       ltime = v:option(DummyValue, 1, translate("dhcp_timeremain"))
-       function ltime.cfgvalue(self, ...)
-               local value = DummyValue.cfgvalue(self, ...)
-               return luci.tools.webadmin.date_format(
-                os.difftime(tonumber(value), os.time())
-               )
-       end
-end
+m2 = Map("dhcp", translate("DHCP Leases"),
+       translate("Static leases are used to assign fixed IP addresses and symbolic hostnames to " ..
+               "DHCP clients. They are also required for non-dynamic interface configurations where " ..
+               "only hosts with a corresponding lease are served."))
+
+m2:section(SimpleSection).template = "admin_network/lease_status"
+
+s = m2:section(TypedSection, "host", translate("Static Leases"),
+       translate("Use the <em>Add</em> Button to add a new lease entry. The <em>MAC-Address</em> " ..
+               "indentifies the host, the <em>IPv4-Address</em> specifies to the fixed address to " ..
+               "use and the <em>Hostname</em> is assigned as symbolic name to the requesting host."))
 
-s = m2:section(TypedSection, "static_lease", translate("luci_ethers"))
 s.addremove = true
 s.anonymous = true
 s.template = "cbi/tblsection"
 
-mac = s:option(Value, "macaddr", translate("macaddress"))
-ip = s:option(Value, "ipaddr", translate("ipaddress"))
-for i, dataset in ipairs(luci.sys.net.arptable()) do
-       ip:value(dataset["IP address"])
-       mac:value(dataset["HW address"],
-        dataset["HW address"] .. " (" .. dataset["IP address"] .. ")")
-end
+name = s:option(Value, "name", translate("Hostname"))
+
+mac = s:option(Value, "mac", translate("<abbr title=\"Media Access Control\">MAC</abbr>-Address"))
+mac.datatype = "macaddr"
+
+ip = s:option(Value, "ip", translate("<abbr title=\"Internet Protocol Version 4\">IPv4</abbr>-Address"))
+ip.datatype = "ip4addr"
+
+sys.net.arptable(function(entry)
+       ip:value(entry["IP address"])
+       mac:value(
+               entry["HW address"],
+               entry["HW address"] .. " (" .. entry["IP address"] .. ")"
+       )
+end)
+
 
-       
 return m2