-- vim:set ft=lua: dofile(mg.script_name:gsub('[^\\/]*$','')..'util.lua') ct=CreateContentBuilder(GZIP_THRESHOLD_BYTE) ct:Append([=[

# 設定/削除対象フォルダ

]=]) srvIni='EpgTimerSrv.ini' function GetItemList() local ret={} for i=1,tonumber(edcb.GetPrivateProfile('DEL_CHK','Count',0,srvIni)) or 0 do ret[i]=edcb.GetPrivateProfile('DEL_CHK',i-1,'',srvIni) end return ret end post=AssertPost() if post and not ALLOW_SETTING then post=nil ct:Append('
変更は許可されていません
\n') end if post then itemList=GetItemList() item=mg.get_var(post,'dir') or '' if mg.get_var(post,'add') then for i,v in ipairs(itemList) do if v:upper()==item:upper() then --既にある item=nil break end end if item and item:find('^[^%c*?"<>|]+$') then ff=edcb.FindFile(item,1) if ff and ff[1].isdir or item:find('^[A-Za-z]:\\$') then itemList[#itemList+1]=item ct:Append('
追加しました
\n') end end elseif mg.get_var(post,'del') then for i,v in ipairs(itemList) do if v==item then table.remove(itemList,i) ct:Append('
削除しました
\n') break end end end for i,v in ipairs(itemList) do edcb.WritePrivateProfile('DEL_CHK',i-1,v,srvIni) end edcb.WritePrivateProfile('DEL_CHK','Count',#itemList,srvIni) for i=#itemList+1,999 do --掃除 if edcb.GetPrivateProfile('DEL_CHK',i-1,'',srvIni)=='' then break end edcb.WritePrivateProfile('DEL_CHK',i-1,nil,srvIni) end edcb.ReloadSetting(false) end edcb.htmlEscape=15 for i,v in ipairs(GetItemList()) do ct:Append([=[
]=]..v..[=[
]=]) end ct:Append([=[
]=]) ct:Finish() mg.write(ct:Pop(Response(200,'text/html','utf-8',ct.len)..(ct.gzip and 'Content-Encoding: gzip\r\n' or '')..'\r\n'))