-- vim:set ft=lua: dofile(mg.script_name:gsub('[^\\/]*$','')..'util.lua') if USE_LIVEJK then dofile(mg.script_name:gsub('[^\\/]*$','')..'jkconst.lua') end vtag=GetVarInt(mg.request_info.query_string,'vtag') or -1 ct=CreateContentBuilder(GZIP_THRESHOLD_BYTE) ct:Append((vtag<=0 and DOCTYPE_HTML4_STRICT or '\n')..[=[ ]=]..DefaultHeadContents()..[=[ リスト番組表 - EDCB

リスト番組表

]=]) onid,tsid,sid=GetVarServiceID(mg.request_info.query_string,'id') date=GetVarInt(mg.request_info.query_string,'date',-10000,0) or 0 --dateクエリは今日(0時区切り)を基準(=0)とする now=os.time() --UTC+9の今日の始まりの日付と時刻 baseDate=math.floor((now+9*3600)/(24*3600)) baseTime=baseDate*24*3600 showServices={} for i,v in ipairs(SelectChDataList(edcb.GetChDataList())) do if not HIDE_SERVICES[''..v.onid..'-'..v.tsid..'-'..v.sid] then showServices[v.onid..'-'..v.tsid..'-'..v.sid]=true end end st={} edcb.htmlEscape=15 for i,v in ipairs(edcb.GetServiceList() or {}) do if showServices[''..v.onid..'-'..v.tsid..'-'..v.sid] then table.insert(st, v) end end SortServiceListInplace(st) if sid==0 then ct:Append('
\n\n
\n') else rt={} for i,v in ipairs(date>-28 and edcb.GetReserveData() or {}) do if v.onid==onid and v.tsid==tsid and v.sid==sid then rt[#rt+1]=v end end --安定ソートのためreserveIDをつける table.sort(rt,CompareFields('eid',false,'reserveID')) rtComp=CompareFields('eid') programReservedStart=BinarySearchBound(rt,{eid=65535},rtComp) --前1+後27日間の番組だけ取得する range={startTime=os.date('!*t',baseTime+(date-1)*24*3600),durationSecond=28*24*3600} et=edcb.EnumEventInfo({{onid=onid,tsid=tsid,sid=sid}},range) or {} for i,v in ipairs(edcb.EnumEventInfoArchive and edcb.EnumEventInfoArchive({{onid=onid,tsid=tsid,sid=sid}},range) or {}) do v.past=true et[#et+1]=v end table.sort(et,function(a,b) return CompareTime(a.startTime,b.startTime) end) ct:Append('
\n ↑↑\n
\n') ct:Append('
\n') more=nil for i,v in ipairs(et) do sub=v.eventGroupInfo and #v.eventGroupInfo.eventDataList==1 and ( v.eventGroupInfo.eventDataList[1].onid~=v.onid or v.eventGroupInfo.eventDataList[1].tsid~=v.tsid or v.eventGroupInfo.eventDataList[1].sid~=v.sid or v.eventGroupInfo.eventDataList[1].eid~=v.eid) if not sub then if TimeWithZone(v.startTime,9*3600)<=now and #et>i and TimeWithZone(et[i+1].startTime,9*3600)>now then v.now=true more=more or 8 end cont=v.contentInfoList and #v.contentInfoList>0 and math.floor(v.contentInfoList[1].content_nibble/256)%16 or 16 ct:Append('
' ..('%02d/%02d%s %02d:%02d'):format(v.startTime.month, v.startTime.day, ({'日','月','火','水','木','金','土'})[v.startTime.wday], v.startTime.hour, v.startTime.min)) if not v.past then --範囲内のプログラム予約 rangeStart=i>1 and v.startTime rangeEnd=i<#et and et[i+1].startTime for j=programReservedStart,#rt do if rt[j].eid~=65535 then break end if (not rangeStart or not CompareTime(rt[j].startTime,rangeStart)) and (not rangeEnd or CompareTime(rt[j].startTime,rangeEnd)) then ct:Append(' プ予') end end end --通常予約 reservedIndex=not v.past and BinarySearchBound(rt,v,rtComp) if not reservedIndex or reservedIndex>=programReservedStart or rt[reservedIndex].eid~=v.eid then reservedIndex=nil else --最後以外は「重予」(重複予約) while reservedIndex+1重予') reservedIndex=reservedIndex+1 end end ct:Append((reservedIndex and ' 予' or '')..' ' ..(v.shortInfo and v.shortInfo.event_name or ' ')..'' ..'
\n') if more and more>0 then more=more-1 if more==0 then ct:Append('\n
\n') end end end end if more==0 then ct:Append('
\n') end ct:Append('
\n') if date<0 then ct:Append('
\n ↓↓\n
\n') end end ct:Append([=[
]=]) if sid==0 then ct:Append([=[
]=]) else n=GetVarInt(mg.request_info.query_string,'n',0,3) or 0 xq=GetTranscodeQueries(mg.request_info.query_string) ct:Append('視聴 →'..(vtag==0 and 'Video' or 'DL')..'\n' ..'
\n' ..'\n' ..'\n' ..'\n' ..TranscodeSettingTemplate(xq,vtag==0) ..(vtag==0 and '\n' or '\n') ..'
') if vtag==1 then src='view.lua?n='..n..'&id='..onid..'-'..tsid..'-'..sid..ConstructTranscodeQueries(xq)..'&ctok='..CsrfToken('view.lua') ct:Append('\n'..VideoWrapperBegin() ..(xq.tslive and '' or '') ..VideoWrapperEnd(USE_LIVEJK and GetChatStreamNameList())..'\n'..TranscodeScriptTemplate(true,xq,{n=n,id=onid..'-'..tsid..'-'..sid})) end end ct:Append([=[
]=]) ct:Finish() mg.write(ct:Pop(Response(200,'text/html','utf-8',ct.len,ct.gzip) ..'Cross-Origin-Embedder-Policy: require-corp\r\n' ..'Cross-Origin-Opener-Policy: same-origin\r\n' ..'\r\n'))