2 -- Copyright (C) 2008-2010 Matthew Wild
3 -- Copyright (C) 2008-2010 Waqas Hussain
5 -- This project is MIT/X11 licensed. Please see the
6 -- COPYING file in the source package for more information.
10 -- XEP-0082: XMPP Date and Time Profiles
12 local os_date = os.date;
13 local os_time = os.time;
14 local os_difftime = os.difftime;
15 local tonumber = tonumber;
19 local function date(t)
20 return os_date("!%Y-%m-%d", t);
23 local function datetime(t)
24 return os_date("!%Y-%m-%dT%H:%M:%SZ", t);
27 local function time(t)
28 return os_date("!%H:%M:%S", t);
31 local function legacy(t)
32 return os_date("!%Y%m%dT%H:%M:%S", t);
35 local function parse(s)
37 local year, month, day, hour, min, sec, tzd;
38 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+%-]?.*)$");
40 local time_offset = os_difftime(os_time(os_date("*t")), os_time(os_date("!*t"))); -- to deal with local timezone
42 if tzd ~= "" and tzd ~= "Z" then
43 local sign, h, m = tzd:match("([+%-])(%d%d):?(%d*)");
44 if not sign then return; end
45 if #m ~= 2 then m = "0"; end
46 h, m = tonumber(h), tonumber(m);
47 tzd_offset = h * 60 * 60 + m * 60;
48 if sign == "-" then tzd_offset = -tzd_offset; end
50 sec = (sec + time_offset) - tzd_offset;
51 return os_time({year=year, month=month, day=day, hour=hour, min=min, sec=sec, isdst=false});