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

# 設定/同時に削除するファイルの拡張子

]=]) srvIni='EpgTimerSrv.ini' function GetItemList() local count=tonumber(edcb.GetPrivateProfile('DEL_EXT','Count',-1,srvIni)) or -1 if count<0 then --未設定 return {'.ts.err','.ts.program.txt'} end local ret={} for i=1,count do ret[i]=edcb.GetPrivateProfile('DEL_EXT',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,'ext') or '' if mg.get_var(post,'add') then for i,v in ipairs(itemList) do if IsEqualPath(v,item) then --既にある item=nil break end end if item and item:find('^[^%c/'..(WIN32 and '\\:*?"<>|' or '')..']+$') then itemList[#itemList+1]=item ct:Append('
追加しました
\n') 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_EXT',i-1,v,srvIni) end edcb.WritePrivateProfile('DEL_EXT','Count',#itemList,srvIni) for i=#itemList+1,999 do --掃除 if edcb.GetPrivateProfile('DEL_EXT',i-1,'',srvIni)=='' then break end edcb.WritePrivateProfile('DEL_EXT',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)..'\r\n'))