109 lines
3.5 KiB
Lua
109 lines
3.5 KiB
Lua
#!/usr/bin/lua
|
|
|
|
local SLAXML = require 'slaxdom'
|
|
local SCIFDataBase = io.open('SCIFDataBase.xml'):read("*a")
|
|
-- SLAXML:parse(SCIFDataBase,{stripWhitespace=true})
|
|
local dom = SLAXML:dom(SCIFDataBase,{ simple=false,stripWhitespace=true })
|
|
|
|
function http_print(s)
|
|
if s then
|
|
io.stdout:write(tostring(s).."\r\n")
|
|
else
|
|
io.stdout:write("\r\n")
|
|
end
|
|
end
|
|
|
|
function SendError(err,desc)
|
|
http_print(proto.." "..err)
|
|
http_print("Content-Type: text/html")
|
|
http_print()
|
|
local file = io.open("e404.html")
|
|
if file then
|
|
local tmp = file:read("*a")
|
|
tmp = string.gsub(tmp,"404 Not Found",err .. " " .. desc)
|
|
http_print(tmp)
|
|
file:close()
|
|
end
|
|
end
|
|
|
|
local child
|
|
local unit
|
|
|
|
local i
|
|
local j
|
|
local k
|
|
local l
|
|
local Frequency
|
|
|
|
local ManufacturerList = {}
|
|
local ManufacturerArray = {}
|
|
local ManufacturerCount = 0
|
|
|
|
for i,child in ipairs(dom.kids) do
|
|
http_print (i,child.name)
|
|
if child.name == "SCIFDataBase" then
|
|
for j,unit in ipairs(child.kids) do
|
|
if unit.name == "OutdoorUnit" then
|
|
local Name = unit.attr["Name"];
|
|
local Manufacturer = unit.attr["Manufacturer"];
|
|
local Type = unit.attr["Type"];
|
|
local Protocol = unit.attr["Protocol"];
|
|
if not Protocol then Protocol = "EN50494" end
|
|
if not Manufacturer then Manufacturer = "" end
|
|
if not Type then Type = "LNB" end
|
|
-- http_print ( " ",Name,Manufacturer,Type)
|
|
local CurManu = ManufacturerList[Manufacturer]
|
|
if not CurManu then
|
|
CurManu = { UnitList = {}, UnitCount = 0, Name = Manufacturer }
|
|
ManufacturerCount = ManufacturerCount + 1
|
|
ManufacturerList[Manufacturer] = CurManu
|
|
ManufacturerArray[ManufacturerCount] = CurManu
|
|
end
|
|
CurManu.UnitCount = CurManu.UnitCount + 1
|
|
local CurUnit = { Name = Name, Type = Type, Protocol = Protocol, Frequencies = {} }
|
|
CurManu.UnitList[CurManu.UnitCount] = CurUnit
|
|
local fcount = 0
|
|
for k,Frequency in ipairs(unit.kids) do
|
|
if Frequency.name == "UBSlot" then
|
|
fcount = fcount + 1
|
|
CurUnit.Frequencies[fcount] = Frequency.attr["Frequency"]
|
|
|
|
-- http_print(" -------------------------", Frequency.type, Frequency.name, Frequency.attr["Frequency"])
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
-- http_print(ManufacturerCount)
|
|
|
|
http_print("HTTP/1.1 200 ")
|
|
http_print("Pragma: no-cache")
|
|
http_print("Cache-Control: no-cache")
|
|
http_print("Content-Type: application/x-javascript")
|
|
http_print()
|
|
|
|
http_print("ManufacturerList = new Array();")
|
|
|
|
for i,CurManu in ipairs(ManufacturerArray) do
|
|
http_print()
|
|
http_print(string.format("ManufacturerList[%d] = new Object();",i-1))
|
|
http_print(string.format("ManufacturerList[%d].Name = \"%s\";",i-1,CurManu.Name))
|
|
http_print(string.format("ManufacturerList[%d].UnitList = new Array();",i-1))
|
|
|
|
for j,CurUnit in ipairs(CurManu.UnitList) do
|
|
http_print()
|
|
http_print(string.format("ManufacturerList[%d].UnitList[%d] = new Object();",i-1,j-1))
|
|
http_print(string.format("ManufacturerList[%d].UnitList[%d].Name = \"%s\";",i-1,j-1,CurUnit.Name))
|
|
http_print(string.format("ManufacturerList[%d].UnitList[%d].Protocol = \"%s\";",i-1,j-1,CurUnit.Protocol))
|
|
http_print(string.format("ManufacturerList[%d].UnitList[%d].Frequencies = new Array();",i-1,j-1))
|
|
for k,Frequency in ipairs(CurUnit.Frequencies) do
|
|
http_print(string.format("ManufacturerList[%d].UnitList[%d].Frequencies[%d] = %d;",i-1,j-1,k-1,Frequency))
|
|
end
|
|
end
|
|
|
|
i = i + 1
|
|
end
|
|
http_print()
|