HAHpplets/wolApplet.lua at master · Bodge-IT/HAHpplets · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
--[[
Wake-on-LAN service

To wake up a server send an xAP message like

xap-header
{
v=12
hop=1
uid=FF00AA00
source=dbzoo.acme.test
target=dbzoo.lua.wol
class=device.wol
}
wake
{
mac=00:0a:e4:86:6b:83
}
--]]

module(...,package.seeall)

require("xap")

info={
   version="1.0", description="Wake on LAN service"
}

function wakeOnLan(hwaddr)
        --print("Wakeup "..hwaddr)
        local mac = ""
        for n=1,18,3 do
           mac = mac .. string.char(tonumber(hwaddr:sub(n,n+1),16))
        end
        local packet = string.rep(string.char(0xFF), 6) .. string.rep(mac, 16)

	local udp = socket.udp()
	udp:setoption('broadcast',true)
	udp:sendto(packet, "255.255.255.255", 6666)
	udp:close()
end

function init()
  local f = xap.Filter()
  f:add("xap-header","target", "dbzoo.lua.wol")
  f:add("xap-header","class","device.wol")
  f:add("wake","mac",xap.FILTER_ANY)
  f:callback(function(frame) wakeOnLan(frame:getValue("wake","mac")) end)
end