1 -- Copyright 2010 Jo-Philipp Wich <jow@openwrt.org>
2 -- Licensed to the public under the Apache License 2.0.
4 local fs = require "nixio.fs"
5 local ip = require "luci.ip"
6 local math = require "math"
7 local util = require "luci.util"
8 local tonumber, tostring, type, unpack, select = tonumber, tostring, type, unpack, select
11 module "luci.cbi.datatypes"
14 _M['or'] = function(v, ...)
16 for i = 1, select('#', ...), 2 do
17 local f = select(i, ...)
18 local a = select(i+1, ...)
19 if type(f) ~= "function" then
24 elseif f(v, unpack(a)) then
31 _M['and'] = function(v, ...)
33 for i = 1, select('#', ...), 2 do
34 local f = select(i, ...)
35 local a = select(i+1, ...)
36 if type(f) ~= "function" then
41 elseif not f(v, unpack(a)) then
49 return _M['or'](v:gsub("^%s*!%s*", ""), ...)
52 function list(v, subvalidator, subargs)
53 if type(subvalidator) ~= "function" then
57 for token in v:gmatch("%S+") do
58 if not subvalidator(token, unpack(subargs)) then
66 if val == "1" or val == "yes" or val == "on" or val == "true" then
68 elseif val == "0" or val == "no" or val == "off" or val == "false" then
70 elseif val == "" or val == nil then
77 function uinteger(val)
78 local n = tonumber(val)
79 if n ~= nil and math.floor(n) == n and n >= 0 then
87 local n = tonumber(val)
88 if n ~= nil and math.floor(n) == n then
96 local n = tonumber(val)
97 return ( n ~= nil and n >= 0 )
101 return ( tonumber(val) ~= nil )
105 return ip4addr(val) or ip6addr(val)
108 function ip4addr(val)
110 return ip.IPv4(val) and true or false
116 function ip4prefix(val)
118 return ( val and val >= 0 and val <= 32 )
121 function ip6addr(val)
123 return ip.IPv6(val) and true or false
129 function ip6prefix(val)
131 return ( val and val >= 0 and val <= 128 )
135 return ipmask4(val) or ipmask6(val)
138 function ipmask4(val)
139 local ip, mask = val:match("^([^/]+)/([^/]+)$")
140 local bits = tonumber(mask)
142 if bits and bits < 0 or bits > 32 then
146 if not bits and not ip4addr(mask) then
150 return ip4addr(ip or val)
153 function ipmask6(val)
154 local ip, mask = val:match("^([^/]+)/([^/]+)$")
155 local bits = tonumber(mask)
157 if bits and bits < 0 or bits > 128 then
161 if not bits and not ip6addr(mask) then
165 return ip6addr(ip or val)
170 return ( val and val >= 0 and val <= 65535 )
173 function portrange(val)
174 local p1, p2 = val:match("^(%d+)%-(%d+)$")
175 if p1 and p2 and port(p1) and port(p2) then
182 function macaddr(val)
183 if val and val:match(
184 "^[a-fA-F0-9]+:[a-fA-F0-9]+:[a-fA-F0-9]+:" ..
185 "[a-fA-F0-9]+:[a-fA-F0-9]+:[a-fA-F0-9]+$"
187 local parts = util.split( val, ":" )
190 parts[i] = tonumber( parts[i], 16 )
191 if parts[i] < 0 or parts[i] > 255 then
202 function hostname(val)
203 if val and (#val < 254) and (
204 val:match("^[a-zA-Z_]+$") or
205 (val:match("^[a-zA-Z0-9_][a-zA-Z0-9_%-%.]*[a-zA-Z0-9]$") and
206 val:match("[^0-9%.]"))
213 function host(val, ipv4only)
214 return hostname(val) or ((ipv4only == 1) and ip4addr(val)) or ((not (ipv4only == 1)) and ipaddr(val))
217 function network(val)
218 return uciname(val) or host(val)
221 function hostport(val, ipv4only)
222 local h, p = val:match("^([^:]+):([^:]+)$")
223 return not not (h and p and host(h, ipv4only) and port(p))
226 function ip4addrport(val, bracket)
227 local h, p = val:match("^([^:]+):([^:]+)$")
228 return (h and p and ip4addr(h) and port(p))
231 function ip4addrport(val)
232 local h, p = val:match("^([^:]+):([^:]+)$")
233 return (h and p and ip4addr(h) and port(p))
236 function ipaddrport(val, bracket)
237 local h, p = val:match("^([^%[%]:]+):([^:]+)$")
238 if (h and p and ip4addr(h) and port(p)) then
240 elseif (bracket == 1) then
241 h, p = val:match("^%[(.+)%]:([^:]+)$")
242 if (h and p and ip6addr(h) and port(p)) then
246 h, p = val:match("^([^%[%]]+):([^:]+)$")
247 return (h and p and ip6addr(h) and port(p))
252 return (val:match("^[a-fA-F0-9]+$") ~= nil)
254 return (#val >= 8) and (#val <= 63)
259 if val:sub(1, 2) == "s:" then
263 if (#val == 10) or (#val == 26) then
264 return (val:match("^[a-fA-F0-9]+$") ~= nil)
266 return (#val == 5) or (#val == 13)
271 return true -- Everything qualifies as valid string
274 function directory( val, seen )
275 local s = fs.stat(val)
278 if s and not seen[s.ino] then
280 if s.type == "dir" then
282 elseif s.type == "lnk" then
283 return directory( fs.readlink(val), seen )
290 function file( val, seen )
291 local s = fs.stat(val)
294 if s and not seen[s.ino] then
296 if s.type == "reg" then
298 elseif s.type == "lnk" then
299 return file( fs.readlink(val), seen )
306 function device( val, seen )
307 local s = fs.stat(val)
310 if s and not seen[s.ino] then
312 if s.type == "chr" or s.type == "blk" then
314 elseif s.type == "lnk" then
315 return device( fs.readlink(val), seen )
322 function uciname(val)
323 return (val:match("^[a-zA-Z0-9_]+$") ~= nil)
326 function range(val, min, max)
331 if val ~= nil and min ~= nil and max ~= nil then
332 return ((val >= min) and (val <= max))
338 function min(val, min)
342 if val ~= nil and min ~= nil then
349 function max(val, max)
353 if val ~= nil and max ~= nil then
360 function rangelength(val, min, max)
365 if val ~= nil and min ~= nil and max ~= nil then
366 return ((#val >= min) and (#val <= max))
372 function minlength(val, min)
376 if val ~= nil and min ~= nil then
383 function maxlength(val, max)
387 if val ~= nil and max ~= nil then
394 function phonedigit(val)
395 return (val:match("^[0-9\*#!%.]+$") ~= nil)
398 function timehhmmss(val)
399 return (val:match("^[0-6][0-9]:[0-6][0-9]:[0-6][0-9]$") ~= nil)
402 function dateyyyymmdd(val)
404 yearstr, monthstr, daystr = val:match("^(%d%d%d%d)-(%d%d)-(%d%d)$")
405 if (yearstr == nil) or (monthstr == nil) or (daystr == nil) then
408 year = tonumber(yearstr)
409 month = tonumber(monthstr)
410 day = tonumber(daystr)
411 if (year == nil) or (month == nil) or (day == nil) then
415 local days_in_month = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }
417 local function is_leap_year(year)
418 return (year % 4 == 0) and ((year % 100 ~= 0) or (year % 400 == 0))
421 function get_days_in_month(month, year)
422 if (month == 2) and is_leap_year(year) then
425 return days_in_month[month]
428 if (year < 2015) then
431 if ((month == 0) or (month > 12)) then
434 if ((day == 0) or (day > get_days_in_month(month, year))) then