X-Git-Url: https://git.enpas.org/?a=blobdiff_plain;ds=sidebyside;f=util%2Fdatetime.lua;h=c73d8e761a3c86db120119f7670082ec487f82be;hb=e0ff05b0a50b767960b60561018da50d5416211e;hp=cf00e4c320323a03d137742bb2dd0fd5143df2a2;hpb=4643eae0bf41b461c9337bfb66f9ac80f7e84f11;p=prosody.git

diff --git a/util/datetime.lua b/util/datetime.lua
index cf00e4c3..c73d8e76 100644
--- a/util/datetime.lua
+++ b/util/datetime.lua
@@ -10,7 +10,10 @@
 -- XEP-0082: XMPP Date and Time Profiles
 
 local os_date = os.date;
+local os_time = os.time;
+local os_difftime = os.difftime;
 local error = error;
+local tonumber = tonumber;
 
 module "datetime"
 
@@ -31,7 +34,24 @@ function legacy(t)
 end
 
 function parse(s)
-	error("datetime.parse: Not implemented"); -- TODO
+	if s then
+		local year, month, day, hour, min, sec, tzd;
+		year, month, day, hour, min, sec, tzd = s:match("^(%d%d%d%d)-?(%d%d)-?(%d%d)T(%d%d):(%d%d):(%d%d)%.?%d*([Z+%-].*)$");
+		if year then
+			local time_offset = os_difftime(os_time(os_date("*t")), os_time(os_date("!*t"))); -- to deal with local timezone
+			local tzd_offset = 0;
+			if tzd ~= "" and tzd ~= "Z" then
+				local sign, h, m = tzd:match("([+%-])(%d%d):?(%d*)");
+				if not sign then return; end
+				if #m ~= 2 then m = "0"; end
+				h, m = tonumber(h), tonumber(m);
+				tzd_offset = h * 60 * 60 + m * 60;
+				if sign == "-" then tzd_offset = -tzd_offset; end
+			end
+			sec = (sec + time_offset) - tzd_offset;
+			return os_time({year=year, month=month, day=day, hour=hour, min=min, sec=sec, isdst=false});
+		end
+	end
 end
 
 return _M;