TheMagicButton/TheMagicButton.lua at master · vChrisR/TheMagicButton · 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
targetHost = "yourtargethost.com"
targetPort = 3000
apikey = "yourapikey"

gpio.mode(3, gpio.INPUT, gpio.PULLUP)
gpio.mode(4, gpio.OUTPUT)
gpio.write(4,0)

gpio.trig(3, "up", function (state)
     isSent = false

     tmr.delay(10000)
     if (gpio.read(3) == 1) then
          tmr.delay(10000)
          if (gpio.read(3) == 1) then
               print ("pushed")
               gpio.write(4,0)

               local httpPost = "POST /magicbutton?apikey="..apikey.." HTTP/1.1\r\nHost: "..targetHost.."\r\nConnection: close\r\nContent-Type: application/json\r\nContent-Length: 20\r\n\r\n{\"event\": \"pressed\"}"
               --if (sk ~= nil) then sk:close() end
               sk=net.createConnection(net.TCP,0)

               sk:on("receive", function(sck, c)
                    print (c)
                    gpio.write(4,1)
               end)

               sk:on("connection", function(sck)
                    print("Connected. Now Sending...")
                    sk:send(httpPost)
                    isSent = true
               end)

               sk:connect(targetPort, targetHost)

               tmr.alarm(1, 1000, 0, function()
                    if not isSent then
                         print("retry")
                         --do retry here
                    end
               end)
          end
     end
end)

gpio.write(4,1)
print("Waiting for the magic to happen")