Software / code / prosody
Changeset
3430:970690b3cb28
util.datetime: Added implementation for function parse().
| author | Waqas Hussain <waqas20@gmail.com> |
|---|---|
| date | Mon, 02 Aug 2010 20:11:08 +0500 |
| parents | 3429:8cdb0179371a |
| children | 3431:c499f4752cd8 |
| files | util/datetime.lua |
| diffstat | 1 files changed, 20 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/util/datetime.lua Mon Aug 02 19:04:52 2010 +0500 +++ b/util/datetime.lua Mon Aug 02 20:11:08 2010 +0500 @@ -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,23 @@ 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%d)"); + if not sign then return; 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;
