-- vim:set ft=lua:
dofile(mg.script_name:gsub('[^\\/]*$','')..'util.lua')
--tkntrec=tonumber(edcb.GetPrivateProfile('SET','tkntrec',false,ini))~=0
Roboto=tonumber(edcb.GetPrivateProfile('SET','Roboto',false,ini))~=0
subGenreoption=edcb.GetPrivateProfile('SET','subGenreoption','ALL',ini)
PAGE_COUNT=tonumber(edcb.GetPrivateProfile('SET','PAGE_COUNT','30',ini))
oneseg=tonumber(edcb.GetPrivateProfile('GUIDE','oneseg',false,ini))~=0
hover=tonumber(edcb.GetPrivateProfile('GUIDE','hover',false,ini))~=0
titleControl=tonumber(edcb.GetPrivateProfile('GUIDE','titleControl',1+4+2+32,ini))
ONE_MIN_PX=edcb.GetPrivateProfile('GUIDE','ONE_MIN_PX','4',ini)
MARGIN_HOUR=edcb.GetPrivateProfile('GUIDE','MARGIN_HOUR','1',ini)
MARGIN_MIN=edcb.GetPrivateProfile('GUIDE','MARGIN_MIN','30',ini)
w_service=edcb.GetPrivateProfile('GUIDE','service','210',ini)
w_service_sp=edcb.GetPrivateProfile('GUIDE','service_sp','125',ini)
w_hour=edcb.GetPrivateProfile('GUIDE','hour','22',ini)
w_hour_sp=edcb.GetPrivateProfile('GUIDE','hour_sp','16',ini)
CH_COUNT=tonumber(edcb.GetPrivateProfile('GUIDE','CH_COUNT','0',ini))
subChConcat=tonumber(edcb.GetPrivateProfile('GUIDE','subChConcat',true,ini))~=0
background=edcb.GetPrivateProfile('BACKGROUND','background','#EEEEEE',ini)
news=edcb.GetPrivateProfile('BACKGROUND','news','#B3E5FC',ini)
sports=edcb.GetPrivateProfile('BACKGROUND','sports','#FFF9C4',ini)
information=edcb.GetPrivateProfile('BACKGROUND','information','#BBDEFB',ini)
drama=edcb.GetPrivateProfile('BACKGROUND','drama','#FFCDD2',ini)
music=edcb.GetPrivateProfile('BACKGROUND','music','#FFECB3',ini)
variety=edcb.GetPrivateProfile('BACKGROUND','variety','#E1BEE7',ini)
movie=edcb.GetPrivateProfile('BACKGROUND','movie','#FFE0B2',ini)
anime=edcb.GetPrivateProfile('BACKGROUND','anime','#F8BBD0',ini)
documentary=edcb.GetPrivateProfile('BACKGROUND','documentary','#C5CAE9',ini)
theater=edcb.GetPrivateProfile('BACKGROUND','theater','#DCEDC8',ini)
education=edcb.GetPrivateProfile('BACKGROUND','education','#C8E6C9',ini)
welfare=edcb.GetPrivateProfile('BACKGROUND','welfare','#B2DFDB',ini)
extension=edcb.GetPrivateProfile('BACKGROUND','extension','#FFFFFF',ini)
other=edcb.GetPrivateProfile('BACKGROUND','other','#F5F5F5',ini)
none=edcb.GetPrivateProfile('BACKGROUND','none','#E0E0E0',ini)
nothing=edcb.GetPrivateProfile('BACKGROUND','nothing','#9E9E9E',ini)
paint=tonumber(edcb.GetPrivateProfile('BACKGROUND','paint',false,ini))~=0
reserve=edcb.GetPrivateProfile('BACKGROUND','reserved','#FF3D00',ini)
disabled=edcb.GetPrivateProfile('BACKGROUND','disable','#757575',ini)
partially=edcb.GetPrivateProfile('BACKGROUND','partially','#FFFF00',ini)
partially_border=edcb.GetPrivateProfile('BACKGROUND','partially_border','#FF3D00',ini)
shortage=edcb.GetPrivateProfile('BACKGROUND','shortage','#FF5252',ini)
shortage_border=edcb.GetPrivateProfile('BACKGROUND','shortage_border','#FFEA00',ini)
CATEGORY={
'news',
'sports',
'information',
'drama',
'music',
'variety',
'movie',
'anime',
'documentary',
'theater',
'education',
'welfare',
}
ct={title='設定'}
ct.css='\n'
ct.js='\n'
..'\n'
..'\n'
ct.tab='全般\n'
..'番組表\n'
..'並び替え\n'
ct.dialog={{id='dialog',button='\n'}}
GetChDataList={}
for i,v in ipairs(edcb.GetChDataList()) do
GetChDataList[v.onid..'-'..v.tsid..'-'..v.sid]=true
end
edcb.htmlEscape=15
HIDE_SERVICES={}
for i=0,1000 do
v=edcb.GetPrivateProfile('HIDE','hide'..i,false,ini)
if key=='0' then break end
HIDE_SERVICES[''..v]=true
end
a=edcb.GetServiceList() or {}
ServiceList={}
if edcb.GetPrivateProfile('SORT','sort0',false,ini)~='0' then
GetServiceList={}
for i,v in ipairs(a) do
GetServiceList[v.onid..'-'..v.tsid..'-'..v.sid]=v
end
for i=0,1000 do
key=edcb.GetPrivateProfile('SORT','sort'..i,false,ini)
if key=='0' then break end
v=GetServiceList[key]
if v and GetChDataList[key] then
v.hide=HIDE_SERVICES[key]
table.insert(ServiceList, v)
else
--TSID変更検出
for j,w in pairs(GetServiceList) do
change=key:match(w.onid..'-(%d+)-'..w.sid..'$')
if change and tonumber(change)~=w.tsid and GetChDataList[w.onid..'-'..w.tsid..'-'..w.sid] then
w.change=change
w.hide=HIDE_SERVICES[key]
table.insert(ServiceList, w)
GetServiceList[w.onid..'-'..w.tsid..'-'..w.sid]=nil
break
end
end
end
GetServiceList[key]=nil
end
for i,v in ipairs(a) do
if GetServiceList[v.onid..'-'..v.tsid..'-'..v.sid] then table.insert(ServiceList, v) end
end
else
ServiceList=a
table.sort(ServiceList, function(a,b) return
('%04X%04X'):format(a.remote_control_key_id, a.sid)<
('%04X%04X'):format(b.remote_control_key_id, b.sid)
end)
end
ct.main='\n
\n
\n'
..'
]=]
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'))