-- vim:set ft=lua: dofile(mg.script_name:gsub('[^\\/]*$','')..'util.lua') ONESEG=tonumber(edcb.GetPrivateProfile('GUIDE','oneseg',false,INI))~=0 webPanel=mg.get_var(mg.request_info.query_string,'webpanel') ct={ title='放送中', video='live', js='
\n', fixedTabs=true, menu='
- 強制停止
' ..'
- ポップアップ
\n' ..'
- アプリで開く
\n' ..'
\n' ..'
- サブチャンネル
\n' } if webPanel then ct.css='
' end rt={} for i,v in ipairs(edcb.GetReserveData()) do rt[v.onid..'-'..v.tsid..'-'..v.sid..'-'..v.eid]=v.reserveID end ct.main='
\n' ..'
\n' .. SidePanelTemplate() ..'
\n' edcb.htmlEscape=15 NetworkList={} for i,v in ipairs(NetworkType()) do NetworkList[i]={} end utc9Now=os.time()+9*3600 function Logo(onid,sid) ddid=tonumber(edcb.GetPrivateProfile('LogoIDMap',('%04x%04x'):format(onid,sid),'','Setting\\LogoData.ini')) if ddid then dir=PathAppend(EdcbSettingPath(),'LogoData') ff=edcb.FindFile(PathAppend(dir,('%04x_%03x_*'):format(onid,ddid)),6) or {} -- ファイル名の末尾2桁はロゴタイプ(STD-B21) for i,v in ipairs({'05%.png','02%.png','04%.png','01%.png','03%.png','00%.png'}) do for j,w in ipairs(ff) do if w.name:lower():find(v..'$') then return true end end end end if LOGO_DIR then fname=nil f=edcb.io.open(LOGO_INI,'rb') if f then -- ロゴ識別とServiceIDとの対応を調べる ddid=tonumber(f:read('*a'):upper():match(('\n%04X%04X=(%%d+)'):format(onid,sid))) f:close() if ddid then ff=edcb.FindFile(PathAppend(LOGO_DIR,('%04x_%03x_*'):format(onid,ddid)),12) or {} -- ファイル名の末尾2桁はロゴタイプ(STD-B21)であると期待 for i,v in ipairs({'05%.png','05%.bmp','02%.png','02%.bmp','04%.png','04%.bmp','01%.png','01%.bmp','03%.png','03%.bmp','00%.png','00%.bmp'}) do for j,w in ipairs(ff) do if w.name:lower():find(v..'$') then return true end end end end end else fname=('%04x%04x.png'):format(onid,sid) f=edcb.io.open(DocumentToNativePath('img/logo/'..fname),'rb') if not f then fname=('%04x%04x.bmp'):format(onid,sid) f=edcb.io.open(DocumentToNativePath('img/logo/'..fname),'rb') end if f then return true end end return false end for i,v in ipairs(CustomServiceList()) do if (ONESEG or not v.partialReceptionFlag) then table.insert(NetworkList[NetworkIndex(v.onid, v.partialReceptionFlag)], '
- \n' ..'' ..'' or '>tv')..''..v.service_name ..'\n' ..'\n' ..'\n' ..'' ..(webPanel and '' or '
  \n') ..'
  ' ..'
\n' ) end end ctt={} ct.tab='' for i,v in ipairs(NetworkList) do if #v>0 then ct.tab=ct.tab..''..NetworkType()[i]..'\n' table.insert(ctt, '

\n'..table.concat(v)..'

\n') end end ct.main=ct.main..table.concat(ctt)..'
\n' ct=Template(ct) 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'))