Макроподстановки в топике MQTT для удобства связывания с OpenHAB

[weathermon.git] / weathermon.lua

diff --git a/weathermon.lua b/weathermon.lua
index 3e940cd8b89baa0962c1cde14284305fa894a8f2..b2ca89897c47834c7bc6a93d8c71f0131f13c3ef 100755 (executable)
--- a/weathermon.lua
+++ b/weathermon.lua
@@ -13,6 +13,14 @@ function getConfig()
 
   web_iface = cur.get(config,"web","iface")
 
 
   web_iface = cur.get(config,"web","iface")
 

+  if web_iface then
+  
+    command = '/sbin/ifconfig '..web_iface..' | grep \'\\<inet\\>\' | sed -n \'1p\' | tr -s \' \' | cut -d \' \' -f3 | cut -d \':\' -f2'
+    f=io.popen(command,'r')
+    ip_addr=f:read()
+  
+  end
+

   if not web_devid then
   
     if web_iface then
   if not web_devid then
   
     if web_iface then


@@ -34,6 +42,10 @@ function getConfig()
   serial_port = cur.get(config,"serial","port")
   serial_baud = cur.get(config,"serial","baud")
 
   serial_port = cur.get(config,"serial","port")
   serial_baud = cur.get(config,"serial","baud")
 

+  input_file = cur.get(config,"input","file")
+  input_exec = cur.get(config,"input","exec")
+  alarm_exec = cur.get(config,"alarm","exec")
+

   if serial_port then
 
     command = "stty -F  "..serial_port.." "..serial_baud
   if serial_port then
 
     command = "stty -F  "..serial_port.." "..serial_baud


@@ -45,6 +57,10 @@ function getConfig()
   mqtt_port = cur.get(config,"mqtt","port")
   mqtt_id = cur.get(config,"mqtt","id")
   mqtt_topic = cur.get(config,"mqtt","topic")
   mqtt_port = cur.get(config,"mqtt","port")
   mqtt_id = cur.get(config,"mqtt","id")
   mqtt_topic = cur.get(config,"mqtt","topic")

+  mqtt_alarm_topic = cur.get(config,"mqtt","alarm_topic")
+
+  mqtt_user = cur.get(config,"mqtt","user")
+  mqtt_passwd = cur.get(config,"mqtt","password")

 
   if mqtt_host and not mqtt_id then
     mqtt_id="weather-"..web_devid
 
   if mqtt_host and not mqtt_id then
     mqtt_id="weather-"..web_devid


@@ -55,7 +71,11 @@ function getConfig()
   end
 
   if mqtt_host and not mqtt_topic then
   end
 
   if mqtt_host and not mqtt_topic then

-    mqtt_topic = 'weathermon/'..web_devid
+    mqtt_topic = 'weathermon/{dev}/{type}/{id}/{param}'
+  end
+
+  if mqtt_host and not mqtt_alarm_topic then
+    mqtt_alarm_topic = 'alarm/{dev}/{type}/{id}'

   end
 
 end
   end
 
 end


@@ -102,7 +122,7 @@ function submitValue(type,id,param,val)
   command = "curl"
 
   if web_iface then
   command = "curl"
 
   if web_iface then

-    command = command.." --interface "..web_iface
+    command = command.." --interface "..ip_addr

   end
 
   if web_user then
   end
 
   if web_user then


@@ -111,9 +131,8 @@ function submitValue(type,id,param,val)
 
   command = command.." \""..url.."\""
 
 
   command = command.." \""..url.."\""
 

-  print(command)

   os.execute(command)
   os.execute(command)

-  print("")
+  print()

 
 end
 
 
 end
 


@@ -147,16 +166,68 @@ function processLine(str)
         end
       end
     end
         end
       end
     end

-    mqtt_param = {}

     for k,v in pairs(sensor) do
       printLog("Type = "..sensor_type..", ID = "..sensor_id..", Param = "..k..", Value = "..v)
       submitValue(sensor_type,sensor_id,k,v)
     for k,v in pairs(sensor) do
       printLog("Type = "..sensor_type..", ID = "..sensor_id..", Param = "..k..", Value = "..v)
       submitValue(sensor_type,sensor_id,k,v)

-      mqtt_param[k]=v
+      if mqtt_client then
+        mqtt_path=string.gsub(mqtt_topic,"{(.-)}", 
+          function (name) 
+            if name=="dev" then
+              return web_devid
+            elseif name=="type" then
+              return sensor_type
+            elseif name=="id" then
+              return sensor_id
+            elseif name=="param" then
+              return k
+            else
+              return '{'..name..'}'
+            end      
+          end)
+        mqtt_client:publish(mqtt_path,v)
+      end  
+    end
+  elseif msg_type=="ALARM" then
+    printLog("ALARM: "..msg_body)  
+    sens = splitStr(msg_body,",")
+    sensor = {}
+    idx = 1
+    sensor_type = nil
+    sensor_id = web_devid
+    mqtt_param = {}
+    for i,rec in ipairs(sens) do
+      recrd=splitStr(rec,'=')
+      key=recrd[1] or nil
+      value=recrd[2] or nil
+      if value then
+        if key=="TYPE" then
+          alarm_type=value
+        elseif key=="ID" then
+          alarm_id=value
+        end
+      end

     end
     end

-    mqtt_msg = { type=sensor_type, data=mqtt_param }

     if mqtt_client then
     if mqtt_client then

-      serializedString = json.encode(mqtt_msg)
-      mqtt_client:publish(mqtt_topic,serializedString)
+      mqtt_path=string.gsub(mqtt_alarm_topic,"{(.-)}", 
+        function (name) 
+          if name=="dev" then
+            return web_devid
+          elseif name=="type" then
+            return sensor_type
+          elseif name=="id" then
+            return sensor_id
+          else
+            return '{'..name..'}'
+          end      
+        end)
+      mqtt_client:publish(mqtt_path,msg_body)
+    end
+    if alarm_exec then
+      command=alarm_exec..
+        " \""..string.gsub(alarm_type,"\"","\\\"")..
+        "\" \""..string.gsub(alarm_id,"\"","\\\"")..
+        "\" \""..string.gsub(msg_body,"\"","\\\"").."\""
+      os.execute(command)

     end
   end
 
     end
   end
 


@@ -167,11 +238,25 @@ getConfig()
 if mqtt_host then
   MQTT = require "paho.mqtt"
   mqtt_client = MQTT.client.create(mqtt_host, mqtt_port)
 if mqtt_host then
   MQTT = require "paho.mqtt"
   mqtt_client = MQTT.client.create(mqtt_host, mqtt_port)

+  if mqtt_user then
+    mqtt_client:auth(mqtt_user, mqtt_passwd)
+  end

   mqtt_client:connect(mqtt_id)
   json = require( "json" )
 end
 
   mqtt_client:connect(mqtt_id)
   json = require( "json" )
 end
 

-serialin=io.open(serial_port,"r")
+if serial_port then
+  serialin=io.open(serial_port,"r")
+elseif input_file == "-" then
+  serialin=io.stdin;
+elseif input_file then
+  serialin=io.open(input_file,"r")
+elseif input_exec then
+  serialin=io.popen(input_exec,"r")
+else
+  printLog("No input selected")
+  return
+end  

 while 1 do
   line=serialin:read()
   print(line)
 while 1 do
   line=serialin:read()
   print(line)