-- vim:set ft=lua: dofile(mg.script_name:gsub('[^\\/]*$','')..'util.lua') ct=CreateContentBuilder(GZIP_THRESHOLD_BYTE) ct:Append([=[ 設定/プリセット/録画フォルダ - EDCB

設定/プリセット/録画フォルダ

]=]) srvIni='EpgTimerSrv.ini' post=AssertPost() if post and not ALLOW_SETTING then post=nil ct:Append('
変更は許可されていません
\n') end if post then presetID=GetVarInt(post,'presetID') or 0 rs=nil for i,v in ipairs(edcb.EnumRecPresetInfo()) do if v.id==presetID then rs=v.recSetting break end end if rs then if mg.get_var(post,'add') then addFolder={recFolder=nil,writePlugIn='Write_Default.dll',recNamePlugIn=''} item=mg.get_var(post,'dir') or '' if item=='' then addFolder.recFolder='!Default' elseif item:find('^[^%c*?"<>|]+$') then ff=edcb.FindFile(item,1) if ff and ff[1].isdir or item:find('^[A-Za-z]:\\$') then addFolder.recFolder=item end end if addFolder.recFolder then item=mg.get_var(post,'writePlugIn') or '' for i,v in ipairs(EnumPlugInFileName('Write')) do if v:upper()==item:upper() then addFolder.writePlugIn=item break end end item=mg.get_var(post,'recNamePlugIn') or '' for i,v in ipairs(EnumPlugInFileName('RecName')) do if v:upper()==item:upper() then addFolder.recNamePlugIn=item break end end item=mg.get_var(post,'recNameOption') or '' if addFolder.recNamePlugIn~='' and item:find('^%C+$') then addFolder.recNamePlugIn=addFolder.recNamePlugIn..'?'..item end table.insert(GetVarInt(post,'partial')==1 and rs.partialRecFolder or rs.recFolderList,addFolder) ct:Append('
追加しました
\n') end else newList={} for i,v in ipairs(rs.recFolderList) do if GetVarInt(post,'del-'..i)~=1 then newList[#newList+1]=v end end newPartial={} for i,v in ipairs(rs.partialRecFolder) do if GetVarInt(post,'del-p-'..i)~=1 then newPartial[#newPartial+1]=v end end if #rs.recFolderList~=#newList or #rs.partialRecFolder~=#newPartial then rs.recFolderList=newList rs.partialRecFolder=newPartial ct:Append('
削除しました
\n') end end defName='REC_DEF_FOLDER' if presetID>0 then defName=defName..presetID end edcb.WritePrivateProfile(defName,'Count',#rs.recFolderList,srvIni) for i,v in ipairs(rs.recFolderList) do edcb.WritePrivateProfile(defName,i-1,v.recFolder,srvIni) edcb.WritePrivateProfile(defName,'WritePlugIn'..(i-1),v.writePlugIn,srvIni) edcb.WritePrivateProfile(defName,'RecNamePlugIn'..(i-1),v.recNamePlugIn,srvIni) end defName=defName:gsub('ER','ER_1SEG') edcb.WritePrivateProfile(defName,'Count',#rs.partialRecFolder,srvIni) for i,v in ipairs(rs.partialRecFolder) do edcb.WritePrivateProfile(defName,i-1,v.recFolder,srvIni) edcb.WritePrivateProfile(defName,'WritePlugIn'..(i-1),v.writePlugIn,srvIni) edcb.WritePrivateProfile(defName,'RecNamePlugIn'..(i-1),v.recNamePlugIn,srvIni) end end else presetID=GetVarInt(mg.request_info.query_string,'presetID') or 0 end edcb.htmlEscape=15 preset=nil for i,v in ipairs(edcb.EnumRecPresetInfo()) do if v.id==presetID then preset=v break end end if preset then ct:Append([=[
]=]) for i,v in ipairs(preset.recSetting.recFolderList) do ct:Append(' \n') end for i,v in ipairs(preset.recSetting.partialRecFolder) do ct:Append(' \n') end ct:Append([=[
録画フォルダ出力PlugInファイル名PlugIn部分受信
'..v.recFolder..''..v.writePlugIn..''..v.recNamePlugIn ..'いいえ
'..v.recFolder..''..v.writePlugIn..''..v.recNamePlugIn ..'はい
録画フォルダ (フォルダは事前に作成してください)

出力PlugIn
ファイル名PlugIn
ファイル名PlugInオプション


]=]) 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'))