-- vim:set ft=lua:
dofile(mg.script_name:gsub('[^\\/]*$','')..'util.lua')
onid=GetVarInt(mg.request_info.query_string,'onid') or 0
tsid=GetVarInt(mg.request_info.query_string,'tsid') or 0
sid=GetVarInt(mg.request_info.query_string,'sid') or 0
eid=GetVarInt(mg.request_info.query_string,'eid') or 0
startTime=GetVarInt(mg.request_info.query_string,'startTime') or 0
presetID=GetVarInt(mg.request_info.query_string,'presetID') or 65535
r=nil
edcb.htmlEscape=15
for i,v in ipairs(edcb.GetReserveData()) do
if v.onid==onid and v.tsid==tsid and v.sid==sid and v.eid==eid then
r=v
recording=edcb.GetRecFilePath(r.reserveID)
break
end
end
if not r and presetID==65535 then
presetID=0
end
ct={title='番組情報'}
et=edcb.EnumEventInfoArchive({{onid=onid, tsid=tsid, sid=sid}}, {startTime=os.date('!*t',startTime), durationSecond=1})
if et and #et~=0 then
epgInfo, audio, End = ConvertEpgInfoText2(et[1])
else
epgInfo, audio, End = ConvertEpgInfoText2(onid, tsid, sid, eid)
end
--検索等のリンクを生成
ct.js='\n'
ct.main='\n'
..'
\n'
..'
\n'
..(#epgInfo>0 and epgInfo or '')
if not End then
ct.js=ct.js..(recording and '\n' or '')
ct.progres=r or sidePanel
ct.macro=true
ct.main=ct.main..'\n'
..'\n'
..'\n'
..(recording and '\n
\n'
..player('\n', audio)
..'
\n\n' or '')
..'
\n'
..'
\n'
..'\n'
..'\n'
..'\n\n'
..'\n'
..'
\n'
ct.tab='番組詳細\n'
..'録画設定\n'
..(recording and '再生\n' or '')
end
ct.main=ct.main..'
\n\n'..(hidden and hidden or '')
ct=template(ct)
mg.write(ct:Pop(Response(200,'text/html','utf-8',ct.len)..(ct.gzip and 'Content-Encoding: gzip\r\n' or '')..'\r\n'))