applications/luci-ddns/luasrc/model/cbi/ddns/detail.lua

   1 --[[
   2 LuCI - Lua Configuration Interface
   3
   4 A lot of code taken from original ddns.lua cbi-model made by
   5 Copyright 2008 Steven Barth <steven@midlink.org>
   6 Copyright 2008 Jo-Philipp Wich <xm@leipzig.freifunk.net>
   7 Copyright 2013 Manuel Munz <freifunk at somakoma dot de>
   8
   9 modified to use as detail page together with new overview page and
  10 extensions for IPv6, HTTPS settings, syslog and log settings,
  11 optional Proxy-Support, optional DNS-Server, optional use of TCP requests to DNS server,
  12 optional force of IP protocol version usage
  13 Copyright 2014 Christian Schoenebeck <christian dot schoenebeck at gmail dot com>
  14
  15 Licensed under the Apache License, Version 2.0 (the "License");
  16 you may not use this file except in compliance with the License.
  17 You may obtain a copy of the License at
  18
  19         http://www.apache.org/licenses/LICENSE-2.0
  20
  21 $Id$
  22 ]]--
  23
  24 local NX   = require "nixio"
  25 local FS   = require "nixio.fs"
  26 local SYS  = require "luci.sys"
  27 local UTIL = require "luci.util"
  28 local DISP = require "luci.dispatcher"
  29 local WADM = require "luci.tools.webadmin"
  30 local DTYP = require "luci.cbi.datatypes"
  31 local DDNS = require "luci.tools.ddns"          -- ddns multiused functions
  32
  33 -- takeover arguments -- #######################################################
  34 section = arg[1]
  35
  36 -- check supported options -- ##################################################
  37 -- saved to local vars here because doing multiple os calls slow down the system
  38 has_ipv6   = DDNS.check_ipv6()  -- IPv6 support
  39 has_ssl    = DDNS.check_ssl()   -- HTTPS support
  40 has_proxy  = DDNS.check_proxy() -- Proxy support
  41 has_dnstcp = DDNS.check_bind_host()     -- DNS TCP support
  42 has_force  = has_ssl and has_dnstcp             -- Force IP Protocoll
  43
  44 -- html constants -- ###########################################################
  45 font_red = "<font color='red'>"
  46 font_off = "</font>"
  47 bold_on  = "<strong>"
  48 bold_off = "</strong>"
  49
  50 -- error text constants -- #####################################################
  51 err_ipv6_plain = translate("IPv6 not supported") .. " - " ..
  52                 translate("please select 'IPv4' address version")
  53 err_ipv6_basic = bold_on ..
  54                         font_red ..
  55                                 translate("IPv6 not supported") ..
  56                         font_off ..
  57                         "<br />" .. translate("please select 'IPv4' address version") ..
  58                  bold_off
  59 err_ipv6_other = bold_on ..
  60                         font_red ..
  61                                 translate("IPv6 not supported") ..
  62                         font_off ..
  63                         "<br />" .. translate("please select 'IPv4' address version in") .. " " ..
  64                         [[<a href="]] ..
  65                                         DISP.build_url("admin", "services", "ddns", "detail", section) ..
  66                                         "?tab.dns." .. section .. "=basic" ..
  67                                 [[">]] ..
  68                                 translate("Basic Settings") ..
  69                         [[</a>]] ..
  70                  bold_off
  71
  72 function err_tab_basic(self)
  73         return translate("Basic Settings") .. " - " .. self.title .. ": "
  74 end
  75 function err_tab_adv(self)
  76         return translate("Advanced Settings") .. " - " .. self.title .. ": "
  77 end
  78 function err_tab_timer(self)
  79         return translate("Timer Settings") .. " - " .. self.title .. ": "
  80 end
  81
  82 -- function to verify settings around ip_source
  83 -- will use dynamic_dns_lucihelper to check if
  84 -- local IP can be read
  85 local function _verify_ip_source()
  86         -- section is globally defined here be calling agrument (see above)
  87         local _network   = "-"
  88         local _url       = "-"
  89         local _interface = "-"
  90         local _script    = "-"
  91         local _proxy     = ""
  92
  93         local _ipv6   = usev6:formvalue(section)
  94         local _source = (_ipv6 == "1")
  95                         and src6:formvalue(section)
  96                         or  src4:formvalue(section)
  97         if _source == "network" then
  98                 _network = (_ipv6 == "1")
  99                         and ipn6:formvalue(section)
 100                         or  ipn4:formvalue(section)
 101         elseif _source == "web" then
 102                 _url = (_ipv6 == "1")
 103                         and iurl6:formvalue(section)
 104                         or  iurl4:formvalue(section)
 105                 -- proxy only needed for checking url
 106                 _proxy = (pxy) and pxy:formvalue(section) or ""
 107         elseif _source == "interface" then
 108                 _interface = ipi:formvalue(section)
 109         elseif _source == "script" then
 110                 _script = ips:formvalue(section)
 111         end
 112
 113         local command = [[/usr/lib/ddns/dynamic_dns_lucihelper.sh get_local_ip ]] ..
 114                 _ipv6 .. [[ ]] .. _source .. [[ ]] .. _network .. [[ ]] ..
 115                 _url .. [[ ]] .. _interface .. [[ ]] .. _script.. [[ ]] .. _proxy
 116         local ret = SYS.call(command)
 117
 118         if ret == 0 then
 119                 return true     -- valid
 120         else
 121                 return nil      -- invalid
 122         end
 123 end
 124
 125 -- cbi-map definition -- #######################################################
 126 m = Map("ddns")
 127
 128 -- first need to close <a> from cbi map template our <a> closed by template
 129 m.title = [[</a><a href="]] .. DISP.build_url("admin", "services", "ddns") .. [[">]] ..
 130                 translate("Dynamic DNS")
 131
 132 m.description = translate("Dynamic DNS allows that your router can be reached with " ..
 133                         "a fixed hostname while having a dynamically changing " ..
 134                         "IP address.")
 135
 136 m.redirect = DISP.build_url("admin", "services", "ddns")
 137
 138 m.on_after_commit = function(self)
 139         if self.changed then    -- changes ?
 140                 local pid = DDNS.get_pid(section)
 141                 if pid > 0 then -- running ?
 142                         local tmp = NX.kill(pid, 1)     -- send SIGHUP
 143                 end
 144         end
 145 end
 146
 147 -- read application settings -- ################################################
 148 -- date format; if not set use ISO format
 149 date_format = m.uci:get(m.config, "global", "date_format") or "%F %R"
 150 -- log directory
 151 log_dir = m.uci:get(m.config, "global", "log_dir") or "/var/log/ddns"
 152
 153 -- cbi-section definition -- ###################################################
 154 ns = m:section( NamedSection, section, "service",
 155         translate("Details for") .. ([[: <strong>%s</strong>]] % section),
 156         translate("Configure here the details for selected Dynamic DNS service") )
 157 ns.instance = section   -- arg [1]
 158 ns:tab("basic", translate("Basic Settings"), nil )
 159 ns:tab("advanced", translate("Advanced Settings"), nil )
 160 ns:tab("timer", translate("Timer Settings"), nil )
 161 ns:tab("logview", translate("Log File Viewer"), nil )
 162
 163 -- TAB: Basic  #####################################################################################
 164 -- enabled  -- #################################################################
 165 en = ns:taboption("basic", Flag, "enabled",
 166         translate("Enabled"),
 167         translate("If this service section is disabled it could not be started." .. "<br />" ..
 168                 "Neither from LuCI interface nor from console") )
 169 en.orientation = "horizontal"
 170 function en.parse(self, section)
 171         DDNS.flag_parse(self, section)
 172 end
 173
 174 -- use_ipv6 (NEW)  -- ##########################################################
 175 usev6 = ns:taboption("basic", ListValue, "use_ipv6",
 176         translate("IP address version"),
 177         translate("Defines which IP address 'IPv4/IPv6' is send to the DDNS provider") )
 178 usev6.widget  = "radio"
 179 usev6.default = "0"
 180 usev6:value("0", translate("IPv4-Address") )
 181 function usev6.cfgvalue(self, section)
 182         local value = AbstractValue.cfgvalue(self, section)
 183         if has_ipv6 or (value == "1" and not has_ipv6) then
 184                 self:value("1", translate("IPv6-Address") )
 185         end
 186         if value == "1" and not has_ipv6 then
 187                 self.description = err_ipv6_basic
 188         end
 189         return value
 190 end
 191 function usev6.validate(self, value)
 192         if (value == "1" and has_ipv6) or value == "0" then
 193                 return value
 194         end
 195         return nil, err_tab_basic(self) .. err_ipv6_plain
 196 end
 197 function usev6.write(self, section, value)
 198         if value == "0" then    -- force rmempty
 199                 return self.map:del(section, self.option)
 200         else
 201                 return self.map:set(section, self.option, value)
 202         end
 203 end
 204
 205 -- IPv4 - service_name -- ######################################################
 206 svc4 = ns:taboption("basic", ListValue, "ipv4_service_name",
 207         translate("DDNS Service provider") .. " [IPv4]" )
 208 svc4.default    = "-"
 209 svc4:depends("use_ipv6", "0")   -- only show on IPv4
 210
 211 local services4 = { }
 212 local fd4 = io.open("/usr/lib/ddns/services", "r")
 213
 214 if fd4 then
 215         local ln
 216         repeat
 217                 ln = fd4:read("*l")
 218                 local s = ln and ln:match('^%s*"([^"]+)"')
 219                 if s then services4[#services4+1] = s end
 220         until not ln
 221         fd4:close()
 222 end
 223
 224 for _, v in UTIL.vspairs(services4) do svc4:value(v) end
 225 svc4:value("-", translate("-- custom --") )
 226
 227 function svc4.cfgvalue(self, section)
 228         local v =  DDNS.read_value(self, section, "service_name")
 229         if not v or #v == 0 then
 230                 return "-"
 231         else
 232                 return v
 233         end
 234 end
 235 function svc4.validate(self, value)
 236         if usev6:formvalue(section) == "0" then -- do only on IPv4
 237                 return value
 238         else
 239                 return ""       -- supress validate error
 240         end
 241 end
 242 function svc4.write(self, section, value)
 243         if usev6:formvalue(section) == "0" then -- do only IPv4 here
 244                 self.map:del(section, self.option)      -- to be shure
 245                 if value ~= "-" then                    -- and write "service_name
 246                         self.map:del(section, "update_url")     -- delete update_url
 247                         return self.map:set(section, "service_name", value)
 248                 else
 249                         return self.map:del(section, "service_name")
 250                 end
 251         end
 252 end
 253
 254 -- IPv6 - service_name -- ######################################################
 255 svc6 = ns:taboption("basic", ListValue, "ipv6_service_name",
 256         translate("DDNS Service provider") .. " [IPv6]" )
 257 svc6.default    = "-"
 258 svc6:depends("use_ipv6", "1")   -- only show on IPv6
 259 if not has_ipv6 then
 260         svc6.description = err_ipv6_basic
 261 end
 262
 263 local services6 = { }
 264 local fd6 = io.open("/usr/lib/ddns/services_ipv6", "r")
 265
 266 if fd6 then
 267         local ln
 268         repeat
 269                 ln = fd6:read("*l")
 270                 local s = ln and ln:match('^%s*"([^"]+)"')
 271                 if s then services6[#services6+1] = s end
 272         until not ln
 273         fd6:close()
 274 end
 275
 276 for _, v in UTIL.vspairs(services6) do svc6:value(v) end
 277 svc6:value("-", translate("-- custom --") )
 278
 279 function svc6.cfgvalue(self, section)
 280         local v =  DDNS.read_value(self, section, "service_name")
 281         if not v or #v == 0 then
 282                 return "-"
 283         else
 284                 return v
 285         end
 286 end
 287 function svc6.validate(self, value)
 288         if usev6:formvalue(section) == "1" then -- do only on IPv6
 289                 if has_ipv6 then return value end
 290                 return nil, err_tab_basic(self) .. err_ipv6_plain
 291         else
 292                 return ""       -- supress validate error
 293         end
 294 end
 295 function svc6.write(self, section, value)
 296         if usev6:formvalue(section) == "1" then -- do only when IPv6
 297                 self.map:del(section, self.option)      -- delete "ipv6_service_name" helper
 298                 if value ~= "-" then                    -- and write "service_name
 299                         self.map:del(section, "update_url")     -- delete update_url
 300                         return self.map:set(section, "service_name", value)
 301                 else
 302                         return self.map:del(section, "service_name")
 303                 end
 304         end
 305 end
 306
 307 -- IPv4/IPv6 - update_url -- ###################################################
 308 uurl = ns:taboption("basic", Value, "update_url",
 309         translate("Custom update-URL"),
 310         translate("Update URL to be used for updating your DDNS Provider." .. "<br />" ..
 311                 "Follow instructions you will find on their WEB page.") )
 312 uurl:depends("ipv4_service_name", "-")
 313 uurl:depends("ipv6_service_name", "-")
 314 function uurl.validate(self, value)
 315         local script = ush:formvalue(section)
 316
 317         if (usev6:formvalue(section) == "0" and svc4:formvalue(section) ~= "-") or
 318            (usev6:formvalue(section) == "1" and svc6:formvalue(section) ~= "-") then
 319                 return ""       -- suppress validate error
 320         elseif not value then
 321                 if not script or not (#script > 0) then
 322                         return nil, err_tab_basic(self) .. translate("missing / required")
 323                 else
 324                         return ""       -- suppress validate error / update_script is given
 325                 end
 326         elseif (#script > 0) then
 327                 return nil, err_tab_basic(self) .. translate("either url or script could be set")
 328         end
 329
 330         local url = DDNS.parse_url(value)
 331         if not url.scheme == "http" then
 332                 return nil, err_tab_basic(self) .. translate("must start with 'http://'")
 333         elseif not url.query then
 334                 return nil, err_tab_basic(self) .. "<QUERY> " .. translate("missing / required")
 335         elseif not url.host then
 336                 return nil, err_tab_basic(self) .. "<HOST> " .. translate("missing / required")
 337         elseif SYS.call([[nslookup ]] .. url.host .. [[ >/dev/null 2>&1]]) ~= 0 then
 338                 return nil, err_tab_basic(self) .. translate("can not resolve host: ") .. url.host
 339         end
 340
 341         return value
 342 end
 343
 344 -- IPv4/IPv6 - update_script -- ################################################
 345 ush = ns:taboption("basic", Value, "update_script",
 346         translate("Custom update-script"),
 347         translate("Custom update script to be used for updating your DDNS Provider.") )
 348 ush:depends("ipv4_service_name", "-")
 349 ush:depends("ipv6_service_name", "-")
 350 function ush.validate(self, value)
 351         local url = uurl:formvalue(section)
 352
 353         if (usev6:formvalue(section) == "0" and svc4:formvalue(section) ~= "-") or
 354            (usev6:formvalue(section) == "1" and svc6:formvalue(section) ~= "-") then
 355                 return ""       -- suppress validate error
 356         elseif not value then
 357                 if not url or not (#url > 0) then
 358                         return nil, err_tab_basic(self) .. translate("missing / required")
 359                 else
 360                         return ""       -- suppress validate error / update_url is given
 361                 end
 362         elseif (#url > 0) then
 363                 return nil, err_tab_basic(self) .. translate("either url or script could be set")
 364         elseif not FS.access(value) then
 365                 return nil, err_tab_basic(self) .. translate("File not found")
 366         end
 367         return value
 368 end
 369
 370 -- IPv4/IPv6 - domain -- #######################################################
 371 dom = ns:taboption("basic", Value, "domain",
 372                 translate("Hostname/Domain"),
 373                 translate("Replaces [DOMAIN] in Update-URL") )
 374 dom.rmempty     = false
 375 dom.placeholder = "mypersonaldomain.dyndns.org"
 376 function dom.validate(self, value)
 377         if not value
 378         or not (#value > 0)
 379         or not DTYP.hostname(value) then
 380                 return nil, err_tab_basic(self) ..      translate("invalid - Sample") .. ": 'mypersonaldomain.dyndns.org'"
 381         else
 382                 return value
 383         end
 384 end
 385
 386 -- IPv4/IPv6 - username -- #####################################################
 387 user = ns:taboption("basic", Value, "username",
 388                 translate("Username"),
 389                 translate("Replaces [USERNAME] in Update-URL") )
 390 user.rmempty = false
 391 function user.validate(self, value)
 392         if not value then
 393                 return nil, err_tab_basic(self) .. translate("missing / required")
 394         end
 395         return value
 396 end
 397
 398 -- IPv4/IPv6 - password -- #####################################################
 399 pw = ns:taboption("basic", Value, "password",
 400                 translate("Password"),
 401                 translate("Replaces [PASSWORD] in Update-URL") )
 402 pw.rmempty  = false
 403 pw.password = true
 404 function pw.validate(self, value)
 405         if not value then
 406                 return nil, err_tab_basic(self) .. translate("missing / required")
 407         end
 408         return value
 409 end
 410
 411 -- IPv4/IPv6 - use_https (NEW) -- ##############################################
 412 if has_ssl or ( ( m:get(section, "use_https") or "0" ) == "1" ) then
 413         https = ns:taboption("basic", Flag, "use_https",
 414                 translate("Use HTTP Secure") )
 415         https.orientation = "horizontal"
 416         https.rmempty = false -- force validate function
 417         function https.cfgvalue(self, section)
 418                 local value = AbstractValue.cfgvalue(self, section)
 419                 if not has_ssl and value == "1" then
 420                         self.description = bold_on .. font_red ..
 421                                 translate("HTTPS not supported") .. font_off .. "<br />" ..
 422                                 translate("please disable") .. " !" .. bold_off
 423                 else
 424                         self.description = translate("Enable secure communication with DDNS provider")
 425                 end
 426                 return value
 427         end
 428         function https.parse(self, section)
 429                 DDNS.flag_parse(self, section)
 430         end
 431         function https.validate(self, value)
 432                 if (value == "1" and has_ssl ) or value == "0" then return value end
 433                 return nil, err_tab_basic(self) .. translate("HTTPS not supported") .. " !"
 434         end
 435         function https.write(self, section, value)
 436                 if value == "1" then
 437                         return self.map:set(section, self.option, value)
 438                 else
 439                         self.map:del(section, "cacert")
 440                         return self.map:del(section, self.option)
 441                 end
 442         end
 443 end
 444
 445 -- IPv4/IPv6 - cacert (NEW) -- #################################################
 446 if has_ssl then
 447         cert = ns:taboption("basic", Value, "cacert",
 448                 translate("Path to CA-Certificate"),
 449                 translate("directory or path/file") .. "<br />" ..
 450                 translate("or") .. bold_on .. " IGNORE " .. bold_off ..
 451                 translate("to run HTTPS without verification of server certificates (insecure)") )
 452         cert:depends("use_https", "1")
 453         cert.rmempty = false -- force validate function
 454         cert.default = "/etc/ssl/certs"
 455         function cert.validate(self, value)
 456                 if https:formvalue(section) == "0" then
 457                         return ""       -- supress validate error if NOT https
 458                 end
 459                 if value then   -- otherwise errors in datatype check
 460                         if DTYP.directory(value)
 461                         or DTYP.file(value)
 462                         or value == "IGNORE" then
 463                                 return value
 464                         end
 465                 end
 466                 return nil, err_tab_basic(self) ..
 467                         translate("file or directory not found or not 'IGNORE'") .. " !"
 468         end
 469 end
 470
 471 -- use_syslog -- ###############################################################
 472 slog = ns:taboption("basic", ListValue, "use_syslog",
 473         translate("Log to syslog"),
 474         translate("Writes log messages to syslog. Critical Errors will always be written to syslog.") )
 475 slog.default = "0"
 476 slog:value("0", translate("No logging"))
 477 slog:value("1", translate("Info"))
 478 slog:value("2", translate("Notice"))
 479 slog:value("3", translate("Warning"))
 480 slog:value("4", translate("Error"))
 481
 482 -- use_logfile (NEW) -- ########################################################
 483 logf = ns:taboption("basic", Flag, "use_logfile",
 484         translate("Log to file"),
 485         translate("Writes detailed messages to log file. File will be truncated automatically.") .. "<br />" ..
 486         translate("File") .. [[: "]] .. log_dir .. [[/]] .. section .. [[.log"]] )
 487 logf.orientation = "horizontal"
 488 logf.rmempty = false    -- we want to save in /etc/config/ddns file on "0" because
 489 logf.default = "1"      -- if not defined write to log by default
 490 function logf.parse(self, section)
 491         DDNS.flag_parse(self, section)
 492 end
 493
 494 -- TAB: Advanced  ##################################################################################
 495 -- IPv4 - ip_source -- #########################################################
 496 src4 = ns:taboption("advanced", ListValue, "ipv4_source",
 497         translate("IP address source") .. " [IPv4]",
 498         translate("Defines the source to read systems IPv4-Address from, that will be send to the DDNS provider") )
 499 src4:depends("use_ipv6", "0")   -- IPv4 selected
 500 src4.default = "network"
 501 src4:value("network", translate("Network"))
 502 src4:value("web", translate("URL"))
 503 src4:value("interface", translate("Interface"))
 504 src4:value("script", translate("Script"))
 505 function src4.cfgvalue(self, section)
 506         return DDNS.read_value(self, section, "ip_source")
 507 end
 508 function src4.validate(self, value)
 509         if usev6:formvalue(section) == "1" then
 510                 return ""       -- ignore on IPv6 selected
 511         elseif not _verify_ip_source() then
 512                 return nil, err_tab_adv(self) ..
 513                         translate("can not detect local IP. Please select a different Source combination")
 514         else
 515                 return value
 516         end
 517 end
 518 function src4.write(self, section, value)
 519         if usev6:formvalue(section) == "1" then
 520                 return true     -- ignore on IPv6 selected
 521         elseif value == "network" then
 522                 self.map:del(section, "ip_url")         -- delete not need parameters
 523                 self.map:del(section, "ip_interface")
 524                 self.map:del(section, "ip_script")
 525         elseif value == "web" then
 526                 self.map:del(section, "ip_network")     -- delete not need parameters
 527                 self.map:del(section, "ip_interface")
 528                 self.map:del(section, "ip_script")
 529         elseif value == "interface" then
 530                 self.map:del(section, "ip_network")     -- delete not need parameters
 531                 self.map:del(section, "ip_url")
 532                 self.map:del(section, "ip_script")
 533         elseif value == "script" then
 534                 self.map:del(section, "ip_network")
 535                 self.map:del(section, "ip_url")         -- delete not need parameters
 536                 self.map:del(section, "ip_interface")
 537         end
 538         self.map:del(section, self.option)               -- delete "ipv4_source" helper
 539         return self.map:set(section, "ip_source", value) -- and write "ip_source
 540 end
 541
 542 -- IPv6 - ip_source -- #########################################################
 543 src6 = ns:taboption("advanced", ListValue, "ipv6_source",
 544         translate("IP address source") .. " [IPv6]",
 545         translate("Defines the source to read systems IPv6-Address from, that will be send to the DDNS provider") )
 546 src6:depends("use_ipv6", 1)     -- IPv6 selected
 547 src6.default = "network"
 548 src6:value("network", translate("Network"))
 549 src6:value("web", translate("URL"))
 550 src6:value("interface", translate("Interface"))
 551 src6:value("script", translate("Script"))
 552 if not has_ipv6 then
 553         src6.description = err_ipv6_other
 554 end
 555 function src6.cfgvalue(self, section)
 556         return DDNS.read_value(self, section, "ip_source")
 557 end
 558 function src6.validate(self, value)
 559         if usev6:formvalue(section) == "0" then
 560                 return ""       -- ignore on IPv4 selected
 561         elseif not has_ipv6 then
 562                 return nil, err_tab_adv(self) .. err_ipv6_plain
 563         elseif not _verify_ip_source() then
 564                 return nil, err_tab_adv(self) ..
 565                         translate("can not detect local IP. Please select a different Source combination")
 566         else
 567                 return value
 568         end
 569 end
 570 function src6.write(self, section, value)
 571         if usev6:formvalue(section) == "0" then
 572                 return true     -- ignore on IPv4 selected
 573         elseif value == "network" then
 574                 self.map:del(section, "ip_url")         -- delete not need parameters
 575                 self.map:del(section, "ip_interface")
 576                 self.map:del(section, "ip_script")
 577         elseif value == "web" then
 578                 self.map:del(section, "ip_network")     -- delete not need parameters
 579                 self.map:del(section, "ip_interface")
 580                 self.map:del(section, "ip_script")
 581         elseif value == "interface" then
 582                 self.map:del(section, "ip_network")     -- delete not need parameters
 583                 self.map:del(section, "ip_url")
 584                 self.map:del(section, "ip_script")
 585         elseif value == "script" then
 586                 self.map:del(section, "ip_network")
 587                 self.map:del(section, "ip_url")         -- delete not need parameters
 588                 self.map:del(section, "ip_interface")
 589         end
 590         self.map:del(section, self.option)               -- delete "ipv4_source" helper
 591         return self.map:set(section, "ip_source", value) -- and write "ip_source
 592 end
 593
 594 -- IPv4 - ip_network (default "wan") -- ########################################
 595 ipn4 = ns:taboption("advanced", ListValue, "ipv4_network",
 596         translate("Network") .. " [IPv4]",
 597         translate("Defines the network to read systems IPv4-Address from") )
 598 ipn4:depends("ipv4_source", "network")
 599 ipn4.default = "wan"
 600 WADM.cbi_add_networks(ipn4)
 601 function ipn4.cfgvalue(self, section)
 602         return DDNS.read_value(self, section, "ip_network")
 603 end
 604 function ipn4.validate(self, value)
 605         if usev6:formvalue(section) == "1"
 606          or src4:formvalue(section) ~= "network" then
 607                 -- ignore if IPv6 selected OR
 608                 -- ignore everything except "network"
 609                 return ""
 610         else
 611                 return value
 612         end
 613 end
 614 function ipn4.write(self, section, value)
 615         if usev6:formvalue(section) == "1"
 616          or src4:formvalue(section) ~= "network" then
 617                 -- ignore if IPv6 selected OR
 618                 -- ignore everything except "network"
 619                 return true
 620         else
 621                 -- set also as "interface" for monitoring events changes/hot-plug
 622                 self.map:set(section, "interface", value)
 623                 self.map:del(section, self.option)                -- delete "ipv4_network" helper
 624                 return self.map:set(section, "ip_network", value) -- and write "ip_network"
 625         end
 626 end
 627
 628 -- IPv6 - ip_network (default "wan6") -- #######################################
 629 ipn6 = ns:taboption("advanced", ListValue, "ipv6_network",
 630         translate("Network") .. " [IPv6]" )
 631 ipn6:depends("ipv6_source", "network")
 632 ipn6.default = "wan6"
 633 WADM.cbi_add_networks(ipn6)
 634 if has_ipv6 then
 635         ipn6.description = translate("Defines the network to read systems IPv6-Address from")
 636 else
 637         ipn6.description = err_ipv6_other
 638 end
 639 function ipn6.cfgvalue(self, section)
 640         return DDNS.read_value(self, section, "ip_network")
 641 end
 642 function ipn6.validate(self, value)
 643         if usev6:formvalue(section) == "0"
 644          or src6:formvalue(section) ~= "network" then
 645                 -- ignore if IPv4 selected OR
 646                 -- ignore everything except "network"
 647                 return ""
 648         elseif has_ipv6 then
 649                 return value
 650         else
 651                 return nil, err_tab_adv(self) .. err_ipv6_plain
 652         end
 653 end
 654 function ipn6.write(self, section, value)
 655         if usev6:formvalue(section) == "0"
 656          or src6:formvalue(section) ~= "network" then
 657                 -- ignore if IPv4 selected OR
 658                 -- ignore everything except "network"
 659                 return true
 660         else
 661                 -- set also as "interface" for monitoring events changes/hotplug
 662                 self.map:set(section, "interface", value)
 663                 self.map:del(section, self.option)                -- delete "ipv6_network" helper
 664                 return self.map:set(section, "ip_network", value) -- and write "ip_network"
 665         end
 666 end
 667
 668 -- IPv4 - ip_url (default "checkip.dyndns.com") -- #############################
 669 iurl4 = ns:taboption("advanced", Value, "ipv4_url",
 670         translate("URL to detect") .. " [IPv4]",
 671         translate("Defines the Web page to read systems IPv4-Address from") )
 672 iurl4:depends("ipv4_source", "web")
 673 iurl4.default = "http://checkip.dyndns.com"
 674 function iurl4.cfgvalue(self, section)
 675         return DDNS.read_value(self, section, "ip_url")
 676 end
 677 function iurl4.validate(self, value)
 678         if usev6:formvalue(section) == "1"
 679          or src4:formvalue(section) ~= "web" then
 680                 -- ignore if IPv6 selected OR
 681                 -- ignore everything except "web"
 682                 return ""
 683         elseif not value or #value == 0 then
 684                 return nil, err_tab_adv(self) .. translate("missing / required")
 685         end
 686
 687         local url = DDNS.parse_url(value)
 688         if not (url.scheme == "http" or url.scheme == "https") then
 689                 return nil, err_tab_adv(self) .. translate("must start with 'http://'")
 690         elseif not url.host then
 691                 return nil, err_tab_adv(self) .. "<HOST> " .. translate("missing / required")
 692         elseif SYS.call([[nslookup ]] .. url.host .. [[>/dev/null 2>&1]]) ~= 0 then
 693                 return nil, err_tab_adv(self) .. translate("can not resolve host: ") .. url.host
 694         else
 695                 return value
 696         end
 697 end
 698 function iurl4.write(self, section, value)
 699         if usev6:formvalue(section) == "1"
 700          or src4:formvalue(section) ~= "web" then
 701                 -- ignore if IPv6 selected OR
 702                 -- ignore everything except "web"
 703                 return true
 704         else
 705                 self.map:del(section, self.option)              -- delete "ipv4_url" helper
 706                 return self.map:set(section, "ip_url", value)   -- and write "ip_url"
 707         end
 708 end
 709
 710 -- IPv6 - ip_url (default "checkipv6.dyndns.com") -- ###########################
 711 iurl6 = ns:taboption("advanced", Value, "ipv6_url",
 712         translate("URL to detect") .. " [IPv6]" )
 713 iurl6:depends("ipv6_source", "web")
 714 iurl6.default = "http://checkipv6.dyndns.com"
 715 if has_ipv6 then
 716         iurl6.description = translate("Defines the Web page to read systems IPv6-Address from")
 717 else
 718         iurl6.description = err_ipv6_other
 719 end
 720 function iurl6.cfgvalue(self, section)
 721         return DDNS.read_value(self, section, "ip_url")
 722 end
 723 function iurl6.validate(self, value)
 724         if usev6:formvalue(section) == "0"
 725          or src6:formvalue(section) ~= "web" then
 726                 -- ignore if IPv4 selected OR
 727                 -- ignore everything except "web"
 728                 return ""
 729         elseif not has_ipv6 then
 730                 return nil, err_tab_adv(self) .. err_ipv6_plain
 731         elseif not value or #value == 0 then
 732                 return nil, err_tab_adv(self) .. translate("missing / required")
 733         end
 734
 735         local url = DDNS.parse_url(value)
 736         if not (url.scheme == "http" or url.scheme == "https") then
 737                 return nil, err_tab_adv(self) .. translate("must start with 'http://'")
 738         elseif not url.host then
 739                 return nil, err_tab_adv(self) .. "<HOST> " .. translate("missing / required")
 740         elseif SYS.call([[nslookup ]] .. url.host .. [[>/dev/null 2>&1]]) ~= 0 then
 741                 return nil, err_tab_adv(self) .. translate("can not resolve host: ") .. url.host
 742         else
 743                 return value
 744         end
 745 end
 746 function iurl6.write(self, section, value)
 747         if usev6:formvalue(section) == "0"
 748          or src6:formvalue(section) ~= "web" then
 749                 -- ignore if IPv4 selected OR
 750                 -- ignore everything except "web"
 751                 return true
 752         else
 753                 self.map:del(section, self.option)              -- delete "ipv6_url" helper
 754                 return self.map:set(section, "ip_url", value)   -- and write "ip_url"
 755         end
 756 end
 757
 758 -- IPv4 + IPv6 - ip_interface -- ###############################################
 759 ipi = ns:taboption("advanced", ListValue, "ip_interface",
 760         translate("Interface"),
 761         translate("Defines the interface to read systems IP-Address from") )
 762 ipi:depends("ipv4_source", "interface") -- IPv4
 763 ipi:depends("ipv6_source", "interface") -- or IPv6
 764 for _, v in pairs(SYS.net.devices()) do
 765         -- show only interface set to a network
 766         -- and ignore loopback
 767         net = WADM.iface_get_network(v)
 768         if net and net ~= "loopback" then
 769                 ipi:value(v)
 770         end
 771 end
 772 function ipi.validate(self, value)
 773         if (usev6:formvalue(section) == "0" and src4:formvalue(section) ~= "interface")
 774         or (usev6:formvalue(section) == "1" and src6:formvalue(section) ~= "interface") then
 775                 return ""
 776         else
 777                 return value
 778         end
 779 end
 780 function ipi.write(self, section, value)
 781         if (usev6:formvalue(section) == "0" and src4:formvalue(section) ~= "interface")
 782         or (usev6:formvalue(section) == "1" and src6:formvalue(section) ~= "interface") then
 783                 return true
 784         else
 785                 -- get network from device to
 786                 -- set also as "interface" for monitoring events changes/hotplug
 787                 local net = WADM.iface_get_network(value)
 788                 self.map:set(section, "interface", net)
 789                 return self.map:set(section, self.option, value)
 790         end
 791 end
 792
 793 -- IPv4 + IPv6 - ip_script (NEW) -- ############################################
 794 ips = ns:taboption("advanced", Value, "ip_script",
 795         translate("Script"),
 796         translate("User defined script to read systems IP-Address") )
 797 ips:depends("ipv4_source", "script")    -- IPv4
 798 ips:depends("ipv6_source", "script")    -- or IPv6
 799 ips.placeholder = "/path/to/script.sh"
 800 function ips.validate(self, value)
 801         if (usev6:formvalue(section) == "0" and src4:formvalue(section) ~= "script")
 802         or (usev6:formvalue(section) == "1" and src6:formvalue(section) ~= "script") then
 803                 return ""
 804         elseif not value or not FS.access(value, "x") then
 805                 return nil, err_tab_adv(self) ..
 806                         translate("not found or not executable - Sample: '/path/to/script.sh'")
 807         else
 808                 return value
 809         end
 810 end
 811 function ips.write(self, section, value)
 812         if (usev6:formvalue(section) == "0" and src4:formvalue(section) ~= "script")
 813         or (usev6:formvalue(section) == "1" and src6:formvalue(section) ~= "script") then
 814                 return true
 815         else
 816                 return self.map:set(section, self.option, value)
 817         end
 818 end
 819
 820 -- IPv4 - interface - default "wan" -- #########################################
 821 -- event network to monitor changes/hotplug/dynamic_dns_updater.sh
 822 -- only needs to be set if "ip_source"="web" or "script"
 823 -- if "ip_source"="network" or "interface" we use their network
 824 eif4 = ns:taboption("advanced", ListValue, "ipv4_interface",
 825         translate("Event Network") .. " [IPv4]",
 826         translate("Network on which the ddns-updater scripts will be started") )
 827 eif4:depends("ipv4_source", "web")
 828 eif4:depends("ipv4_source", "script")
 829 eif4.default = "wan"
 830 WADM.cbi_add_networks(eif4)
 831 function eif4.cfgvalue(self, section)
 832         return DDNS.read_value(self, section, "interface")
 833 end
 834 function eif4.validate(self, value)
 835         if usev6:formvalue(section) == "1"
 836          or src4:formvalue(section) == "network"
 837          or src4:formvalue(section) == "interface" then
 838                 return ""       -- ignore IPv6, network, interface
 839         else
 840                 return value
 841         end
 842 end
 843 function eif4.write(self, section, value)
 844         if usev6:formvalue(section) == "1"
 845          or src4:formvalue(section) == "network"
 846          or src4:formvalue(section) == "interface" then
 847                 return true     -- ignore IPv6, network, interface
 848         else
 849                 self.map:del(section, self.option)               -- delete "ipv4_interface" helper
 850                 return self.map:set(section, "interface", value) -- and write "interface"
 851         end
 852 end
 853
 854 -- IPv6 - interface (NEW) - default "wan6" -- ##################################
 855 -- event network to monitor changes/hotplug (NEW)
 856 -- only needs to be set if "ip_source"="web" or "script"
 857 -- if "ip_source"="network" or "interface" we use their network
 858 eif6 = ns:taboption("advanced", ListValue, "ipv6_interface",
 859         translate("Event Network") .. " [IPv6]" )
 860 eif6:depends("ipv6_source", "web")
 861 eif6:depends("ipv6_source", "script")
 862 eif6.default = "wan6"
 863 WADM.cbi_add_networks(eif6)
 864 if not has_ipv6 then
 865         eif6.description = err_ipv6_other
 866 else
 867         eif6.description = translate("Network on which the ddns-updater scripts will be started")
 868 end
 869 function eif6.cfgvalue(self, section)
 870         return DDNS.read_value(self, section, "interface")
 871 end
 872 function eif6.validate(self, value)
 873         if usev6:formvalue(section) == "0"
 874          or src4:formvalue(section) == "network"
 875          or src4:formvalue(section) == "interface" then
 876                 return ""       -- ignore IPv4, network, interface
 877         elseif not has_ipv6 then
 878                 return nil, err_tab_adv(self) .. err_ipv6_plain
 879         else
 880                 return value
 881         end
 882 end
 883 function eif6.write(self, section, value)
 884         if usev6:formvalue(section) == "0"
 885          or src4:formvalue(section) == "network"
 886          or src4:formvalue(section) == "interface" then
 887                 return true     -- ignore IPv4, network, interface
 888         else
 889                 self.map:del(section, self.option)               -- delete "ipv6_interface" helper
 890                 return self.map:set(section, "interface", value) -- and write "interface"
 891         end
 892 end
 893
 894 -- IPv4 + IPv6 - force_ipversion (NEW) -- ######################################
 895 -- optional to force wget/curl and host to use only selected IP version
 896 -- command parameter "-4" or "-6"
 897 if has_force or ( ( m:get(section, "force_ipversion") or "0" ) ~= "0" ) then
 898         fipv = ns:taboption("advanced", Flag, "force_ipversion",
 899                 translate("Force IP Version") )
 900         fipv.orientation = "horizontal"
 901         function fipv.cfgvalue(self, section)
 902                 local value = AbstractValue.cfgvalue(self, section)
 903                 if not has_force and value ~= "0" then
 904                         self.description = bold_on .. font_red ..
 905                                 translate("Force IP Version not supported") .. font_off .. "<br />" ..
 906                                 translate("please disable") .. " !" .. bold_off
 907                 else
 908                         self.description = translate("OPTIONAL: Force the usage of pure IPv4/IPv6 only communication.")
 909                 end
 910                 return value
 911         end
 912         function fipv.validate(self, value)
 913                 if (value == "1" and has_force) or value == "0" then return value end
 914                 return nil, err_tab_adv(self) .. translate("Force IP Version not supported")
 915         end
 916         function fipv.parse(self, section)
 917                 DDNS.flag_parse(self, section)
 918         end
 919         function fipv.write(self, section, value)
 920                 if value == "1" then
 921                         return self.map:set(section, self.option, value)
 922                 else
 923                         return self.map:del(section, self.option)
 924                 end
 925         end
 926 end
 927
 928 -- IPv4 + IPv6 - dns_server (NEW) -- ###########################################
 929 -- optional DNS Server to use resolving my IP if "ip_source"="web"
 930 dns = ns:taboption("advanced", Value, "dns_server",
 931         translate("DNS-Server"),
 932         translate("OPTIONAL: Use non-default DNS-Server to detect 'Registered IP'.") .. "<br />" ..
 933         translate("Format: IP or FQDN"))
 934 dns.placeholder = "mydns.lan"
 935 function dns.validate(self, value)
 936         -- if .datatype is set, then it is checked before calling this function
 937         if not value then
 938                 return ""       -- ignore on empty
 939         elseif not DTYP.host(value) then
 940                 return nil, err_tab_adv(self) .. translate("use hostname, FQDN, IPv4- or IPv6-Address")
 941         else
 942                 local ipv6  = usev6:formvalue(section)
 943                 local force = (fipv) and fipv:formvalue(section) or "0"
 944                 local command = [[/usr/lib/ddns/dynamic_dns_lucihelper.sh verify_dns ]] ..
 945                         value .. [[ ]] .. ipv6 .. [[ ]] .. force
 946                 local ret = SYS.call(command)
 947                 if     ret == 0 then return value       -- everything OK
 948                 elseif ret == 2 then return nil, err_tab_adv(self) .. translate("nslookup can not resolve host")
 949                 elseif ret == 3 then return nil, err_tab_adv(self) .. translate("nc (netcat) can not connect")
 950                 elseif ret == 4 then return nil, err_tab_adv(self) .. translate("Forced IP Version don't matched")
 951                 else                 return nil, err_tab_adv(self) .. translate("unspecific error")
 952                 end
 953         end
 954 end
 955
 956 -- IPv4 + IPv6 - force_dnstcp (NEW) -- #########################################
 957 if has_dnstcp or ( ( m:get(section, "force_dnstcp") or "0" ) ~= "0" ) then
 958         tcp = ns:taboption("advanced", Flag, "force_dnstcp",
 959                 translate("Force TCP on DNS") )
 960         tcp.orientation = "horizontal"
 961         function tcp.cfgvalue(self, section)
 962                 local value = AbstractValue.cfgvalue(self, section)
 963                 if not has_dnstcp and value ~= "0" then
 964                         self.description = bold_on .. font_red ..
 965                                 translate("DNS requests via TCP not supported") .. font_off .. "<br />" ..
 966                                 translate("please disable") .. " !" .. bold_off
 967                 else
 968                         self.description = translate("OPTIONAL: Force the use of TCP instead of default UDP on DNS requests.")
 969                 end
 970                 return value
 971         end
 972         function tcp.validate(self, value)
 973                 if (value == "1" and has_dnstcp ) or value == "0" then
 974                         return value
 975                 end
 976                 return nil, err_tab_adv(self) .. translate("DNS requests via TCP not supported")
 977         end
 978         function tcp.parse(self, section)
 979                 DDNS.flag_parse(self, section)
 980         end
 981 end
 982
 983 -- IPv4 + IPv6 - proxy (NEW) -- ################################################
 984 -- optional Proxy to use for http/https requests  [user:password@]proxyhost[:port]
 985 if has_proxy or ( ( m:get(section, "proxy") or "" ) ~= "" ) then
 986         pxy = ns:taboption("advanced", Value, "proxy",
 987                 translate("PROXY-Server") )
 988         pxy.placeholder="user:password@myproxy.lan:8080"
 989         function pxy.cfgvalue(self, section)
 990                 local value = AbstractValue.cfgvalue(self, section)
 991                 if not has_proxy and value ~= "" then
 992                         self.description = bold_on .. font_red ..
 993                                 translate("PROXY-Server not supported") .. font_off .. "<br />" ..
 994                                 translate("please remove entry") .. "!" .. bold_off
 995                 else
 996                         self.description = translate("OPTIONAL: Proxy-Server for detection and updates.") .. "<br />" ..
 997                                 translate("Format") .. ": " .. bold_on .. "[user:password@]proxyhost:port" .. bold_off .. "<br />" ..
 998                                 translate("IPv6 address must be given in square brackets") .. ": " ..
 999                                 bold_on .. " [2001:db8::1]:8080" .. bold_off
1000                 end
1001                 return value
1002         end
1003         function pxy.validate(self, value)
1004                 -- if .datatype is set, then it is checked before calling this function
1005                 if not value then
1006                         return ""       -- ignore on empty
1007                 elseif has_proxy then
1008                         local ipv6  = usev6:formvalue(section) or "0"
1009                         local force = (fipv) and fipv:formvalue(section) or "0"
1010                         local command = [[/usr/lib/ddns/dynamic_dns_lucihelper.sh verify_proxy ]] ..
1011                                 value .. [[ ]] .. ipv6 .. [[ ]] .. force
1012                         local ret = SYS.call(command)
1013                         if     ret == 0 then return value
1014                         elseif ret == 2 then return nil, err_tab_adv(self) .. translate("nslookup can not resolve host")
1015                         elseif ret == 3 then return nil, err_tab_adv(self) .. translate("nc (netcat) can not connect")
1016                         elseif ret == 4 then return nil, err_tab_adv(self) .. translate("Forced IP Version don't matched")
1017                         elseif ret == 5 then return nil, err_tab_adv(self) .. translate("proxy port missing")
1018                         else                 return nil, err_tab_adv(self) .. translate("unspecific error")
1019                         end
1020                 else
1021                         return nil, err .. translate("PROXY-Server not supported")
1022                 end
1023         end
1024 end
1025
1026 -- TAB: Timer  #####################################################################################
1027 -- check_interval -- ###########################################################
1028 ci = ns:taboption("timer", Value, "check_interval",
1029         translate("Check Interval") )
1030 ci.template = "ddns/detail_value"
1031 ci.default  = 10
1032 ci.rmempty = false      -- validate ourselves for translatable error messages
1033 function ci.validate(self, value)
1034         if not DTYP.uinteger(value)
1035         or tonumber(value) < 1 then
1036                 return nil, err_tab_timer(self) .. translate("minimum value 5 minutes == 300 seconds")
1037         end
1038
1039         local secs = DDNS.calc_seconds(value, cu:formvalue(section))
1040         if secs >= 300 then
1041                 return value
1042         else
1043                 return nil, err_tab_timer(self) .. translate("minimum value 5 minutes == 300 seconds")
1044         end
1045 end
1046 function ci.write(self, section, value)
1047         -- simulate rmempty=true remove default
1048         local secs = DDNS.calc_seconds(value, cu:formvalue(section))
1049         if secs ~= 600 then     --default 10 minutes
1050                 return self.map:set(section, self.option, value)
1051         else
1052                 self.map:del(section, "check_unit")
1053                 return self.map:del(section, self.option)
1054         end
1055 end
1056
1057 -- check_unit -- ###############################################################
1058 cu = ns:taboption("timer", ListValue, "check_unit", "not displayed, but needed otherwise error",
1059         translate("Interval to check for changed IP" .. "<br />" ..
1060                 "Values below 5 minutes == 300 seconds are not supported") )
1061 cu.template = "ddns/detail_lvalue"
1062 cu.default  = "minutes"
1063 cu.rmempty  = false     -- want to control write process
1064 cu:value("seconds", translate("seconds"))
1065 cu:value("minutes", translate("minutes"))
1066 cu:value("hours", translate("hours"))
1067 --cu:value("days", translate("days"))
1068 function cu.write(self, section, value)
1069         -- simulate rmempty=true remove default
1070         local secs = DDNS.calc_seconds(ci:formvalue(section), value)
1071         if secs ~= 600 then     --default 10 minutes
1072                 return self.map:set(section, self.option, value)
1073         else
1074                 return true
1075         end
1076 end
1077
1078 -- force_interval (modified) -- ################################################
1079 fi = ns:taboption("timer", Value, "force_interval",
1080         translate("Force Interval") )
1081 fi.template = "ddns/detail_value"
1082 fi.default  = 72        -- see dynamic_dns_updater.sh script
1083 fi.rmempty = false      -- validate ourselves for translatable error messages
1084 function fi.validate(self, value)
1085         if not DTYP.uinteger(value)
1086         or tonumber(value) < 0 then
1087                 return nil, err_tab_timer(self) .. translate("minimum value '0'")
1088         end
1089
1090         local force_s = DDNS.calc_seconds(value, fu:formvalue(section))
1091         if force_s == 0 then
1092                 return value
1093         end
1094
1095         local ci_value = ci:formvalue(section)
1096         if not DTYP.uinteger(ci_value) then
1097                 return ""       -- ignore because error in check_interval above
1098         end
1099
1100         local check_s = DDNS.calc_seconds(ci_value, cu:formvalue(section))
1101         if force_s >= check_s then
1102                 return value
1103         end
1104
1105         return nil, err_tab_timer(self) .. translate("must be greater or equal 'Check Interval'")
1106 end
1107 function fi.write(self, section, value)
1108         -- simulate rmempty=true remove default
1109         local secs = DDNS.calc_seconds(value, fu:formvalue(section))
1110         if secs ~= 259200 then  --default 72 hours == 3 days
1111                 return self.map:set(section, self.option, value)
1112         else
1113                 self.map:del(section, "force_unit")
1114                 return self.map:del(section, self.option)
1115         end
1116 end
1117
1118 -- force_unit -- ###############################################################
1119 fu = ns:taboption("timer", ListValue, "force_unit", "not displayed, but needed otherwise error",
1120         translate("Interval to force updates send to DDNS Provider" .. "<br />" ..
1121                 "Setting this parameter to 0 will force the script to only run once" .. "<br />" ..
1122                 "Values lower 'Check Interval' except '0' are not supported") )
1123 fu.template = "ddns/detail_lvalue"
1124 fu.default  = "hours"
1125 fu.rmempty  = false     -- want to control write process
1126 --fu:value("seconds", translate("seconds"))
1127 fu:value("minutes", translate("minutes"))
1128 fu:value("hours", translate("hours"))
1129 fu:value("days", translate("days"))
1130 function fu.write(self, section, value)
1131         -- simulate rmempty=true remove default
1132         local secs = DDNS.calc_seconds(fi:formvalue(section), value)
1133         if secs ~= 259200 and secs ~= 0 then    --default 72 hours == 3 days
1134                 return self.map:set(section, self.option, value)
1135         else
1136                 return true
1137         end
1138 end
1139
1140 -- retry_count (NEW) -- ########################################################
1141 rc = ns:taboption("timer", Value, "retry_count",
1142         translate("Error Retry Counter"),
1143         translate("On Error the script will stop execution after given number of retrys") )
1144 rc.default = 5
1145 rc.rmempty = false      -- validate ourselves for translatable error messages
1146 function rc.validate(self, value)
1147         if not DTYP.uinteger(value)
1148         or tonumber(value) < 1 then
1149                 return nil, err_tab_timer(self) .. translate("minimum value '1'")
1150         else
1151                 return value
1152         end
1153 end
1154 function rc.write(self, section, value)
1155         -- simulate rmempty=true remove default
1156         if tonumber(value) ~= self.default then
1157                 return self.map:set(section, self.option, value)
1158         else
1159                 return self.map:del(section, self.option)
1160         end
1161 end
1162
1163 -- retry_interval -- ###########################################################
1164 ri = ns:taboption("timer", Value, "retry_interval",
1165         translate("Error Retry Interval") )
1166 ri.template = "ddns/detail_value"
1167 ri.default  = 60
1168 ri.rmempty  = false     -- validate ourselves for translatable error messages
1169 function ri.validate(self, value)
1170         if not DTYP.uinteger(value)
1171         or tonumber(value) < 1 then
1172                 return nil, err_tab_timer(self) .. translate("minimum value '1'")
1173         else
1174                 return value
1175         end
1176 end
1177 function ri.write(self, section, value)
1178         -- simulate rmempty=true remove default
1179         local secs = DDNS.calc_seconds(value, ru:formvalue(section))
1180         if secs ~= 60 then      --default 60seconds
1181                 return self.map:set(section, self.option, value)
1182         else
1183                 self.map:del(section, "retry_unit")
1184                 return self.map:del(section, self.option)
1185         end
1186 end
1187
1188 -- retry_unit -- ###############################################################
1189 ru = ns:taboption("timer", ListValue, "retry_unit", "not displayed, but needed otherwise error",
1190         translate("On Error the script will retry the failed action after given time") )
1191 ru.template = "ddns/detail_lvalue"
1192 ru.default  = "seconds"
1193 ru.rmempty  = false     -- want to control write process
1194 ru:value("seconds", translate("seconds"))
1195 ru:value("minutes", translate("minutes"))
1196 --ru:value("hours", translate("hours"))
1197 --ru:value("days", translate("days"))
1198 function ru.write(self, section, value)
1199         -- simulate rmempty=true remove default
1200         local secs = DDNS.calc_seconds(ri:formvalue(section), value)
1201         if secs ~= 60 then      --default 60seconds
1202                 return self.map:set(section, self.option, value)
1203         else
1204                 return true -- will be deleted by retry_interval
1205         end
1206 end
1207
1208 -- TAB: LogView  (NEW) #############################################################################
1209 lv = ns:taboption("logview", DummyValue, "_logview")
1210 lv.template = "ddns/detail_logview"
1211 lv.inputtitle = translate("Read / Reread log file")
1212 lv.rows = 50
1213 function lv.cfgvalue(self, section)
1214         local lfile=log_dir .. "/" .. section .. ".log"
1215         if FS.access(lfile) then
1216                 return lfile .. "\n" .. translate("Please press [Read] button")
1217         end
1218         return lfile .. "\n" .. translate("File not found or empty")
1219 end
1220
1221 return m