applications/luci-wol: add static lease macs to suggestion list

[project/luci.git] / applications / luci-wol / luasrc / model / cbi / wol.lua

diff --git a/applications/luci-wol/luasrc/model/cbi/wol.lua b/applications/luci-wol/luasrc/model/cbi/wol.lua
index 078d42e..ac73919 100644 (file)
--- a/applications/luci-wol/luasrc/model/cbi/wol.lua
+++ b/applications/luci-wol/luasrc/model/cbi/wol.lua
@@ -1,17 +1,17 @@
 --[[
 LuCI - Lua Configuration Interface
 
-Copyright 2008 Steven Barth <steven@midlink.org>
+Copyright 2010 Jo-Philipp Wich <xm@subsignal.org>
 
 Licensed under the Apache License, Version 2.0 (the "License");
 you may not use this file except in compliance with the License.
 You may obtain a copy of the License at
 
        http://www.apache.org/licenses/LICENSE-2.0
-
-$Id: olsrd.lua 5560 2009-11-21 00:22:35Z jow $
 ]]--
 
+local uci = require "luci.model.uci".cursor()
+local utl = require "luci.util"
 local sys = require "luci.sys"
 local fs  = require "nixio.fs"
 
@@ -25,51 +25,6 @@ m.reset  = false
 local has_ewk = fs.access("/usr/bin/etherwake")
 local has_wol = fs.access("/usr/bin/wol")
 
-if luci.http.formvalue("cbi.submit") then
-       local host = luci.http.formvalue("cbid.wol.1.mac")
-       if host and #host > 0 then
-               local cmd
-               local util = luci.http.formvalue("cbid.wol.1.binary") or (
-                       has_ewk and "/usr/bin/etherwake" or "/usr/bin/wol"
-               )
-
-               if util == "/usr/bin/etherwake" then
-                       local iface = luci.http.formvalue("cbid.wol.1.iface")
-                       cmd = "%s -D%s %q" %{
-                               util, (iface ~= "" and " -i %q" % iface or ""), host
-                       }
-               else
-                       cmd = "%s -v %q" %{ util, host }
-               end
-
-               is = m:section(SimpleSection)
-
-               function is.render()
-                       luci.http.write(
-                               "<p><br /><strong>%s</strong><br /><br /><code>%s<br /><br />" %{
-                                       translate("Starting WoL utility:"), cmd
-                               }
-                       )
-
-                       local p = io.popen(cmd .. " 2>&1")
-                       if p then
-                               while true do
-                                       local l = p:read("*l")
-                                       if l then
-                                               if #l > 100 then l = l:sub(1, 100) .. "..." end
-                                               luci.http.write(l .. "<br />")
-                                       else
-                                               break
-                                       end
-                               end
-                               p:close()
-                       end
-
-                       luci.http.write("</code><br /></p>")
-               end
-       end
-end
-
 
 s = m:section(SimpleSection)
 
@@ -101,26 +56,75 @@ end
 
 
 for _, e in ipairs(sys.net.arptable()) do
-       arp[e["HW address"]] = { e["IP address"] }
+       arp[e["HW address"]:upper()] = { e["IP address"] }
 end
 
 for e in io.lines("/etc/ethers") do
        mac, ip = e:match("^([a-f0-9]%S+) (%S+)")
-       if mac and ip then arp[mac] = { ip } end
+       if mac and ip then arp[mac:upper()] = { ip } end
 end
 
 for e in io.lines("/var/dhcp.leases") do
        mac, ip, name = e:match("^%d+ (%S+) (%S+) (%S+)")
-       if mac and ip then arp[mac] = { ip, name ~= "*" and name } end
+       if mac and ip then arp[mac:upper()] = { ip, name ~= "*" and name } end
 end
 
+uci:foreach("dhcp", "host",
+       function(s)
+               if s.mac and s.ip then
+                       arp[s.mac:upper()] = { s.ip, s.name }
+               end
+       end)
+
 host = s:option(Value, "mac", translate("Host to wake up"),
        translate("Choose the host to wake up or enter a custom MAC address to use"))
 
-for mac, ip in pairs(arp) do
+for mac, ip in utl.kspairs(arp) do
        host:value(mac, "%s (%s)" %{ mac, ip[2] or ip[1] })
 end
 
 
+function host.write(self, s, val)
+       local host = luci.http.formvalue("cbid.wol.1.mac")
+       if host and #host > 0 then
+               local cmd
+               local util = luci.http.formvalue("cbid.wol.1.binary") or (
+                       has_ewk and "/usr/bin/etherwake" or "/usr/bin/wol"
+               )
+
+               if util == "/usr/bin/etherwake" then
+                       local iface = luci.http.formvalue("cbid.wol.1.iface")
+                       cmd = "%s -D%s %q" %{
+                               util, (iface ~= "" and " -i %q" % iface or ""), host
+                       }
+               else
+                       cmd = "%s -v %q" %{ util, host }
+               end
+
+               local msg = "<p><strong>%s</strong><br /><br /><code>%s<br /><br />" %{
+                       translate("Starting WoL utility:"), cmd
+               }
+
+               local p = io.popen(cmd .. " 2>&1")
+               if p then
+                       while true do
+                               local l = p:read("*l")
+                               if l then
+                                       if #l > 100 then l = l:sub(1, 100) .. "..." end
+                                       msg = msg .. l .. "<br />"
+                               else
+                                       break
+                               end
+                       end
+                       p:close()
+               end
+
+               msg = msg .. "</code></p>"
+
+               m.message = msg
+       end
+end
+
+
 return m