1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
|
--[[
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)
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%+%-]+)"
)
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 two 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
|
