1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
<?xml version="1.0" standalone="yes"?>
<%
-- CyberData Intercom Configuration File Template
local values = ...
xml = require("LuaXml")
local InitFile = "/var/www/provisioning/htdocs/CyberData/init.cfg"
local function findSection(xmlobj, name)
-- Cannot use xmlobj:find() because we don't want recursion
for i,s in ipairs(xmlobj) do
if s:tag() == name then
return s
end
end
return null
end
local function findOrAppendSection(xmlobj, name)
return findSection(xmlobj, name) or xmlobj:append(name)
end
local function setValue(xmlobj, name, value)
if value then
findOrAppendSection(xmlobj, name)[1] = value
end
end
-- Load the initial config
local init_cfg
local res, err = pcall(function()
init_cfg = xml.load(InitFile)
end)
if not res and err then
init_cfg = xml.new("specific")
end
-- <IPSettings>
-- <SIPSettings>
if values.reg1 then
local sipsettings = findOrAppendSection(init_cfg, "SIPSettings")
if values.device then
setValue(sipsettings, "SIPServer", values.device.registrar)
end
setValue(sipsettings, "SIPUserID", values.reg1.extension)
setValue(sipsettings, "SIPAuthID", values.reg1.extension)
setValue(sipsettings, "SIPAuthPassword", values.reg1.password)
setValue(sipsettings, "DialoutExtension0", values.reg1.hotlinedestination)
setValue(sipsettings, "DialoutID0", values.reg1.callerid)
end
-- <ClockSettings>
if values.device then
local clocksettings = findOrAppendSection(init_cfg, "ClockSettings")
setValue(clocksettings, "NTPServer", values.device.sntpserver)
setValue(clocksettings, "NTPTimezone", values.device.timezone)
end
-- init_cfg:save("TEST-cyberdata.xml")
print(init_cfg)
%>
|