変更は許可されていません
\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([=[
]=])
end
ct:Append([=[