util.pluginloader: Return full file path from internal file loader on success, not...

[prosody.git] / util / datetime.lua

diff --git a/util/datetime.lua b/util/datetime.lua
index 8e77718d90638c2b03265b8f8e0c43caf01251ef..301a49a5e9cd60035d4603919428f6192cd1058c 100644 (file)
--- a/util/datetime.lua
+++ b/util/datetime.lua
@@ -1,6 +1,6 @@
--- Prosody IM v0.4
--- Copyright (C) 2008-2009 Matthew Wild
--- Copyright (C) 2008-2009 Waqas Hussain
+-- Prosody IM
+-- Copyright (C) 2008-2010 Matthew Wild
+-- Copyright (C) 2008-2010 Waqas Hussain
 -- 
 -- This project is MIT/X11 licensed. Please see the
 -- COPYING file in the source package for more information.
@@ -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});
+               end
+       end
 end
 
 return _M;