Added computer-readable Freifunk status page

diff --git a/contrib/package/luci/Makefile b/contrib/package/luci/Makefile
index 855dfc0..d85a93f 100644 (file)
--- a/contrib/package/luci/Makefile
+++ b/contrib/package/luci/Makefile
@@ -321,7 +321,7 @@ endef
 
 define Package/luci-mod-freifunk
   $(call Package/luci/fftemplate)
 
 define Package/luci-mod-freifunk
   $(call Package/luci/fftemplate)

-  DEPENDS:=+luci-admin-full
+  DEPENDS:=+luci-admin-full +luci-json

   TITLE:=LuCI Freifunk module
 endef
 
   TITLE:=LuCI Freifunk module
 endef
 

diff --git a/modules/freifunk/luasrc/controller/freifunk/freifunk.lua b/modules/freifunk/luasrc/controller/freifunk/freifunk.lua
index ff739fd..847083b 100644 (file)
--- a/modules/freifunk/luasrc/controller/freifunk/freifunk.lua
+++ b/modules/freifunk/luasrc/controller/freifunk/freifunk.lua
@@ -50,6 +50,8 @@ function index()
        page.setuser  = false
        page.setgroup = false
 
        page.setuser  = false
        page.setgroup = false
 

+       entry({"freifunk", "status.json"}, call("jsonstatus"))
+

        assign({"freifunk", "olsr"}, {"admin", "status", "olsr"}, "OLSR", 30)
 
        if luci.fs.access("/etc/config/luci_statistics") then
        assign({"freifunk", "olsr"}, {"admin", "status", "olsr"}, "OLSR", 30)
 
        if luci.fs.access("/etc/config/luci_statistics") then


@@ -68,3 +70,117 @@ function index()
        page.title  = "Kontakt"
        page.order  = 40
 end
        page.title  = "Kontakt"
        page.order  = 40
 end

+
+local function fetch_olsrd()
+       local sys = require "luci.sys"
+       local util = require "luci.util"
+       local table = require "table"
+       local rawdata = sys.httpget("http://127.0.0.1:2006/")
+
+       if #rawdata == 0 then
+               if luci.fs.access("/proc/net/ipv6_route", "r") then
+                       rawdata = sys.httpget("http://[::1]:2006/")
+                       if #rawdata == 0 then
+                               return nil
+                       end
+               else
+                       return nil
+               end
+       end
+
+       local data = {}
+
+       local tables = util.split(util.trim(rawdata), "\r?\n\r?\n", nil, true)
+
+
+       for i, tbl in ipairs(tables) do
+               local lines = util.split(tbl, "\r?\n", nil, true)
+               local name  = table.remove(lines, 1):sub(8)
+               local keys  = util.split(table.remove(lines, 1), "\t")
+               local split = #keys - 1
+
+               data[name] = {}
+
+               for j, line in ipairs(lines) do
+                       local fields = util.split(line, "\t", split)
+                       data[name][j] = {}
+                       for k, key in pairs(keys) do
+                               data[name][j][key] = fields[k]
+                       end
+
+                       if data[name][j].Linkcost then
+                               data[name][j].LinkQuality,
+                               data[name][j].NLQ,
+                               data[name][j].ETX =
+                               data[name][j].Linkcost:match("([%w.]+)/([%w.]+)[%s]+([%w.]+)")
+                       end
+               end
+       end
+
+       return data
+end
+
+function jsonstatus()
+       local root = {}
+       local sys = require "luci.sys"
+       local uci = require "luci.model.uci"
+       local util = require "luci.util"
+       local http = require "luci.http"
+       local json = require "luci.json"
+       local ltn12 = require "luci.ltn12"
+       local webadmin = require "luci.tools.webadmin"
+
+       local cursor = uci.cursor_state()
+
+       local ffzone = webadmin.firewall_find_zone("freifunk")
+       local ffznet = ffzone and cursor:get("firewall", ffzone, "network")
+       local ffwifs = ffznet and util.split(ffznet, " ") or {}
+
+
+       root.protocol = 1
+
+       root.system = {
+               uptime = {sys.uptime()},
+               loadavg = {sys.loadavg()},
+               sysinfo = {sys.sysinfo()},
+               hostname = sys.hostname()
+       }
+
+       root.brand = cursor:get_all("luci", "brand")
+
+       root.freifunk = {}
+       cursor:foreach("freifunk", "public", function(s)
+               root.freifunk[s[".name"]] = s
+       end)
+
+       cursor:foreach("system", "system", function(s)
+               root.geo = {
+                       latitude = s.latitude,
+                       longitude = s.longitude
+               }
+       end)
+
+       root.network = {}
+       root.wireless = {devices = {}, interfaces = {}, status = {}}
+       local wifs = root.wireless.interfaces
+       local wifidata = luci.sys.wifi.getiwconfig() or {}
+       local netdata = luci.sys.net.deviceinfo() or {}
+
+       for _, vif in ipairs(ffwifs) do
+               root.network[vif] = cursor:get_all("network", vif)
+               root.wireless.devices[vif] = cursor:get_all("wireless", vif)
+               cursor:foreach("wireless", "wifi-iface", function(s)
+                       if s.device == vif and s.network == vif then
+                               wifs[#wifs+1] = s
+                               if s.ifname then
+                                       root.wireless.status[s.ifname] = wifidata[s.ifname]
+                               end
+                       end
+               end)
+       end
+
+       root.olsrd = fetch_olsrd()
+
+       http.prepare_content("application/json")
+       ltn12.pump.all(json.Encoder(root):source(), http.write)
+end