* libs/http: added http date helper lib
This commit is contained in:
Jo-Philipp Wich
parent
b8faf24d5c
commit
85ec6b0a75
1 changed files with 208 additions and 0 deletions
208
libs/http/luasrc/http/protocol/date.lua
Normal file
208
libs/http/luasrc/http/protocol/date.lua
Normal file
|
|
@ -0,0 +1,208 @@
|
|||
--[[
|
||||
|
||||
HTTP protocol implementation for LuCI - date handling
|
||||
(c) 2008 Freifunk Leipzig / Jo-Philipp Wich <xm@leipzig.freifunk.net>
|
||||
|
||||
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
|
||||
Loading…
Reference in a new issue