1475 lines
53 KiB
Lua
1475 lines
53 KiB
Lua
-- Copyright 2008 Steven Barth <steven@midlink.org>
|
|
-- Copyright 2008 Jo-Philipp Wich <jow@openwrt.org>
|
|
-- Copyright 2013 Manuel Munz <freifunk at somakoma dot de>
|
|
-- Copyright 2014-2016 Christian Schoenebeck <christian dot schoenebeck at gmail dot com>
|
|
-- Licensed to the public under the Apache License 2.0.
|
|
|
|
local NX = require "nixio"
|
|
local NXFS = require "nixio.fs"
|
|
local SYS = require "luci.sys"
|
|
local UTIL = require "luci.util"
|
|
local HTTP = require "luci.http"
|
|
local DISP = require "luci.dispatcher"
|
|
local WADM = require "luci.tools.webadmin"
|
|
local DTYP = require "luci.cbi.datatypes"
|
|
local CTRL = require "luci.controller.ddns" -- this application's controller
|
|
local DDNS = require "luci.tools.ddns" -- ddns multiused functions
|
|
|
|
-- takeover arguments -- #######################################################
|
|
local section = arg[1]
|
|
|
|
-- html constants -- ###########################################################
|
|
local font_red = "<font color='red'>"
|
|
local font_off = "</font>"
|
|
local bold_on = "<strong>"
|
|
local bold_off = "</strong>"
|
|
|
|
-- error text constants -- #####################################################
|
|
local err_ipv6_plain = translate("IPv6 not supported") .. " - " ..
|
|
translate("please select 'IPv4' address version")
|
|
local err_ipv6_basic = bold_on ..
|
|
font_red ..
|
|
translate("IPv6 not supported") ..
|
|
font_off ..
|
|
"<br />" .. translate("please select 'IPv4' address version") ..
|
|
bold_off
|
|
local err_ipv6_other = bold_on ..
|
|
font_red ..
|
|
translate("IPv6 not supported") ..
|
|
font_off ..
|
|
"<br />" .. translate("please select 'IPv4' address version in") .. " " ..
|
|
[[<a href="]] ..
|
|
DISP.build_url("admin", "services", "ddns", "detail", section) ..
|
|
"?tab.dns." .. section .. "=basic" ..
|
|
[[">]] ..
|
|
translate("Basic Settings") ..
|
|
[[</a>]] ..
|
|
bold_off
|
|
|
|
function err_tab_basic(self)
|
|
return translate("Basic Settings") .. " - " .. self.title .. ": "
|
|
end
|
|
function err_tab_adv(self)
|
|
return translate("Advanced Settings") .. " - " .. self.title .. ": "
|
|
end
|
|
function err_tab_timer(self)
|
|
return translate("Timer Settings") .. " - " .. self.title .. ": "
|
|
end
|
|
|
|
-- read services/services_ipv6 files -- ########################################
|
|
local services4 = { } -- IPv4 --
|
|
local fd4 = io.open("/usr/lib/ddns/services", "r")
|
|
if fd4 then
|
|
local ln, s, t
|
|
repeat
|
|
ln = fd4:read("*l")
|
|
s = ln and ln:match('^%s*".*') -- only handle lines beginning with "
|
|
s = s and s:gsub('"','') -- remove "
|
|
t = s and UTIL.split(s,"(%s+)",nil,true) -- split on whitespaces
|
|
if t then services4[t[1]]=t[2] end
|
|
until not ln
|
|
fd4:close()
|
|
end
|
|
|
|
local services6 = { } -- IPv6 --
|
|
local fd6 = io.open("/usr/lib/ddns/services_ipv6", "r")
|
|
if fd6 then
|
|
local ln, s, t
|
|
repeat
|
|
ln = fd6:read("*l")
|
|
s = ln and ln:match('^%s*".*') -- only handle lines beginning with "
|
|
s = s and s:gsub('"','') -- remove "
|
|
t = s and UTIL.split(s,"(%s+)",nil,true) -- split on whitespaces
|
|
if t then services6[t[1]]=t[2] end
|
|
until not ln
|
|
fd6:close()
|
|
end
|
|
|
|
-- multi-used functions -- ####################################################
|
|
-- function to verify settings around ip_source
|
|
-- will use dynamic_dns_lucihelper to check if
|
|
-- local IP can be read
|
|
local function _verify_ip_source()
|
|
-- section is globally defined here be calling agrument (see above)
|
|
local _network = "-"
|
|
local _url = "-"
|
|
local _interface = "-"
|
|
local _script = "-"
|
|
local _proxy = ""
|
|
|
|
local _ipv6 = usev6:formvalue(section)
|
|
local _source = (_ipv6 == "1")
|
|
and src6:formvalue(section)
|
|
or src4:formvalue(section)
|
|
if _source == "network" then
|
|
_network = (_ipv6 == "1")
|
|
and ipn6:formvalue(section)
|
|
or ipn4:formvalue(section)
|
|
elseif _source == "web" then
|
|
_url = (_ipv6 == "1")
|
|
and iurl6:formvalue(section)
|
|
or iurl4:formvalue(section)
|
|
-- proxy only needed for checking url
|
|
_proxy = (pxy) and pxy:formvalue(section) or ""
|
|
elseif _source == "interface" then
|
|
_interface = ipi:formvalue(section)
|
|
elseif _source == "script" then
|
|
_script = ips:formvalue(section)
|
|
end
|
|
|
|
local command = [[/usr/lib/ddns/dynamic_dns_lucihelper.sh get_local_ip ]] ..
|
|
_ipv6 .. [[ ]] .. _source .. [[ ]] .. _network .. [[ ]] ..
|
|
_url .. [[ ]] .. _interface .. [[ ']] .. _script.. [[' ]] .. _proxy
|
|
return (SYS.call(command) == 0)
|
|
end
|
|
|
|
-- function to check if option is used inside url or script
|
|
-- return -1 on error, 0 NOT required, 1 required
|
|
local function _option_used(option, urlscript)
|
|
local surl -- search string for url
|
|
local ssh -- search string for script
|
|
local required -- option used inside url or script
|
|
|
|
if option == "domain" then surl, ssh = '%[DOMAIN%]', '%$domain'
|
|
elseif option == "username" then surl, ssh = '%[USERNAME%]', '%$username'
|
|
elseif option == "password" then surl, ssh = '%[PASSWORD%]', '%$password'
|
|
elseif option == "param_enc" then surl, ssh = '%[PARAMENC%]', '%$param_enc'
|
|
elseif option == "param_opt" then surl, ssh = '%[PARAMOPT%]', '%$param_opt'
|
|
else
|
|
error("undefined option")
|
|
return -1 -- return on error
|
|
end
|
|
|
|
local required = false
|
|
-- handle url
|
|
if urlscript:find('http') then
|
|
required = ( urlscript:find(surl) )
|
|
-- handle script
|
|
else
|
|
if not urlscript:find("/") then
|
|
-- might be inside ddns-scripts directory
|
|
urlscript = "/usr/lib/ddns/" .. urlscript
|
|
end
|
|
-- problem with script exit here
|
|
if not NXFS.access(urlscript) then return -1 end
|
|
|
|
local f = io.input(urlscript)
|
|
-- still problem with script exit here
|
|
if not f then return -1 end
|
|
for l in f:lines() do
|
|
repeat
|
|
if l:find('^#') then break end -- continue on comment lines
|
|
required = ( l:find(surl) or l:find(ssh) )
|
|
until true
|
|
if required then break end
|
|
end
|
|
f:close()
|
|
end
|
|
return (required and 1 or 0)
|
|
end
|
|
|
|
-- function to verify if option is valid
|
|
local function _option_validate(self, value)
|
|
-- section is globally defined here be calling agrument (see above)
|
|
local fusev6 = usev6:formvalue(section) or "0"
|
|
local fsvc4 = svc4:formvalue(section) or "-"
|
|
local fsvc6 = svc6:formvalue(section) or "-"
|
|
local urlsh, used
|
|
|
|
-- IP-Version dependent custom service selected
|
|
if (fusev6 == "0" and fsvc4 == "-") or
|
|
(fusev6 == "1" and fsvc6 == "-") then
|
|
-- read custom url
|
|
urlsh = uurl:formvalue(section) or ""
|
|
-- no url then read custom script
|
|
if (#urlsh == 0) then
|
|
urlsh = ush:formvalue(section) or ""
|
|
end
|
|
-- IPv4 read from services4 table
|
|
elseif (fusev6 == "0") then
|
|
urlsh = services4[fsvc4] or ""
|
|
-- IPv6 read from services6 table
|
|
else
|
|
urlsh = services6[fsvc6] or ""
|
|
end
|
|
-- problem with url or script exit here
|
|
-- error handled somewhere else
|
|
if (#urlsh == 0) then return "" end
|
|
|
|
used = _option_used(self.option, urlsh)
|
|
-- on error or not used return empty sting
|
|
if used < 1 then return "" end
|
|
-- needed but no data then return error
|
|
if not value or (#value == 0) then
|
|
return nil, err_tab_basic(self) .. translate("missing / required")
|
|
end
|
|
return value
|
|
end
|
|
|
|
-- cbi-map definition -- #######################################################
|
|
local m = Map("ddns")
|
|
m.title = CTRL.app_title_back()
|
|
m.description = CTRL.app_description()
|
|
m.redirect = DISP.build_url("admin", "services", "ddns")
|
|
|
|
m.on_after_commit = function(self)
|
|
if self.changed then -- changes ?
|
|
local pid = DDNS.get_pid(section)
|
|
if pid > 0 then -- running ?
|
|
local tmp = NX.kill(pid, 1) -- send SIGHUP
|
|
end
|
|
end
|
|
end
|
|
|
|
-- provider switch was requested, save and reload page
|
|
if m:formvalue("cbid.ddns.%s._switch" % section) then -- section == arg[1]
|
|
local fsvc
|
|
local fusev6 = m:formvalue("cbid.ddns.%s.use_ipv6" % section) or "0"
|
|
if fusev6 == "1" then
|
|
fsvc = m:formvalue("cbid.ddns.%s.ipv6_service_name" % section) or ""
|
|
else
|
|
fsvc = m:formvalue("cbid.ddns.%s.ipv4_service_name" % section) or ""
|
|
end
|
|
|
|
if fusev6 ~= (m:get(section, "use_ipv6") or "0") then -- IPv6 was changed
|
|
m:set(section, "use_ipv6", fusev6) -- save it
|
|
end
|
|
|
|
if fsvc ~= "-" then -- NOT "custom"
|
|
m:set(section, "service_name", fsvc) -- save it
|
|
else -- else
|
|
m:del(section, "service_name") -- delete it
|
|
end
|
|
m.uci:save(m.config)
|
|
|
|
-- reload page
|
|
HTTP.redirect( DISP.build_url("admin", "services", "ddns", "detail", section) )
|
|
return
|
|
end
|
|
|
|
-- read application settings -- ################################################
|
|
-- date format; if not set use ISO format
|
|
local date_format = m.uci:get(m.config, "global", "date_format") or "%F %R"
|
|
-- log directory
|
|
local log_dir = m.uci:get(m.config, "global", "log_dir") or "/var/log/ddns"
|
|
|
|
-- cbi-section definition -- ###################################################
|
|
local ns = m:section( NamedSection, section, "service",
|
|
translate("Details for") .. ([[: <strong>%s</strong>]] % section),
|
|
translate("Configure here the details for selected Dynamic DNS service.") )
|
|
ns.instance = section -- arg [1]
|
|
ns:tab("basic", translate("Basic Settings"), nil )
|
|
ns:tab("advanced", translate("Advanced Settings"), nil )
|
|
ns:tab("timer", translate("Timer Settings"), nil )
|
|
ns:tab("logview", translate("Log File Viewer"), nil )
|
|
|
|
-- TAB: Basic #####################################################################################
|
|
-- enabled -- #################################################################
|
|
en = ns:taboption("basic", Flag, "enabled",
|
|
translate("Enabled"),
|
|
translate("If this service section is disabled it could not be started." .. "<br />" ..
|
|
"Neither from LuCI interface nor from console") )
|
|
en.orientation = "horizontal"
|
|
|
|
-- IPv4/IPv6 - lookup_host -- #################################################
|
|
luh = ns:taboption("basic", Value, "lookup_host",
|
|
translate("Lookup Hostname"),
|
|
translate("Hostname/FQDN to validate, if IP update happen or necessary") )
|
|
luh.rmempty = false
|
|
luh.placeholder = "myhost.example.com"
|
|
function luh.validate(self, value)
|
|
if not value
|
|
or not (#value > 0)
|
|
or not DTYP.hostname(value) then
|
|
return nil, err_tab_basic(self) .. translate("invalid FQDN / required - Sample") .. ": 'myhost.example.com'"
|
|
else
|
|
return UTIL.trim(value)
|
|
end
|
|
end
|
|
function luh.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- use_ipv6 -- ################################################################
|
|
usev6 = ns:taboption("basic", ListValue, "use_ipv6",
|
|
translate("IP address version"),
|
|
translate("Defines which IP address 'IPv4/IPv6' is send to the DDNS provider") )
|
|
usev6.widget = "radio"
|
|
usev6.default = "0"
|
|
usev6:value("0", translate("IPv4-Address") )
|
|
function usev6.cfgvalue(self, section)
|
|
local value = AbstractValue.cfgvalue(self, section) or "0"
|
|
if DDNS.has_ipv6 or (value == "1" and not DDNS.has_ipv6) then
|
|
self:value("1", translate("IPv6-Address") )
|
|
end
|
|
if value == "1" and not DDNS.has_ipv6 then
|
|
self.description = err_ipv6_basic
|
|
end
|
|
return value
|
|
end
|
|
function usev6.validate(self, value)
|
|
if (value == "1" and DDNS.has_ipv6) or value == "0" then
|
|
return value
|
|
end
|
|
return nil, err_tab_basic(self) .. err_ipv6_plain
|
|
end
|
|
function usev6.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv4 - service_name -- #####################################################
|
|
svc4 = ns:taboption("basic", ListValue, "ipv4_service_name",
|
|
translate("DDNS Service provider") .. " [IPv4]" )
|
|
svc4.default = "-"
|
|
svc4:depends("use_ipv6", "0") -- only show on IPv4
|
|
function svc4.cfgvalue(self, section)
|
|
local v = DDNS.read_value(self, section, "service_name")
|
|
if v and (#v > 0) then
|
|
for s, u in UTIL.kspairs(services4) do
|
|
if v == s then return v end
|
|
end
|
|
end
|
|
return "-"
|
|
end
|
|
function svc4.validate(self, value)
|
|
if usev6:formvalue(section) ~= "1" then -- do only on IPv4
|
|
return value
|
|
else
|
|
return "" -- suppress validate error
|
|
end
|
|
end
|
|
function svc4.write(self, section, value)
|
|
if usev6:formvalue(section) ~= "1" then -- do only IPv4 here
|
|
self.map:del(section, self.option) -- to be shure
|
|
if value ~= "-" then -- and write "service_name
|
|
self.map:del(section, "update_url") -- delete update_url
|
|
self.map:del(section, "update_script") -- delete update_script
|
|
return self.map:set(section, "service_name", value)
|
|
else
|
|
return self.map:del(section, "service_name")
|
|
end
|
|
end
|
|
end
|
|
function svc4.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv6 - service_name -- #####################################################
|
|
svc6 = ns:taboption("basic", ListValue, "ipv6_service_name",
|
|
translate("DDNS Service provider") .. " [IPv6]" )
|
|
svc6.default = "-"
|
|
svc6:depends("use_ipv6", "1") -- only show on IPv6
|
|
if not DDNS.has_ipv6 then
|
|
svc6.description = err_ipv6_basic
|
|
end
|
|
function svc6.cfgvalue(self, section)
|
|
local v = DDNS.read_value(self, section, "service_name")
|
|
if v and (#v > 0) then
|
|
for s, u in UTIL.kspairs(services4) do
|
|
if v == s then return v end
|
|
end
|
|
end
|
|
return "-"
|
|
end
|
|
function svc6.validate(self, value)
|
|
if usev6:formvalue(section) == "1" then -- do only on IPv6
|
|
if DDNS.has_ipv6 then return value end
|
|
return nil, err_tab_basic(self) .. err_ipv6_plain
|
|
else
|
|
return "" -- suppress validate error
|
|
end
|
|
end
|
|
function svc6.write(self, section, value)
|
|
if usev6:formvalue(section) == "1" then -- do only when IPv6
|
|
self.map:del(section, self.option) -- delete "ipv6_service_name" helper
|
|
if value ~= "-" then -- and write "service_name
|
|
self.map:del(section, "update_url") -- delete update_url
|
|
self.map:del(section, "update_script") -- delete update_script
|
|
return self.map:set(section, "service_name", value)
|
|
else
|
|
return self.map:del(section, "service_name")
|
|
end
|
|
end
|
|
end
|
|
function svc6.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv4/IPv6 - change Provider -- #############################################
|
|
svs = ns:taboption("basic", Button, "_switch")
|
|
svs.title = translate("Really change DDNS provider?")
|
|
svs.inputtitle = translate("Change provider")
|
|
svs.inputstyle = "apply"
|
|
|
|
-- IPv4/IPv6 - update_url -- ##################################################
|
|
uurl = ns:taboption("basic", Value, "update_url",
|
|
translate("Custom update-URL"),
|
|
translate("Update URL to be used for updating your DDNS Provider." .. "<br />" ..
|
|
"Follow instructions you will find on their WEB page.") )
|
|
function uurl.validate(self, value)
|
|
local fush = ush:formvalue(section)
|
|
local fusev6 = usev6:formvalue(section)
|
|
|
|
if (fusev6 ~= "1" and svc4:formvalue(section) ~= "-") or
|
|
(fusev6 == "1" and svc6:formvalue(section) ~= "-") then
|
|
return "" -- suppress validate error
|
|
elseif not value or (#value == 0) then
|
|
if not fush or (#fush == 0) then
|
|
return nil, err_tab_basic(self) .. translate("missing / required")
|
|
else
|
|
return "" -- suppress validate error / update_script is given
|
|
end
|
|
elseif (#fush > 0) then
|
|
return nil, err_tab_basic(self) .. translate("either url or script could be set")
|
|
end
|
|
|
|
local url = DDNS.parse_url(value)
|
|
if not url.scheme == "http" then
|
|
return nil, err_tab_basic(self) .. translate("must start with 'http://'")
|
|
elseif not url.query then
|
|
return nil, err_tab_basic(self) .. "<QUERY> " .. translate("missing / required")
|
|
elseif not url.host then
|
|
return nil, err_tab_basic(self) .. "<HOST> " .. translate("missing / required")
|
|
elseif SYS.call([[nslookup ]] .. url.host .. [[ >/dev/null 2>&1]]) ~= 0 then
|
|
return nil, err_tab_basic(self) .. translate("can not resolve host: ") .. url.host
|
|
end
|
|
|
|
return value
|
|
end
|
|
function uurl.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv4/IPv6 - update_script -- ###############################################
|
|
ush = ns:taboption("basic", Value, "update_script",
|
|
translate("Custom update-script"),
|
|
translate("Custom update script to be used for updating your DDNS Provider.") )
|
|
function ush.validate(self, value)
|
|
local fuurl = uurl:formvalue(section)
|
|
local fusev6 = usev6:formvalue(section)
|
|
|
|
if (fusev6 ~= "1" and svc4:formvalue(section) ~= "-") or
|
|
(fusev6 == "1" and svc6:formvalue(section) ~= "-") then
|
|
return "" -- suppress validate error
|
|
elseif not value or (#value == 0) then
|
|
if not fuurl or (#fuurl == 0) then
|
|
return nil, err_tab_basic(self) .. translate("missing / required")
|
|
else
|
|
return "" -- suppress validate error / update_url is given
|
|
end
|
|
elseif (#fuurl > 0) then
|
|
return nil, err_tab_basic(self) .. translate("either url or script could be set")
|
|
elseif not NXFS.access(value) then
|
|
return nil, err_tab_basic(self) .. translate("File not found")
|
|
end
|
|
return value
|
|
end
|
|
function ush.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv4/IPv6 - domain -- ######################################################
|
|
dom = ns:taboption("basic", Value, "domain",
|
|
translate("Domain"),
|
|
translate("Replaces [DOMAIN] in Update-URL") )
|
|
dom.placeholder = "myhost.example.com"
|
|
function dom.validate(self, value)
|
|
return _option_validate(self, value)
|
|
end
|
|
function dom.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv4/IPv6 - username -- ####################################################
|
|
user = ns:taboption("basic", Value, "username",
|
|
translate("Username"),
|
|
translate("Replaces [USERNAME] in Update-URL (URL-encoded)") )
|
|
function user.validate(self, value)
|
|
return _option_validate(self, value)
|
|
end
|
|
function user.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv4/IPv6 - password -- ####################################################
|
|
pw = ns:taboption("basic", Value, "password",
|
|
translate("Password"),
|
|
translate("Replaces [PASSWORD] in Update-URL (URL-encoded)") )
|
|
pw.password = true
|
|
function pw.validate(self, value)
|
|
return _option_validate(self, value)
|
|
end
|
|
function pw.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv4/IPv6 - param_enc -- ###################################################
|
|
pe = ns:taboption("basic", Value, "param_enc",
|
|
translate("Optional Encoded Parameter"),
|
|
translate("Optional: Replaces [PARAMENC] in Update-URL (URL-encoded)") )
|
|
function pe.validate(self, value)
|
|
return _option_validate(self, value)
|
|
end
|
|
function pe.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv4/IPv6 - param_enc -- ###################################################
|
|
po = ns:taboption("basic", Value, "param_opt",
|
|
translate("Optional Parameter"),
|
|
translate("Optional: Replaces [PARAMOPT] in Update-URL (NOT URL-encoded)") )
|
|
function po.validate(self, value)
|
|
return _option_validate(self, value)
|
|
end
|
|
function po.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- handled service dependent show/display -- ##################################
|
|
-- IPv4 --
|
|
local cv4 = svc4:cfgvalue(section)
|
|
if cv4 ~= "-" then
|
|
svs:depends ("ipv4_service_name", "-" ) -- show only if "-"
|
|
ush:depends ("ipv4_service_name", "?")
|
|
uurl:depends("ipv4_service_name", "?")
|
|
else
|
|
uurl:depends("ipv4_service_name", "-")
|
|
ush:depends ("ipv4_service_name", "-")
|
|
dom:depends("ipv4_service_name", "-" )
|
|
user:depends("ipv4_service_name", "-" )
|
|
pw:depends("ipv4_service_name", "-" )
|
|
pe:depends("ipv4_service_name", "-" )
|
|
po:depends("ipv4_service_name", "-" )
|
|
end
|
|
for s, u in UTIL.kspairs(services4) do
|
|
svc4:value(s) -- fill DropDown-List
|
|
if cv4 ~= s then
|
|
svs:depends("ipv4_service_name", s )
|
|
else
|
|
dom:depends ("ipv4_service_name", ((_option_used(dom.option, u) == 1) and s or "?") )
|
|
user:depends("ipv4_service_name", ((_option_used(user.option, u) == 1) and s or "?") )
|
|
pw:depends ("ipv4_service_name", ((_option_used(pw.option, u) == 1) and s or "?") )
|
|
pe:depends ("ipv4_service_name", ((_option_used(pe.option, u) == 1) and s or "?") )
|
|
po:depends ("ipv4_service_name", ((_option_used(po.option, u) == 1) and s or "?") )
|
|
end
|
|
end
|
|
svc4:value("-", translate("-- custom --") )
|
|
|
|
-- IPv6 --
|
|
local cv6 = svc6:cfgvalue(section)
|
|
if cv6 ~= "-" then
|
|
svs:depends ("ipv6_service_name", "-" )
|
|
uurl:depends("ipv6_service_name", "?")
|
|
ush:depends ("ipv6_service_name", "?")
|
|
else
|
|
uurl:depends("ipv6_service_name", "-")
|
|
ush:depends ("ipv6_service_name", "-")
|
|
dom:depends("ipv6_service_name", "-" )
|
|
user:depends("ipv6_service_name", "-" )
|
|
pw:depends("ipv6_service_name", "-" )
|
|
pe:depends("ipv6_service_name", "-" )
|
|
po:depends("ipv6_service_name", "-" )
|
|
end
|
|
for s, u in UTIL.kspairs(services6) do
|
|
svc6:value(s) -- fill DropDown-List
|
|
if cv6 ~= s then
|
|
svs:depends("ipv6_service_name", s )
|
|
else
|
|
dom:depends ("ipv6_service_name", ((_option_used(dom.option, u) == 1) and s or "?") )
|
|
user:depends("ipv6_service_name", ((_option_used(user.option, u) == 1) and s or "?") )
|
|
pw:depends ("ipv6_service_name", ((_option_used(pw.option, u) == 1) and s or "?") )
|
|
pe:depends ("ipv6_service_name", ((_option_used(pe.option, u) == 1) and s or "?") )
|
|
po:depends ("ipv6_service_name", ((_option_used(po.option, u) == 1) and s or "?") )
|
|
end
|
|
end
|
|
svc6:value("-", translate("-- custom --") )
|
|
|
|
-- IPv4/IPv6 - use_https -- ###################################################
|
|
if DDNS.has_ssl or ( ( m:get(section, "use_https") or "0" ) == "1" ) then
|
|
https = ns:taboption("basic", Flag, "use_https",
|
|
translate("Use HTTP Secure") )
|
|
https.orientation = "horizontal"
|
|
function https.cfgvalue(self, section)
|
|
local value = AbstractValue.cfgvalue(self, section)
|
|
if not DDNS.has_ssl and value == "1" then
|
|
self.description = bold_on .. font_red ..
|
|
translate("HTTPS not supported") .. font_off .. "<br />" ..
|
|
translate("please disable") .. " !" .. bold_off
|
|
else
|
|
self.description = translate("Enable secure communication with DDNS provider")
|
|
end
|
|
return value
|
|
end
|
|
function https.validate(self, value)
|
|
if (value == "1" and DDNS.has_ssl ) or value == "0" then return value end
|
|
return nil, err_tab_basic(self) .. translate("HTTPS not supported") .. " !"
|
|
end
|
|
function https.write(self, section, value)
|
|
if value == "1" then
|
|
return self.map:set(section, self.option, value)
|
|
else
|
|
self.map:del(section, "cacert")
|
|
return self.map:del(section, self.option)
|
|
end
|
|
end
|
|
end
|
|
|
|
-- IPv4/IPv6 - cacert -- ######################################################
|
|
if DDNS.has_ssl then
|
|
cert = ns:taboption("basic", Value, "cacert",
|
|
translate("Path to CA-Certificate"),
|
|
translate("directory or path/file") .. "<br />" ..
|
|
translate("or") .. bold_on .. " IGNORE " .. bold_off ..
|
|
translate("to run HTTPS without verification of server certificates (insecure)") )
|
|
cert:depends("use_https", "1")
|
|
cert.placeholder = "/etc/ssl/certs"
|
|
cert.forcewrite = true
|
|
function cert.validate(self, value)
|
|
if https:formvalue(section) ~= "1" then
|
|
return "" -- suppress validate error if NOT https
|
|
end
|
|
if value then -- otherwise errors in datatype check
|
|
if DTYP.directory(value)
|
|
or DTYP.file(value)
|
|
or (value == "IGNORE")
|
|
or (#value == 0) then
|
|
return value
|
|
end
|
|
end
|
|
return nil, err_tab_basic(self) ..
|
|
translate("file or directory not found or not 'IGNORE'") .. " !"
|
|
end
|
|
function cert.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
end
|
|
|
|
-- TAB: Advanced #################################################################################
|
|
-- IPv4 - ip_source -- ########################################################
|
|
src4 = ns:taboption("advanced", ListValue, "ipv4_source",
|
|
translate("IP address source") .. " [IPv4]",
|
|
translate("Defines the source to read systems IPv4-Address from, that will be send to the DDNS provider") )
|
|
src4:depends("use_ipv6", "0") -- IPv4 selected
|
|
src4.default = "network"
|
|
src4:value("network", translate("Network"))
|
|
src4:value("web", translate("URL"))
|
|
src4:value("interface", translate("Interface"))
|
|
src4:value("script", translate("Script"))
|
|
function src4.cfgvalue(self, section)
|
|
return DDNS.read_value(self, section, "ip_source")
|
|
end
|
|
function src4.validate(self, value)
|
|
if usev6:formvalue(section) == "1" then
|
|
return "" -- ignore on IPv6 selected
|
|
elseif not _verify_ip_source() then
|
|
return nil, err_tab_adv(self) ..
|
|
translate("can not detect local IP. Please select a different Source combination")
|
|
else
|
|
return value
|
|
end
|
|
end
|
|
function src4.write(self, section, value)
|
|
if usev6:formvalue(section) == "1" then
|
|
return true -- ignore on IPv6 selected
|
|
elseif value == "network" then
|
|
self.map:del(section, "ip_url") -- delete not need parameters
|
|
self.map:del(section, "ip_interface")
|
|
self.map:del(section, "ip_script")
|
|
elseif value == "web" then
|
|
self.map:del(section, "ip_network") -- delete not need parameters
|
|
self.map:del(section, "ip_interface")
|
|
self.map:del(section, "ip_script")
|
|
elseif value == "interface" then
|
|
self.map:del(section, "ip_network") -- delete not need parameters
|
|
self.map:del(section, "ip_url")
|
|
self.map:del(section, "ip_script")
|
|
elseif value == "script" then
|
|
self.map:del(section, "ip_network")
|
|
self.map:del(section, "ip_url") -- delete not need parameters
|
|
self.map:del(section, "ip_interface")
|
|
end
|
|
self.map:del(section, self.option) -- delete "ipv4_source" helper
|
|
return self.map:set(section, "ip_source", value) -- and write "ip_source
|
|
end
|
|
function src4.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv6 - ip_source -- ########################################################
|
|
src6 = ns:taboption("advanced", ListValue, "ipv6_source",
|
|
translate("IP address source") .. " [IPv6]",
|
|
translate("Defines the source to read systems IPv6-Address from, that will be send to the DDNS provider") )
|
|
src6:depends("use_ipv6", 1) -- IPv6 selected
|
|
src6.default = "network"
|
|
src6:value("network", translate("Network"))
|
|
src6:value("web", translate("URL"))
|
|
src6:value("interface", translate("Interface"))
|
|
src6:value("script", translate("Script"))
|
|
if not DDNS.has_ipv6 then
|
|
src6.description = err_ipv6_other
|
|
end
|
|
function src6.cfgvalue(self, section)
|
|
return DDNS.read_value(self, section, "ip_source")
|
|
end
|
|
function src6.validate(self, value)
|
|
if usev6:formvalue(section) ~= "1" then
|
|
return "" -- ignore on IPv4 selected
|
|
elseif not DDNS.has_ipv6 then
|
|
return nil, err_tab_adv(self) .. err_ipv6_plain
|
|
elseif not _verify_ip_source() then
|
|
return nil, err_tab_adv(self) ..
|
|
translate("can not detect local IP. Please select a different Source combination")
|
|
else
|
|
return value
|
|
end
|
|
end
|
|
function src6.write(self, section, value)
|
|
if usev6:formvalue(section) ~= "1" then
|
|
return true -- ignore on IPv4 selected
|
|
elseif value == "network" then
|
|
self.map:del(section, "ip_url") -- delete not need parameters
|
|
self.map:del(section, "ip_interface")
|
|
self.map:del(section, "ip_script")
|
|
elseif value == "web" then
|
|
self.map:del(section, "ip_network") -- delete not need parameters
|
|
self.map:del(section, "ip_interface")
|
|
self.map:del(section, "ip_script")
|
|
elseif value == "interface" then
|
|
self.map:del(section, "ip_network") -- delete not need parameters
|
|
self.map:del(section, "ip_url")
|
|
self.map:del(section, "ip_script")
|
|
elseif value == "script" then
|
|
self.map:del(section, "ip_network")
|
|
self.map:del(section, "ip_url") -- delete not need parameters
|
|
self.map:del(section, "ip_interface")
|
|
end
|
|
self.map:del(section, self.option) -- delete "ipv4_source" helper
|
|
return self.map:set(section, "ip_source", value) -- and write "ip_source
|
|
end
|
|
function src6.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv4 - ip_network (default "wan") -- #######################################
|
|
ipn4 = ns:taboption("advanced", ListValue, "ipv4_network",
|
|
translate("Network") .. " [IPv4]",
|
|
translate("Defines the network to read systems IPv4-Address from") )
|
|
ipn4:depends("ipv4_source", "network")
|
|
ipn4.default = "wan"
|
|
WADM.cbi_add_networks(ipn4)
|
|
function ipn4.cfgvalue(self, section)
|
|
return DDNS.read_value(self, section, "ip_network")
|
|
end
|
|
function ipn4.validate(self, value)
|
|
if usev6:formvalue(section) == "1"
|
|
or src4:formvalue(section) ~= "network" then
|
|
-- ignore if IPv6 selected OR
|
|
-- ignore everything except "network"
|
|
return ""
|
|
else
|
|
return value
|
|
end
|
|
end
|
|
function ipn4.write(self, section, value)
|
|
if usev6:formvalue(section) == "1"
|
|
or src4:formvalue(section) ~= "network" then
|
|
-- ignore if IPv6 selected OR
|
|
-- ignore everything except "network"
|
|
return true
|
|
else
|
|
-- set also as "interface" for monitoring events changes/hot-plug
|
|
self.map:set(section, "interface", value)
|
|
self.map:del(section, self.option) -- delete "ipv4_network" helper
|
|
return self.map:set(section, "ip_network", value) -- and write "ip_network"
|
|
end
|
|
end
|
|
function ipn4.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv6 - ip_network (default "wan6") -- ######################################
|
|
ipn6 = ns:taboption("advanced", ListValue, "ipv6_network",
|
|
translate("Network") .. " [IPv6]" )
|
|
ipn6:depends("ipv6_source", "network")
|
|
ipn6.default = "wan6"
|
|
WADM.cbi_add_networks(ipn6)
|
|
if DDNS.has_ipv6 then
|
|
ipn6.description = translate("Defines the network to read systems IPv6-Address from")
|
|
else
|
|
ipn6.description = err_ipv6_other
|
|
end
|
|
function ipn6.cfgvalue(self, section)
|
|
return DDNS.read_value(self, section, "ip_network")
|
|
end
|
|
function ipn6.validate(self, value)
|
|
if usev6:formvalue(section) ~= "1"
|
|
or src6:formvalue(section) ~= "network" then
|
|
-- ignore if IPv4 selected OR
|
|
-- ignore everything except "network"
|
|
return ""
|
|
elseif DDNS.has_ipv6 then
|
|
return value
|
|
else
|
|
return nil, err_tab_adv(self) .. err_ipv6_plain
|
|
end
|
|
end
|
|
function ipn6.write(self, section, value)
|
|
if usev6:formvalue(section) ~= "1"
|
|
or src6:formvalue(section) ~= "network" then
|
|
-- ignore if IPv4 selected OR
|
|
-- ignore everything except "network"
|
|
return true
|
|
else
|
|
-- set also as "interface" for monitoring events changes/hotplug
|
|
self.map:set(section, "interface", value)
|
|
self.map:del(section, self.option) -- delete "ipv6_network" helper
|
|
return self.map:set(section, "ip_network", value) -- and write "ip_network"
|
|
end
|
|
end
|
|
function ipn6.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv4 - ip_url (default "checkip.dyndns.com") -- ############################
|
|
iurl4 = ns:taboption("advanced", Value, "ipv4_url",
|
|
translate("URL to detect") .. " [IPv4]",
|
|
translate("Defines the Web page to read systems IPv4-Address from") )
|
|
iurl4:depends("ipv4_source", "web")
|
|
iurl4.default = "http://checkip.dyndns.com"
|
|
function iurl4.cfgvalue(self, section)
|
|
return DDNS.read_value(self, section, "ip_url")
|
|
end
|
|
function iurl4.validate(self, value)
|
|
if usev6:formvalue(section) == "1"
|
|
or src4:formvalue(section) ~= "web" then
|
|
-- ignore if IPv6 selected OR
|
|
-- ignore everything except "web"
|
|
return ""
|
|
elseif not value or #value == 0 then
|
|
return nil, err_tab_adv(self) .. translate("missing / required")
|
|
end
|
|
|
|
local url = DDNS.parse_url(value)
|
|
if not (url.scheme == "http" or url.scheme == "https") then
|
|
return nil, err_tab_adv(self) .. translate("must start with 'http://'")
|
|
elseif not url.host then
|
|
return nil, err_tab_adv(self) .. "<HOST> " .. translate("missing / required")
|
|
elseif SYS.call([[nslookup ]] .. url.host .. [[>/dev/null 2>&1]]) ~= 0 then
|
|
return nil, err_tab_adv(self) .. translate("can not resolve host: ") .. url.host
|
|
else
|
|
return value
|
|
end
|
|
end
|
|
function iurl4.write(self, section, value)
|
|
if usev6:formvalue(section) == "1"
|
|
or src4:formvalue(section) ~= "web" then
|
|
-- ignore if IPv6 selected OR
|
|
-- ignore everything except "web"
|
|
return true
|
|
else
|
|
self.map:del(section, self.option) -- delete "ipv4_url" helper
|
|
return self.map:set(section, "ip_url", value) -- and write "ip_url"
|
|
end
|
|
end
|
|
function iurl4.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv6 - ip_url (default "checkipv6.dyndns.com") -- ##########################
|
|
iurl6 = ns:taboption("advanced", Value, "ipv6_url",
|
|
translate("URL to detect") .. " [IPv6]" )
|
|
iurl6:depends("ipv6_source", "web")
|
|
iurl6.default = "http://checkipv6.dyndns.com"
|
|
if DDNS.has_ipv6 then
|
|
iurl6.description = translate("Defines the Web page to read systems IPv6-Address from")
|
|
else
|
|
iurl6.description = err_ipv6_other
|
|
end
|
|
function iurl6.cfgvalue(self, section)
|
|
return DDNS.read_value(self, section, "ip_url")
|
|
end
|
|
function iurl6.validate(self, value)
|
|
if usev6:formvalue(section) ~= "1"
|
|
or src6:formvalue(section) ~= "web" then
|
|
-- ignore if IPv4 selected OR
|
|
-- ignore everything except "web"
|
|
return ""
|
|
elseif not DDNS.has_ipv6 then
|
|
return nil, err_tab_adv(self) .. err_ipv6_plain
|
|
elseif not value or #value == 0 then
|
|
return nil, err_tab_adv(self) .. translate("missing / required")
|
|
end
|
|
|
|
local url = DDNS.parse_url(value)
|
|
if not (url.scheme == "http" or url.scheme == "https") then
|
|
return nil, err_tab_adv(self) .. translate("must start with 'http://'")
|
|
elseif not url.host then
|
|
return nil, err_tab_adv(self) .. "<HOST> " .. translate("missing / required")
|
|
elseif SYS.call([[nslookup ]] .. url.host .. [[>/dev/null 2>&1]]) ~= 0 then
|
|
return nil, err_tab_adv(self) .. translate("can not resolve host: ") .. url.host
|
|
else
|
|
return value
|
|
end
|
|
end
|
|
function iurl6.write(self, section, value)
|
|
if usev6:formvalue(section) ~= "1"
|
|
or src6:formvalue(section) ~= "web" then
|
|
-- ignore if IPv4 selected OR
|
|
-- ignore everything except "web"
|
|
return true
|
|
else
|
|
self.map:del(section, self.option) -- delete "ipv6_url" helper
|
|
return self.map:set(section, "ip_url", value) -- and write "ip_url"
|
|
end
|
|
end
|
|
function iurl6.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv4 + IPv6 - ip_interface -- ##############################################
|
|
ipi = ns:taboption("advanced", ListValue, "ip_interface",
|
|
translate("Interface"),
|
|
translate("Defines the interface to read systems IP-Address from") )
|
|
ipi:depends("ipv4_source", "interface") -- IPv4
|
|
ipi:depends("ipv6_source", "interface") -- or IPv6
|
|
for _, v in pairs(SYS.net.devices()) do
|
|
-- show only interface set to a network
|
|
-- and ignore loopback
|
|
net = WADM.iface_get_network(v)
|
|
if net and net ~= "loopback" then
|
|
ipi:value(v)
|
|
end
|
|
end
|
|
function ipi.validate(self, value)
|
|
local fusev6 = usev6:formvalue(section)
|
|
if (fusev6 ~= "1" and src4:formvalue(section) ~= "interface")
|
|
or (fusev6 == "1" and src6:formvalue(section) ~= "interface") then
|
|
return ""
|
|
else
|
|
return value
|
|
end
|
|
end
|
|
function ipi.write(self, section, value)
|
|
local fusev6 = usev6:formvalue(section)
|
|
if (fusev6 ~= "1" and src4:formvalue(section) ~= "interface")
|
|
or (fusev6 == "1" and src6:formvalue(section) ~= "interface") then
|
|
return true
|
|
else
|
|
-- get network from device to
|
|
-- set also as "interface" for monitoring events changes/hotplug
|
|
local net = WADM.iface_get_network(value)
|
|
self.map:set(section, "interface", net)
|
|
return self.map:set(section, self.option, value)
|
|
end
|
|
end
|
|
function ipi.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv4 + IPv6 - ip_script -- #################################################
|
|
ips = ns:taboption("advanced", Value, "ip_script",
|
|
translate("Script"),
|
|
translate("User defined script to read systems IP-Address") )
|
|
ips:depends("ipv4_source", "script") -- IPv4
|
|
ips:depends("ipv6_source", "script") -- or IPv6
|
|
ips.placeholder = "/path/to/script.sh"
|
|
function ips.validate(self, value)
|
|
local fusev6 = usev6:formvalue(section)
|
|
local split
|
|
if value then split = UTIL.split(value, " ") end
|
|
|
|
if (fusev6 ~= "1" and src4:formvalue(section) ~= "script")
|
|
or (fusev6 == "1" and src6:formvalue(section) ~= "script") then
|
|
return ""
|
|
elseif not value or not (#value > 0) or not NXFS.access(split[1], "x") then
|
|
return nil, err_tab_adv(self) ..
|
|
translate("not found or not executable - Sample: '/path/to/script.sh'")
|
|
else
|
|
return value
|
|
end
|
|
end
|
|
function ips.write(self, section, value)
|
|
local fusev6 = usev6:formvalue(section)
|
|
if (fusev6 ~= "1" and src4:formvalue(section) ~= "script")
|
|
or (fusev6 == "1" and src6:formvalue(section) ~= "script") then
|
|
return true
|
|
else
|
|
return self.map:set(section, self.option, value)
|
|
end
|
|
end
|
|
function ips.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv4 - interface - default "wan" -- ########################################
|
|
-- event network to monitor changes/hotplug/dynamic_dns_updater.sh
|
|
-- only needs to be set if "ip_source"="web" or "script"
|
|
-- if "ip_source"="network" or "interface" we use their network
|
|
eif4 = ns:taboption("advanced", ListValue, "ipv4_interface",
|
|
translate("Event Network") .. " [IPv4]",
|
|
translate("Network on which the ddns-updater scripts will be started") )
|
|
eif4:depends("ipv4_source", "web")
|
|
eif4:depends("ipv4_source", "script")
|
|
eif4.default = "wan"
|
|
WADM.cbi_add_networks(eif4)
|
|
function eif4.cfgvalue(self, section)
|
|
return DDNS.read_value(self, section, "interface")
|
|
end
|
|
function eif4.validate(self, value)
|
|
local fsrc4 = src4:formvalue(section) or ""
|
|
if usev6:formvalue(section) == "1"
|
|
or fsrc4 == "network"
|
|
or fsrc4 == "interface" then
|
|
return "" -- ignore IPv6, network, interface
|
|
else
|
|
return value
|
|
end
|
|
end
|
|
function eif4.write(self, section, value)
|
|
local fsrc4 = src4:formvalue(section) or ""
|
|
if usev6:formvalue(section) == "1"
|
|
or fsrc4 == "network"
|
|
or fsrc4 == "interface" then
|
|
return true -- ignore IPv6, network, interface
|
|
else
|
|
self.map:del(section, self.option) -- delete "ipv4_interface" helper
|
|
return self.map:set(section, "interface", value) -- and write "interface"
|
|
end
|
|
end
|
|
function eif4.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv6 - interface - default "wan6" -- #######################################
|
|
-- event network to monitor changes/hotplug
|
|
-- only needs to be set if "ip_source"="web" or "script"
|
|
-- if "ip_source"="network" or "interface" we use their network
|
|
eif6 = ns:taboption("advanced", ListValue, "ipv6_interface",
|
|
translate("Event Network") .. " [IPv6]" )
|
|
eif6:depends("ipv6_source", "web")
|
|
eif6:depends("ipv6_source", "script")
|
|
eif6.default = "wan6"
|
|
WADM.cbi_add_networks(eif6)
|
|
if not DDNS.has_ipv6 then
|
|
eif6.description = err_ipv6_other
|
|
else
|
|
eif6.description = translate("Network on which the ddns-updater scripts will be started")
|
|
end
|
|
function eif6.cfgvalue(self, section)
|
|
return DDNS.read_value(self, section, "interface")
|
|
end
|
|
function eif6.validate(self, value)
|
|
local fsrc6 = src6:formvalue(section) or ""
|
|
if usev6:formvalue(section) ~= "1"
|
|
or fsrc6 == "network"
|
|
or fsrc6 == "interface" then
|
|
return "" -- ignore IPv4, network, interface
|
|
elseif not DDNS.has_ipv6 then
|
|
return nil, err_tab_adv(self) .. err_ipv6_plain
|
|
else
|
|
return value
|
|
end
|
|
end
|
|
function eif6.write(self, section, value)
|
|
local fsrc6 = src6:formvalue(section) or ""
|
|
if usev6:formvalue(section) ~= "1"
|
|
or fsrc6 == "network"
|
|
or fsrc6 == "interface" then
|
|
return true -- ignore IPv4, network, interface
|
|
else
|
|
self.map:del(section, self.option) -- delete "ipv6_interface" helper
|
|
return self.map:set(section, "interface", value) -- and write "interface"
|
|
end
|
|
end
|
|
function eif6.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- IPv4/IPv6 - bind_network -- ################################################
|
|
if DDNS.has_bindnet or ( ( m:get(section, "bind_network") or "" ) ~= "" ) then
|
|
bnet = ns:taboption("advanced", ListValue, "bind_network",
|
|
translate("Bind Network") )
|
|
bnet:depends("ipv4_source", "web")
|
|
bnet:depends("ipv6_source", "web")
|
|
bnet.default = ""
|
|
bnet:value("", translate("-- default --"))
|
|
WADM.cbi_add_networks(bnet)
|
|
function bnet.cfgvalue(self, section)
|
|
local value = AbstractValue.cfgvalue(self, section)
|
|
if not DDNS.has_bindnet and value ~= "" then
|
|
self.description = bold_on .. font_red ..
|
|
translate("Binding to a specific network not supported") .. font_off .. "<br />" ..
|
|
translate("please set to 'default'") .. " !" .. bold_off
|
|
else
|
|
self.description = translate("OPTIONAL: Network to use for communication") ..
|
|
"<br />" .. translate("Casual users should not change this setting")
|
|
end
|
|
return value
|
|
end
|
|
function bnet.validate(self, value)
|
|
if ( (value ~= "") and DDNS.has_bindnet ) or (value == "") then return value end
|
|
return nil, err_tab_adv(self) .. translate("Binding to a specific network not supported") .. " !"
|
|
end
|
|
function bnet.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
end
|
|
|
|
-- IPv4 + IPv6 - force_ipversion -- ###########################################
|
|
-- optional to force wget/curl and host to use only selected IP version
|
|
-- command parameter "-4" or "-6"
|
|
if DDNS.has_forceip or ( ( m:get(section, "force_ipversion") or "0" ) ~= "0" ) then
|
|
fipv = ns:taboption("advanced", Flag, "force_ipversion",
|
|
translate("Force IP Version") )
|
|
fipv.orientation = "horizontal"
|
|
function fipv.cfgvalue(self, section)
|
|
local value = AbstractValue.cfgvalue(self, section)
|
|
if not DDNS.has_forceip and value ~= "0" then
|
|
self.description = bold_on .. font_red ..
|
|
translate("Force IP Version not supported") .. font_off .. "<br />" ..
|
|
translate("please disable") .. " !" .. bold_off
|
|
else
|
|
self.description = translate("OPTIONAL: Force the usage of pure IPv4/IPv6 only communication.")
|
|
end
|
|
return value
|
|
end
|
|
function fipv.validate(self, value)
|
|
if (value == "1" and DDNS.has_forceip) or value == "0" then return value end
|
|
return nil, err_tab_adv(self) .. translate("Force IP Version not supported")
|
|
end
|
|
end
|
|
|
|
-- IPv4 + IPv6 - dns_server -- ################################################
|
|
-- optional DNS Server to use resolving my IP
|
|
if DDNS.has_dnsserver or ( ( m:get(section, "dns_server") or "" ) ~= "" ) then
|
|
dns = ns:taboption("advanced", Value, "dns_server",
|
|
translate("DNS-Server"),
|
|
translate("OPTIONAL: Use non-default DNS-Server to detect 'Registered IP'.") .. "<br />" ..
|
|
translate("Format: IP or FQDN"))
|
|
dns.placeholder = "mydns.lan"
|
|
function dns.validate(self, value)
|
|
-- if .datatype is set, then it is checked before calling this function
|
|
if not value or (#value == 0) then
|
|
return "" -- ignore on empty
|
|
elseif not DDNS.has_dnsserver then
|
|
return nil, err_tab_adv(self) .. translate("Specifying a DNS-Server is not supported")
|
|
elseif not DTYP.host(value) then
|
|
return nil, err_tab_adv(self) .. translate("use hostname, FQDN, IPv4- or IPv6-Address")
|
|
else
|
|
local ipv6 = usev6:formvalue(section) or "0"
|
|
local force = fipv:formvalue(section) or "0"
|
|
local command = [[/usr/lib/ddns/dynamic_dns_lucihelper.sh verify_dns ]] ..
|
|
value .. [[ ]] .. ipv6 .. [[ ]] .. force
|
|
local ret = SYS.call(command)
|
|
if ret == 0 then return value -- everything OK
|
|
elseif ret == 2 then return nil, err_tab_adv(self) .. translate("nslookup can not resolve host")
|
|
elseif ret == 3 then return nil, err_tab_adv(self) .. translate("nc (netcat) can not connect")
|
|
elseif ret == 4 then return nil, err_tab_adv(self) .. translate("Forced IP Version don't matched")
|
|
else return nil, err_tab_adv(self) .. translate("unspecific error")
|
|
end
|
|
end
|
|
end
|
|
function dns.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
end
|
|
|
|
-- IPv4 + IPv6 - force_dnstcp -- ##############################################
|
|
if DDNS.has_bindhost or ( ( m:get(section, "force_dnstcp") or "0" ) ~= "0" ) then
|
|
tcp = ns:taboption("advanced", Flag, "force_dnstcp",
|
|
translate("Force TCP on DNS") )
|
|
tcp.orientation = "horizontal"
|
|
function tcp.cfgvalue(self, section)
|
|
local value = AbstractValue.cfgvalue(self, section)
|
|
if not DDNS.has_bindhost and value ~= "0" then
|
|
self.description = bold_on .. font_red ..
|
|
translate("DNS requests via TCP not supported") .. font_off .. "<br />" ..
|
|
translate("please disable") .. " !" .. bold_off
|
|
else
|
|
self.description = translate("OPTIONAL: Force the use of TCP instead of default UDP on DNS requests.")
|
|
end
|
|
return value
|
|
end
|
|
function tcp.validate(self, value)
|
|
if (value == "1" and DDNS.has_bindhost ) or value == "0" then
|
|
return value
|
|
end
|
|
return nil, err_tab_adv(self) .. translate("DNS requests via TCP not supported")
|
|
end
|
|
end
|
|
|
|
-- IPv4 + IPv6 - proxy -- #####################################################
|
|
-- optional Proxy to use for http/https requests [user:password@]proxyhost[:port]
|
|
if DDNS.has_proxy or ( ( m:get(section, "proxy") or "" ) ~= "" ) then
|
|
pxy = ns:taboption("advanced", Value, "proxy",
|
|
translate("PROXY-Server") )
|
|
pxy.placeholder="user:password@myproxy.lan:8080"
|
|
function pxy.cfgvalue(self, section)
|
|
local value = AbstractValue.cfgvalue(self, section)
|
|
if not DDNS.has_proxy and value ~= "" then
|
|
self.description = bold_on .. font_red ..
|
|
translate("PROXY-Server not supported") .. font_off .. "<br />" ..
|
|
translate("please remove entry") .. "!" .. bold_off
|
|
else
|
|
self.description = translate("OPTIONAL: Proxy-Server for detection and updates.") .. "<br />" ..
|
|
translate("Format") .. ": " .. bold_on .. "[user:password@]proxyhost:port" .. bold_off .. "<br />" ..
|
|
translate("IPv6 address must be given in square brackets") .. ": " ..
|
|
bold_on .. " [2001:db8::1]:8080" .. bold_off
|
|
end
|
|
return value
|
|
end
|
|
function pxy.validate(self, value)
|
|
-- if .datatype is set, then it is checked before calling this function
|
|
if not value or (#value == 0) then
|
|
return "" -- ignore on empty
|
|
elseif DDNS.has_proxy then
|
|
local ipv6 = usev6:formvalue(section) or "0"
|
|
local force = fipv:formvalue(section) or "0"
|
|
local command = [[/usr/lib/ddns/dynamic_dns_lucihelper.sh verify_proxy ]] ..
|
|
value .. [[ ]] .. ipv6 .. [[ ]] .. force
|
|
local ret = SYS.call(command)
|
|
if ret == 0 then return value
|
|
elseif ret == 2 then return nil, err_tab_adv(self) .. translate("nslookup can not resolve host")
|
|
elseif ret == 3 then return nil, err_tab_adv(self) .. translate("nc (netcat) can not connect")
|
|
elseif ret == 4 then return nil, err_tab_adv(self) .. translate("Forced IP Version don't matched")
|
|
elseif ret == 5 then return nil, err_tab_adv(self) .. translate("proxy port missing")
|
|
else return nil, err_tab_adv(self) .. translate("unspecific error")
|
|
end
|
|
else
|
|
return nil, err_tab_adv(self) .. translate("PROXY-Server not supported")
|
|
end
|
|
end
|
|
function pxy.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
end
|
|
|
|
-- use_syslog -- ##############################################################
|
|
slog = ns:taboption("advanced", ListValue, "use_syslog",
|
|
translate("Log to syslog"),
|
|
translate("Writes log messages to syslog. Critical Errors will always be written to syslog.") )
|
|
slog.default = "2"
|
|
slog:value("0", translate("No logging"))
|
|
slog:value("1", translate("Info"))
|
|
slog:value("2", translate("Notice"))
|
|
slog:value("3", translate("Warning"))
|
|
slog:value("4", translate("Error"))
|
|
function slog.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- use_logfile -- #############################################################
|
|
logf = ns:taboption("advanced", Flag, "use_logfile",
|
|
translate("Log to file"),
|
|
translate("Writes detailed messages to log file. File will be truncated automatically.") .. "<br />" ..
|
|
translate("File") .. [[: "]] .. log_dir .. [[/]] .. section .. [[.log"]] )
|
|
logf.orientation = "horizontal"
|
|
logf.default = "1" -- if not defined write to log by default
|
|
|
|
-- TAB: Timer ####################################################################################
|
|
-- check_interval -- ##########################################################
|
|
ci = ns:taboption("timer", Value, "check_interval",
|
|
translate("Check Interval") )
|
|
ci.template = "ddns/detail_value"
|
|
ci.default = "10"
|
|
function ci.validate(self, value)
|
|
if not DTYP.uinteger(value)
|
|
or tonumber(value) < 1 then
|
|
return nil, err_tab_timer(self) .. translate("minimum value 5 minutes == 300 seconds")
|
|
end
|
|
|
|
local secs = DDNS.calc_seconds(value, cu:formvalue(section))
|
|
if secs >= 300 then
|
|
return value
|
|
else
|
|
return nil, err_tab_timer(self) .. translate("minimum value 5 minutes == 300 seconds")
|
|
end
|
|
end
|
|
function ci.write(self, section, value)
|
|
-- remove when default
|
|
local secs = DDNS.calc_seconds(value, cu:formvalue(section))
|
|
if secs ~= 600 then --default 10 minutes
|
|
return self.map:set(section, self.option, value)
|
|
else
|
|
self.map:del(section, "check_unit")
|
|
return self.map:del(section, self.option)
|
|
end
|
|
end
|
|
function ci.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- check_unit -- ##############################################################
|
|
cu = ns:taboption("timer", ListValue, "check_unit", "not displayed, but needed otherwise error",
|
|
translate("Interval to check for changed IP" .. "<br />" ..
|
|
"Values below 5 minutes == 300 seconds are not supported") )
|
|
cu.template = "ddns/detail_lvalue"
|
|
cu.default = "minutes"
|
|
cu:value("seconds", translate("seconds"))
|
|
cu:value("minutes", translate("minutes"))
|
|
cu:value("hours", translate("hours"))
|
|
--cu:value("days", translate("days"))
|
|
function cu.write(self, section, value)
|
|
-- remove when default
|
|
local secs = DDNS.calc_seconds(ci:formvalue(section), value)
|
|
if secs ~= 600 then --default 10 minutes
|
|
return self.map:set(section, self.option, value)
|
|
else
|
|
return true
|
|
end
|
|
end
|
|
function cu.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- force_interval (modified) -- ###############################################
|
|
fi = ns:taboption("timer", Value, "force_interval",
|
|
translate("Force Interval") )
|
|
fi.template = "ddns/detail_value"
|
|
fi.default = "72" -- see dynamic_dns_updater.sh script
|
|
--fi.rmempty = false -- validate ourselves for translatable error messages
|
|
function fi.validate(self, value)
|
|
if not DTYP.uinteger(value)
|
|
or tonumber(value) < 0 then
|
|
return nil, err_tab_timer(self) .. translate("minimum value '0'")
|
|
end
|
|
|
|
local force_s = DDNS.calc_seconds(value, fu:formvalue(section))
|
|
if force_s == 0 then
|
|
return value
|
|
end
|
|
|
|
local ci_value = ci:formvalue(section)
|
|
if not DTYP.uinteger(ci_value) then
|
|
return "" -- ignore because error in check_interval above
|
|
end
|
|
|
|
local check_s = DDNS.calc_seconds(ci_value, cu:formvalue(section))
|
|
if force_s >= check_s then
|
|
return value
|
|
end
|
|
|
|
return nil, err_tab_timer(self) .. translate("must be greater or equal 'Check Interval'")
|
|
end
|
|
function fi.write(self, section, value)
|
|
-- simulate rmempty=true remove default
|
|
local secs = DDNS.calc_seconds(value, fu:formvalue(section))
|
|
if secs ~= 259200 then --default 72 hours == 3 days
|
|
return self.map:set(section, self.option, value)
|
|
else
|
|
self.map:del(section, "force_unit")
|
|
return self.map:del(section, self.option)
|
|
end
|
|
end
|
|
function fi.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- force_unit -- ##############################################################
|
|
fu = ns:taboption("timer", ListValue, "force_unit", "not displayed, but needed otherwise error",
|
|
translate("Interval to force updates send to DDNS Provider" .. "<br />" ..
|
|
"Setting this parameter to 0 will force the script to only run once" .. "<br />" ..
|
|
"Values lower 'Check Interval' except '0' are not supported") )
|
|
fu.template = "ddns/detail_lvalue"
|
|
fu.default = "hours"
|
|
--fu.rmempty = false -- want to control write process
|
|
--fu:value("seconds", translate("seconds"))
|
|
fu:value("minutes", translate("minutes"))
|
|
fu:value("hours", translate("hours"))
|
|
fu:value("days", translate("days"))
|
|
function fu.write(self, section, value)
|
|
-- simulate rmempty=true remove default
|
|
local secs = DDNS.calc_seconds(fi:formvalue(section), value)
|
|
if secs ~= 259200 and secs ~= 0 then --default 72 hours == 3 days
|
|
return self.map:set(section, self.option, value)
|
|
else
|
|
return true
|
|
end
|
|
end
|
|
function fu.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- retry_count -- #############################################################
|
|
rc = ns:taboption("timer", Value, "retry_count")
|
|
rc.title = translate("Error Retry Counter")
|
|
rc.description = translate("On Error the script will stop execution after given number of retrys")
|
|
.. "<br />"
|
|
.. translate("The default setting of '0' will retry infinite.")
|
|
rc.default = "0"
|
|
function rc.validate(self, value)
|
|
if not DTYP.uinteger(value) then
|
|
return nil, err_tab_timer(self) .. translate("minimum value '0'")
|
|
else
|
|
return value
|
|
end
|
|
end
|
|
function rc.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- retry_interval -- ##########################################################
|
|
ri = ns:taboption("timer", Value, "retry_interval",
|
|
translate("Error Retry Interval") )
|
|
ri.template = "ddns/detail_value"
|
|
ri.default = "60"
|
|
function ri.validate(self, value)
|
|
if not DTYP.uinteger(value)
|
|
or tonumber(value) < 1 then
|
|
return nil, err_tab_timer(self) .. translate("minimum value '1'")
|
|
else
|
|
return value
|
|
end
|
|
end
|
|
function ri.write(self, section, value)
|
|
-- simulate rmempty=true remove default
|
|
local secs = DDNS.calc_seconds(value, ru:formvalue(section))
|
|
if secs ~= 60 then --default 60seconds
|
|
return self.map:set(section, self.option, value)
|
|
else
|
|
self.map:del(section, "retry_unit")
|
|
return self.map:del(section, self.option)
|
|
end
|
|
end
|
|
function ri.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- retry_unit -- ##############################################################
|
|
ru = ns:taboption("timer", ListValue, "retry_unit", "not displayed, but needed otherwise error",
|
|
translate("On Error the script will retry the failed action after given time") )
|
|
ru.template = "ddns/detail_lvalue"
|
|
ru.default = "seconds"
|
|
--ru.rmempty = false -- want to control write process
|
|
ru:value("seconds", translate("seconds"))
|
|
ru:value("minutes", translate("minutes"))
|
|
--ru:value("hours", translate("hours"))
|
|
--ru:value("days", translate("days"))
|
|
function ru.write(self, section, value)
|
|
-- simulate rmempty=true remove default
|
|
local secs = DDNS.calc_seconds(ri:formvalue(section), value)
|
|
if secs ~= 60 then --default 60seconds
|
|
return self.map:set(section, self.option, value)
|
|
else
|
|
return true -- will be deleted by retry_interval
|
|
end
|
|
end
|
|
function ru.parse(self, section, novld)
|
|
DDNS.value_parse(self, section, novld)
|
|
end
|
|
|
|
-- TAB: LogView ##################################################################################
|
|
lv = ns:taboption("logview", DummyValue, "_logview")
|
|
lv.template = "ddns/detail_logview"
|
|
lv.inputtitle = translate("Read / Reread log file")
|
|
lv.rows = 50
|
|
function lv.cfgvalue(self, section)
|
|
local lfile=log_dir .. "/" .. section .. ".log"
|
|
if NXFS.access(lfile) then
|
|
return lfile .. "\n" .. translate("Please press [Read] button")
|
|
end
|
|
return lfile .. "\n" .. translate("File not found or empty")
|
|
end
|
|
|
|
return m
|