1
0
mirror of https://github.com/DigitalDevices/octonet.git synced 2023-10-10 13:36:52 +02:00
octonet/octoserve/var/www/scifdb.lua
mvoelkel 928816fbe4 script cleanup
unified output using http_print
added Cache-Control header
2015-09-24 19:09:08 +02:00

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()