-- vim:set ft=lua:
dofile(mg.script_name:gsub('[^\\/]*$','')..'util.lua')
ct=CreateContentBuilder(GZIP_THRESHOLD_BYTE)
ct:Append(DOCTYPE_HTML4_STRICT..[=[
]=]..DefaultHeadContents()..[=[
番組詳細 - EDCB
番組詳細
]=])
onid,tsid,sid,startTime=GetVarPastEventID(mg.request_info.query_string,'id')
edcb.htmlEscape=15
epgDate=0
et=edcb.EnumEventInfoArchive({{onid=onid,tsid=tsid,sid=sid}}, {startTime=os.date('!*t',startTime), durationSecond=1})
if et and #et~=0 then
ct:Append(' - 番組情報
- '..ConvertProgramText(et[1]):gsub('\r?\n','
\n')..' \n')
--番組表のdateクエリは今日(深夜4時区切り)を基準(=0)とする
epgDate=math.floor((startTime-4*3600)/(24*3600))-math.floor((os.time()+(9-4)*3600)/(24*3600))
end
ct:Append([=[
]=])
ct:Finish()
mg.write(ct:Pop(Response(200,'text/html','utf-8',ct.len,ct.gzip)..'\r\n'))