1 files changed, 137 insertions, 0 deletions
diff --git a/diller/on_cmd.lua b/diller/on_cmd.lua
new file mode 100644
index 0000000..0050e4b
--- /dev/null
+++ b/diller/on_cmd.lua
@@ -0,0 +1,137 @@
+local inter = require('inter')
+local mq = require('mq')
+local properties = {}
+
+function load_properties()
+  local l = file.list()
+  info("loading properties")
+
+  for k, v in pairs(l) do
+    local key = string.match(k, '^cfg%-property%-(.+)%-key$')
+    if key then
+--      info('property..'..key)
+
+      local name = read_cfg('property-'..key..'-name')
+      local description = read_cfg('property-'..key..'-description')
+
+      local property = {
+        key = key,
+        name = name,
+        description = description
+      }
+      properties[key] = property
+    else
+--      info('bad name: '..k)
+    end
+  end
+
+  if true then return end;
+--  load_properties = nil
+end
+
+function on_cmd(cmd, args)
+  if not cmd then
+    return
+  end
+
+  info("on_cmd: '"..cmd.."', #args="..tostring(table.getn(args)))
+  for k, v in pairs(args) do
+    info(k.."="..tostring(v))
+  end
+
+  if cmd == "reset" then
+    print("ok reset")
+    panic("Reset requested")
+  elseif cmd == "wlan" then
+    local ssid = args.ssid password = args.password
+
+    local reconfigured = false
+    if args.ssid then
+      write_cfg("wlan-ssid", args.ssid)
+    end
+    if args.password then
+      write_cfg("wlan-password", args.password)
+    end
+    if args.ssid and args.password then
+      configure_wlan()
+    end
+    ssid, password, bssid_set, bssid = wifi.sta.getconfig()
+    print("ok ssid="..(ssid or ''))
+  elseif cmd == "network" then
+    local ip = args.ip nm = args.netmask gw = args.gateway
+
+    if args.ip then
+      wifi.sta.setip({ip=ip, netmask=nm, gateway=gw})
+    end
+
+    ip, nm, gw = wifi.sta.getip()
+    print("ok ip="..(ip or '').." netmask="..(nm or '').." gateway="..(gw or ''))
+  elseif cmd == "mqtt" then
+    local status = mq.status()
+    print("ok status="..(status or ''))
+  elseif cmd == "list-properties" then
+    print("ok count="..tostring(table.getn(properties)))
+    for key, property in pairs(properties) do
+      line = "property key="..key
+
+      if property.name then
+        line = line..' name="'..property.name..'"'
+      end
+
+      if property.description then
+        line = line..' description="'..property.description..'"'
+      end
+      print(line)
+    end
+  elseif cmd == "set-property" then
+    local key = args.key
+
+    -- Compatability
+    if not key then
+      key = args.id
+    end
+
+    if not key then
+      print("fail status=missing-key")
+    else
+      property = properties[key]
+
+      local value_path = "property/"..key.."/value"
+      local name_path = "property/"..key.."/name"
+      local description_path = "property/"..key.."/description"
+
+      if not property then
+        write_cfg('property-'..key..'-key', key)
+        info("new property: "..key)
+        property = {key = key}
+        properties[key] = property
+        mq.subscribe(name_path, function() info('message on '..path) end)
+        mq.subscribe(description_path, function() info('message on '..path) end)
+      end
+
+      if args.value then
+        mq.publish(value_path, args.value)
+      end
+      if args.name and property.name ~= args.name then
+        info("publishing name")
+        mq.publish(name_path, args.name)
+        property.name = args.name
+      end
+      if args.description and property.description ~= args.description then
+        info("publishing description")
+        mq.publish(description_path, args.description)
+        property.description = args.description
+      end
+    end
+  elseif cmd == "publish" then
+--    print("Publishing, topic="..tostring(cmd.topic)..", payload="..tostring(cmd.payload))
+    ok, msg = mq.publish(cmd.topic, cmd.payload)
+    if ok then
+      print("ok status="..msg)
+    else
+      print("failed status="..msg)
+    end
+  else
+    print("failed status=unknown-command")
+  end
+end