<%# LuCI - Lua Configuration Interface Copyright 2011 Manuel Munz Licensed under the Apache License, Version 2.0 (the "License"); you may not use this file except in compliance with the License. You may obtain a copy of the License at http://www.apache.org/licenses/LICENSE-2.0 -%> <% local fs = require "luci.fs" local utl = require "luci.util" local i = 1 -- check if nameservice plugin is enabled and where to find the services file local has_services = false local uci = require "luci.model.uci".cursor() uci:foreach("olsrd", "LoadPlugin", function(s) if s.library == "olsrd_nameservice.so.0.3" then if s.services_file and fs.access(s.services_file) then has_services = true services_file = s.services_file else if fs.access("/var/run/services_olsr") then has_services = true services_file = "/var/run/services_olsr" end end end end) function fetch_services() local rawdata = fs.readfile(services_file) if #rawdata == 0 then return nil end local data = {} local tables = utl.split(utl.trim(rawdata), "\n", nil, true) -- remove the first 3 lines table.remove(tables,1) table.remove(tables,1) table.remove(tables,1) -- store last line in last_update and remove it, then remove another empty line at the end last_update=table.remove(tables) table.remove(tables) for i, tbl in ipairs(tables) do local lines = utl.split(tbl, "\n", nil, true) end return tables end local table = fetch_services() if luci.http.formvalue("status") == "1" then local rv = {} for k, line in ipairs(table) do local field = utl.split(line, "[#|]", split, true) local url,descr,origin = pcdata(field[1]),pcdata(field[3]),pcdata(field[4]) local rs = i rv[#rv+1] = { url = url, origin = origin, descr = descr, rs = rs } if i == 1 then i = 0 elseif i == 0 then i = 1 end end luci.http.prepare_content("application/json") luci.http.write_json(rv) return end %> <% if has_services then %> <%+header%>

<%:Services%>

<%:Internal services%> <% for k, line in ipairs(table) do local field = {} -- split line at # and |, 1=url, 2=proto, 3=description, 4=source local field = utl.split(line, "[#|]", split, true) local url,descr,origin = pcdata(field[1]),pcdata(field[3]),pcdata(field[4]) %> <% if i == 1 then i = 0 elseif i == 0 then i = 1 end end %>

<%:Url%>	<%:Source%>
<%=descr%>	<%=origin%>

<%=last_update%>

<%else%> <%:No services can be shown, because olsrd is not running or the olsrd-nameservice Plugin is not loaded.%> <%end%> <%+footer%>