変更は許可されていません
\n')
end
if post then
itemList=GetItemList()
if mg.get_var(post,'add') then
wday=GetVarInt(post,'wday',0,7) or 0
hour=GetVarInt(post,'hour',0,23) or 0
minute=GetVarInt(post,'minute',0,59) or 0
weekMin=(wday*24+hour%24)*60+minute
for i,v in ipairs(itemList) do
if v.weekMin==weekMin then
--既にある
weekMin=nil
break
end
end
if weekMin then
itemList[#itemList+1]={
enabled=true,
weekMin=weekMin,
flags=(GetVarInt(post,'basicOnlyBS',1,1) or 0)+
(GetVarInt(post,'basicOnlyCS1',1,1) or 0)*2+
(GetVarInt(post,'basicOnlyCS2',1,1) or 0)*4+
(GetVarInt(post,'basicOnlyCS3',1,1) or 0)*8
}
ct:Append('追加しました
\n')
end
else
newItemList={}
for i,v in ipairs(itemList) do
if GetVarInt(post,'del-'..v.weekMin)~=1 then
v.enabled=GetVarInt(post,'enabled-'..v.weekMin)==1
newItemList[#newItemList+1]=v
end
end
itemList=newItemList
ct:Append('変更しました
\n')
end
for i,v in ipairs(itemList) do
edcb.WritePrivateProfile('EPG_CAP',i-1,
('%02d:%02d'):format(math.floor(v.weekMin/60)%24,v.weekMin%60)
..(math.floor(v.weekMin/24/60)==0 and '' or 'w'..math.floor(v.weekMin/24/60)),srvIni)
edcb.WritePrivateProfile('EPG_CAP',(i-1)..'Select',v.enabled,srvIni)
edcb.WritePrivateProfile('EPG_CAP',(i-1)..'BasicOnlyFlags',v.flags,srvIni)
end
edcb.WritePrivateProfile('EPG_CAP','Count',#itemList,srvIni)
for i=#itemList+1,999 do
--掃除
if edcb.GetPrivateProfile('EPG_CAP',i-1,'',srvIni)=='' then break end
edcb.WritePrivateProfile('EPG_CAP',i-1,nil,srvIni)
edcb.WritePrivateProfile('EPG_CAP',(i-1)..'Select',nil,srvIni)
edcb.WritePrivateProfile('EPG_CAP',(i-1)..'BasicOnlyFlags',nil,srvIni)
end
edcb.ReloadSetting(false)
end
edcb.htmlEscape=15
basicOnlyBS=edcb.GetPrivateProfile('SET','BSBasicOnly',1,commonIni)~='0'
basicOnlyCS1=edcb.GetPrivateProfile('SET','CS1BasicOnly',1,commonIni)~='0'
basicOnlyCS2=edcb.GetPrivateProfile('SET','CS2BasicOnly',1,commonIni)~='0'
basicOnlyCS3=edcb.GetPrivateProfile('SET','CS3BasicOnly',0,commonIni)~='0'
ct:Append([=[