luci-base: Add time and data datatypes for use with firewall app

Adding LuCI configuation of the firewall time and data uci options
is in progress and this adds the necessary datatypes for validating
those fields.

1 files changed, 45 insertions, 0 deletions

diff --git a/modules/luci-base/luasrc/cbi/datatypes.lua b/modules/luci-base/luasrc/cbi/datatypes.lua
index 52f90afee6..4c003be2a1 100644
--- a/modules/luci-base/luasrc/cbi/datatypes.lua
+++ b/modules/luci-base/luasrc/cbi/datatypes.lua
@@ -341,3 +341,48 @@ end
 function phonedigit(val)
 	return (val:match("^[0-9\*#!%.]+$") ~= nil)
 end
+
+function timehhmmss(val)
+	return (val:match("^[0-6][0-9]:[0-6][0-9]:[0-6][0-9]$") ~= nil)
+end
+
+function dateyyyymmdd(val)
+	if val ~= nil then
+		yearstr, monthstr, daystr = val:match("^(%d%d%d%d)-(%d%d)-(%d%d)$")
+		if (yearstr == nil) or (monthstr == nil) or (daystr == nil) then
+			return false;
+		end
+		year = tonumber(yearstr)
+		month = tonumber(monthstr)
+		day = tonumber(daystr)
+		if (year == nil) or (month == nil) or (day == nil) then
+			return false;
+		end
+
+        	local days_in_month = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }
+
+        	local function is_leap_year(year)
+            		return (year % 4 == 0) and ((year % 100 ~= 0) or (year % 400 == 0))
+        	end
+
+        	function get_days_in_month(month, year)
+            		if (month == 2) and is_leap_year(year) then
+               			return 29
+            		else
+                		return days_in_month[month]
+            		end
+        	end
+        	if (year < 2015) then
+	    		return false
+        	end 
+        	if ((month == 0) or (month > 12)) then
+            		return false
+        	end 
+        	if ((day == 0) or (day > get_days_in_month(month, year))) then
+            		return false
+        	end
+        	return true
+	end
+	return false
+end
+