applications/luci-vnstat: move to status menu
[project/luci.git] / modules / admin-full / luasrc / model / cbi / admin_network / dhcpleases.lua
index 2e0ebf8..e0e65e5 100644 (file)
@@ -12,47 +12,34 @@ You may obtain a copy of the License at
 $Id$
 ]]--
 
-local uci = require "luci.model.uci".cursor()
 local sys = require "luci.sys"
-local wa  = require "luci.tools.webadmin"
-local fs  = require "nixio.fs"
 
-m2 = Map("luci_ethers", translate("Leases"))
+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."))
 
-local leasefn, leasefp, leases
-uci:foreach("dhcp", "dnsmasq",
- function(section)
-       leasefn = section.leasefile
- end
-) 
-local leasefp = leasefn and 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
+m2:section(SimpleSection).template = "admin_network/lease_status"
 
-if leases then
-       v = m2:section(Table, leases, translate("Active Leases"))
-       ip = v:option(DummyValue, 3, translate("<abbr title=\"Internet Protocol Version 4\">IPv4</abbr>-Address"))
-       
-       mac  = v:option(DummyValue, 2, translate("<abbr title=\"Media Access Control\">MAC</abbr>-Address"))
-       
-       ltime = v:option(DummyValue, 1, translate("Leasetime remaining"))
-       function ltime.cfgvalue(self, ...)
-               local value = DummyValue.cfgvalue(self, ...)
-               return wa.date_format(os.difftime(tonumber(value), os.time()))
-       end
-end
+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("Static Leases"))
 s.addremove = true
 s.anonymous = true
 s.template = "cbi/tblsection"
 
-mac = s:option(Value, "macaddr", translate("<abbr title=\"Media Access Control\">MAC</abbr>-Address"))
-ip = s:option(Value, "ipaddr", translate("<abbr title=\"Internet Protocol Version 4\">IPv4</abbr>-Address"))
+name = s:option(Value, "name", translate("Hostname"))
+name.datatype = "hostname"
+name.rmempty  = true
+
+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(
@@ -61,5 +48,5 @@ sys.net.arptable(function(entry)
        )
 end)
 
-       
+
 return m2