From 85ec6b0a753616726077642c5e9a8f3aca69f7b7 Mon Sep 17 00:00:00 2001 From: Jo-Philipp Wich Date: Thu, 26 Jun 2008 18:08:48 +0000 Subject: [PATCH] * libs/http: added http date helper lib --- libs/http/luasrc/http/protocol/date.lua | 208 ++++++++++++++++++++++++ 1 file changed, 208 insertions(+) create mode 100644 libs/http/luasrc/http/protocol/date.lua diff --git a/libs/http/luasrc/http/protocol/date.lua b/libs/http/luasrc/http/protocol/date.lua new file mode 100644 index 000000000..b3b993866 --- /dev/null +++ b/libs/http/luasrc/http/protocol/date.lua @@ -0,0 +1,208 @@ +--[[ + +HTTP protocol implementation for LuCI - date handling +(c) 2008 Freifunk Leipzig / Jo-Philipp Wich + +Licensed under the Apache License, Version 2.0 (the "License"); +you may not use this file except in compliance with the License. +You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + +$Id$ + +]]-- + +module("luci.http.protocol.date", package.seeall) + +MONTHS = { + "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", + "Sep", "Oct", "Nov", "Dec" +} + +-- This list is stolen from Perl's Time::Timezone +TZ = { + -- DST zones + ["brst"] = -2*3600; -- Brazil Summer Time (East Daylight) + ["adt"] = -3*3600; -- Atlantic Daylight + ["edt"] = -4*3600; -- Eastern Daylight + ["cdt"] = -5*3600; -- Central Daylight + ["mdt"] = -6*3600; -- Mountain Daylight + ["pdt"] = -7*3600; -- Pacific Daylight + ["ydt"] = -8*3600; -- Yukon Daylight + ["hdt"] = -9*3600; -- Hawaii Daylight + ["bst"] = 1*3600; -- British Summer + ["mest"] = 2*3600; -- Middle European Summer + ["sst"] = 2*3600; -- Swedish Summer + ["fst"] = 2*3600; -- French Summer + ["eest"] = 3*3600; -- Eastern European Summer + ["cest"] = 2*3600; -- Central European Daylight + ["wadt"] = 8*3600; -- West Australian Daylight + ["kdt"] = 10*3600; -- Korean Daylight + ["eadt"] = 11*3600; -- Eastern Australian Daylight + ["nzdt"] = 13*3600; -- New Zealand Daylight + + -- zones + ["gmt"] = 0; -- Greenwich Mean + ["ut"] = 0; -- Universal (Coordinated) + ["utc"] = 0; + ["wet"] = 0; -- Western European + ["wat"] = -1*3600; -- West Africa + ["azost"] = -1*3600; -- Azores Standard Time + ["cvt"] = -1*3600; -- Cape Verde Time + ["at"] = -2*3600; -- Azores + ["fnt"] = -2*3600; -- Brazil Time (Extreme East - Fernando Noronha) + ["ndt"] = -2*3600+1800;-- Newfoundland Daylight + ["art"] = -3*3600; -- Argentina Time + ["nft"] = -3*3600+1800;-- Newfoundland + ["mnt"] = -4*3600; -- Brazil Time (West Standard - Manaus) + ["ewt"] = -4*3600; -- U.S. Eastern War Time + ["ast"] = -4*3600; -- Atlantic Standard + ["bot"] = -4*3600; -- Bolivia Time + ["vet"] = -4*3600; -- Venezuela Time + ["est"] = -5*3600; -- Eastern Standard + ["cot"] = -5*3600; -- Colombia Time + ["act"] = -5*3600; -- Brazil Time (Extreme West - Acre) + ["pet"] = -5*3600; -- Peru Time + ["cst"] = -6*3600; -- Central Standard + ["cest"] = 2*3600; -- Central European Summer + ["mst"] = -7*3600; -- Mountain Standard + ["pst"] = -8*3600; -- Pacific Standard + ["yst"] = -9*3600; -- Yukon Standard + ["hst"] = -10*3600; -- Hawaii Standard + ["cat"] = -10*3600; -- Central Alaska + ["ahst"] = -10*3600; -- Alaska-Hawaii Standard + ["taht"] = -10*3600; -- Tahiti Time + ["nt"] = -11*3600; -- Nome + ["idlw"] = -12*3600; -- International Date Line West + ["cet"] = 1*3600; -- Central European + ["mez"] = 1*3600; -- Central European (German) + ["met"] = 1*3600; -- Middle European + ["mewt"] = 1*3600; -- Middle European Winter + ["swt"] = 1*3600; -- Swedish Winter + ["set"] = 1*3600; -- Seychelles + ["fwt"] = 1*3600; -- French Winter + ["west"] = 1*3600; -- Western Europe Summer Time + ["eet"] = 2*3600; -- Eastern Europe; USSR Zone 1 + ["ukr"] = 2*3600; -- Ukraine + ["sast"] = 2*3600; -- South Africa Standard Time + ["bt"] = 3*3600; -- Baghdad; USSR Zone 2 + ["eat"] = 3*3600; -- East Africa Time + ["irst"] = 3*3600+1800;-- Iran Standard Time + ["zp4"] = 4*3600; -- USSR Zone 3 + ["msd"] = 4*3600; -- Moscow Daylight Time + ["sct"] = 4*3600; -- Seychelles Time + ["zp5"] = 5*3600; -- USSR Zone 4 + ["azst"] = 5*3600; -- Azerbaijan Summer Time + ["mvt"] = 5*3600; -- Maldives Time + ["uzt"] = 5*3600; -- Uzbekistan Time + ["ist"] = 5*3600+1800;-- Indian Standard + ["zp6"] = 6*3600; -- USSR Zone 5 + ["lkt"] = 6*3600; -- Sri Lanka Time + ["pkst"] = 6*3600; -- Pakistan Summer Time + ["yekst"] = 6*3600; -- Yekaterinburg Summer Time + ["wast"] = 7*3600; -- West Australian Standard + ["ict"] = 7*3600; -- Indochina Time + ["wit"] = 7*3600; -- Western Indonesia Time + ["cct"] = 8*3600; -- China Coast; USSR Zone 7 + ["wst"] = 8*3600; -- West Australian Standard + ["hkt"] = 8*3600; -- Hong Kong + ["bnt"] = 8*3600; -- Brunei Darussalam Time + ["cit"] = 8*3600; -- Central Indonesia Time + ["myt"] = 8*3600; -- Malaysia Time + ["pht"] = 8*3600; -- Philippines Time + ["sgt"] = 8*3600; -- Singapore Time + ["jst"] = 9*3600; -- Japan Standard; USSR Zone 8 + ["kst"] = 9*3600; -- Korean Standard + ["east"] = 10*3600; -- Eastern Australian Standard + ["gst"] = 10*3600; -- Guam Standard; USSR Zone 9 + ["nct"] = 11*3600; -- New Caledonia Time + ["nzt"] = 12*3600; -- New Zealand + ["nzst"] = 12*3600; -- New Zealand Standard + ["fjt"] = 12*3600; -- Fiji Time + ["idle"] = 12*3600; -- International Date Line East +} + + +-- Find corresponding timezone offset +function tz_offset(tz) + + if type(tz) == "string" then + + -- check for a numeric identifier + local s, v = tz:match("([%+%-])([0-9]+)") + if s == '+' then s = 1 else s = -1 end + if v then v = tonumber(v) end + + if s and v then + return s * 60 * ( math.floor( v / 100 ) * 60 + ( v % 100 ) ) + + -- lookup symbolic tz + elseif TZ[tz:lower()] then + return TZ[tz:lower()] + end + + end + + -- bad luck + return 0 +end + +-- Convert a HTTP date to unixtime +function to_unix(date) + + print("D: "..date) + + local wd, day, mon, yr, hr, min, sec, tz = date:match( + "([A-Z][a-z][a-z]), ([0-9]+) " .. + "([A-Z][a-z][a-z]) ([0-9]+) " .. + "([0-9]+):([0-9]+):([0-9]+) " .. + "([A-Z0-9%+%-]+)" + ) + + print(day .. " | " .. mon .. " | " .. yr .. " | " .. tz) + + if day and mon and yr and hr and min and sec then + + -- find month + local month = 1 + for i = 1, 12 do + if MONTHS[i] == mon then + month = i + break + end + end + + -- convert to epoch time + return tz_offset(tz) + os.time( { + year = yr, + month = month, + day = day, + hour = hr, + min = min, + sec = sec + } ) + end + + return 0 +end + +-- Convert a unixtime to HTTP date +function to_http(time) + return os.date( "%a, %d %b %Y %H:%M:%S GMT", time ) +end + +-- Compare to dates +function compare(d1, d2) + + if d1:match("[^0-9]") then d1 = to_unix(d1) end + if d2:match("[^0-9]") then d2 = to_unix(d2) end + + if d1 == d2 then + return 0 + elseif d1 < d2 then + return -1 + else + return 1 + end +end -- 2.25.1