1 -- Copyright 2014 Christian Schoenebeck <christian dot schoenebeck at gmail dot com>
2 -- Licensed to the public under the Apache License 2.0.
4 module("luci.tools.ddns", package.seeall)
6 local NX = require "nixio"
7 local NXFS = require "nixio.fs"
8 local OPKG = require "luci.model.ipkg"
9 local UCI = require "luci.model.uci"
10 local SYS = require "luci.sys"
11 local UTIL = require "luci.util"
13 -- function to calculate seconds from given interval and unit
14 function calc_seconds(interval, unit)
15 if not tonumber(interval) then
17 elseif unit == "days" then
18 return (tonumber(interval) * 86400) -- 60 sec * 60 min * 24 h
19 elseif unit == "hours" then
20 return (tonumber(interval) * 3600) -- 60 sec * 60 min
21 elseif unit == "minutes" then
22 return (tonumber(interval) * 60) -- 60 sec
23 elseif unit == "seconds" then
24 return tonumber(interval)
30 -- check if IPv6 supported by OpenWrt
32 return NXFS.access("/proc/net/ipv6_route")
33 and NXFS.access("/usr/sbin/ip6tables")
36 -- check if Wget with SSL support or cURL installed
38 if (SYS.call([[ grep -i "\+ssl" /usr/bin/wget >/dev/null 2>&1 ]]) == 0) then
41 return NXFS.access("/usr/bin/curl")
45 -- check if Wget with SSL or cURL with proxy support installed
46 function check_proxy()
47 -- we prefere GNU Wget for communication
48 if (SYS.call([[ grep -i "\+ssl" /usr/bin/wget >/dev/null 2>&1 ]]) == 0) then
51 -- if not installed cURL must support proxy
52 elseif NXFS.access("/usr/bin/curl") then
53 return (SYS.call([[ grep -i all_proxy /usr/lib/libcurl.so* >/dev/null 2>&1 ]]) == 0)
55 -- only BusyBox Wget is installed
57 return NXFS.access("/usr/bin/wget")
61 -- check if BIND host installed
62 function check_bind_host()
63 return NXFS.access("/usr/bin/host")
66 -- convert epoch date to given format
67 function epoch2date(epoch, format)
68 if not format or #format < 2 then
69 local uci = UCI.cursor()
70 format = uci:get("ddns", "global", "date_format") or "%F %R"
73 format = format:gsub("%%n", "<br />") -- replace newline
74 format = format:gsub("%%t", " ") -- replace tab
75 return os.date(format, epoch)
78 -- read lastupdate from [section].update file
79 function get_lastupd(section)
80 local uci = UCI.cursor()
81 local run_dir = uci:get("ddns", "global", "run_dir") or "/var/run/ddns"
82 local etime = tonumber(NXFS.readfile("%s/%s.update" % { run_dir, section } ) or 0 )
87 -- read PID from run file and verify if still running
88 function get_pid(section)
89 local uci = UCI.cursor()
90 local run_dir = uci:get("ddns", "global", "run_dir") or "/var/run/ddns"
91 local pid = tonumber(NXFS.readfile("%s/%s.pid" % { run_dir, section } ) or 0 )
92 if pid > 0 and not NX.kill(pid, 0) then
99 -- compare versions using "<=" "<" ">" ">=" "=" "<<" ">>"
100 function ipkg_ver_compare(ver1, comp, ver2)
101 if not ver1 or not (#ver1 > 0)
102 or not ver2 or not (#ver2 > 0)
103 or not comp or not (#comp > 0) then return nil end
104 -- correct compare string
105 if comp == "<>" or comp == "><" or comp == "!=" or comp == "~=" then comp = "~="
106 elseif comp == "<=" or comp == "<" or comp == "=<" then comp = "<="
107 elseif comp == ">=" or comp == ">" or comp == "=>" then comp = ">="
108 elseif comp == "=" or comp == "==" then comp = "=="
109 elseif comp == "<<" then comp = "<"
110 elseif comp == ">>" then comp = ">"
113 local av1 = UTIL.split(ver1, "[%.%-]", nil, true)
114 local av2 = UTIL.split(ver2, "[%.%-]", nil, true)
116 for i = 1, math.max(table.getn(av1),table.getn(av2)), 1 do
117 local s1 = av1[i] or ""
118 local s2 = av2[i] or ""
119 local n1 = tonumber(s1)
120 local n2 = tonumber(s2)
122 -- one numeric and other empty string then set other to 0
123 if n1 and not n2 and (not s2 or #s2 == 0) then n2 = 0 end
124 if n2 and not n1 and (not s1 or #s1 == 0) then n1 = 0 end
126 local nc = (n1 and n2) -- numeric compare
129 -- first "not equal" found return true
130 if comp == "~=" and (n1 ~= n2) then return true end
131 -- first "lower" found return true
132 if (comp == "<" or comp == "<=") and (n1 < n2) then return true end
133 -- first "greater" found return true
134 if (comp == ">" or comp == ">=") and (n1 > n2) then return true end
135 -- not equal then return false
136 if (n1 ~= n2) then return false end
138 if comp == "~=" and (s1 ~= s2) then return true end
139 if (comp == "<" or comp == "<=") and (s1 < s2) then return true end
140 if (comp == ">" or comp == ">=") and (s1 > s2) then return true end
141 if (s1 ~= s2) then return false end
144 -- all equal then true
148 -- read version information for given package if installed
149 function ipkg_ver_installed(pkg)
151 local control = io.open("/usr/lib/opkg/info/%s.control" % pkg, "r")
155 ln = control:read("*l")
156 if ln and ln:match("^Version: ") then
157 version = ln:gsub("^Version: ", "")
166 -- replacement of build-in read of UCI option
167 -- modified AbstractValue.cfgvalue(self, section) from cbi.lua
168 -- needed to read from other option then current value definition
169 function read_value(self, section, option)
171 if self.tag_error[section] then
172 value = self:formvalue(section)
174 value = self.map:get(section, option)
179 elseif not self.cast or self.cast == type(value) then
181 elseif self.cast == "string" then
182 if type(value) == "table" then
185 elseif self.cast == "table" then
190 -- replacement of build-in Flag.parse of cbi.lua
191 -- modified to mark section as changed if value changes
192 -- current parse did not do this, but it is done AbstaractValue.parse()
193 function flag_parse(self, section)
194 local fexists = self.map:formvalue(
195 luci.cbi.FEXIST_PREFIX .. self.config .. "." .. section .. "." .. self.option)
198 local fvalue = self:formvalue(section) and self.enabled or self.disabled
199 local cvalue = self:cfgvalue(section)
200 if fvalue ~= self.default or (not self.optional and not self.rmempty) then
201 self:write(section, fvalue)
205 if (fvalue ~= cvalue) then self.section.changed = true end
208 self.section.changed = true
212 -----------------------------------------------------------------------------
213 -- copied from https://svn.nmap.org/nmap/nselib/url.lua
214 -- @author Diego Nehab
215 -- @author Eddie Bell <ejlbell@gmail.com>
217 URI parsing, composition and relative URL resolution
220 RCS ID: $Id: url.lua,v 1.37 2005/11/22 08:33:29 diego Exp $
221 parse_query and build_query added For nmap (Eddie Bell <ejlbell@gmail.com>)
224 -- Parses a URL and returns a table with all its parts according to RFC 2396.
226 -- The following grammar describes the names given to the URL parts.
228 -- <url> ::= <scheme>://<authority>/<path>;<params>?<query>#<fragment>
229 -- <authority> ::= <userinfo>@<host>:<port>
230 -- <userinfo> ::= <user>[:<password>]
231 -- <path> :: = {<segment>/}<segment>
234 -- The leading <code>/</code> in <code>/<path></code> is considered part of
235 -- <code><path></code>.
236 -- @param url URL of request.
237 -- @param default Table with default values for each field.
238 -- @return A table with the following fields, where RFC naming conventions have
240 -- <code>scheme</code>, <code>authority</code>, <code>userinfo</code>,
241 -- <code>user</code>, <code>password</code>, <code>host</code>,
242 -- <code>port</code>, <code>path</code>, <code>params</code>,
243 -- <code>query</code>, and <code>fragment</code>.
244 -----------------------------------------------------------------------------
245 function parse_url(url) --, default)
246 -- initialize default parameters
248 -- for i,v in base.pairs(default or parsed) do
253 -- url = string.gsub(url, "%s", "")
255 url = string.gsub(url, "#(.*)$",
260 -- get scheme. Lower-case according to RFC 3986 section 3.1.
261 url = string.gsub(url, "^([%w][%w%+%-%.]*)%:",
263 parsed.scheme = string.lower(s);
267 url = string.gsub(url, "^//([^/]*)",
272 -- get query stringing
273 url = string.gsub(url, "%?(.*)",
279 url = string.gsub(url, "%;(.*)",
284 -- path is whatever was left
287 local authority = parsed.authority
288 if not authority then
291 authority = string.gsub(authority,"^([^@]*)@",
296 authority = string.gsub(authority, ":([0-9]*)$",
303 if authority ~= "" then
304 parsed.host = authority
307 local userinfo = parsed.userinfo
311 userinfo = string.gsub(userinfo, ":([^:]*)$",
316 parsed.user = userinfo