-- vim:set ft=lua:
dofile(mg.script_name:gsub('[^\\/]*$','')..'util.lua')
ct=CreateContentBuilder(GZIP_THRESHOLD_BYTE)
ct:Append(DOCTYPE_HTML4_STRICT..[=[
]=])
focusID=nil
post=AssertPost()
if post then
focusID=GetVarInt(post,'del')
if focusID then
edcb.DelAutoAdd(focusID)
ct:Append('
削除しました
\n')
end
end
edcb.htmlEscape=15
a=edcb.EnumAutoAdd()
pageCount=AUTOADDEPG_PAGE_COUNT
focusID=focusID or GetVarInt(mg.request_info.query_string,'id')
if focusID then
--focusIDの行を含むページを探す
focusIndex=BinarySearchBound(a,{dataID=focusID},CompareFields('dataID'))
page=math.floor(math.max(math.min(focusIndex-1,#a-1),0)/pageCount)
else
page=GetVarInt(mg.request_info.query_string,'page',0,(#a-1)/pageCount) or 0
end
pageNav=''
if #a>pageCount then
for i=math.max(page-1,1),math.min(math.max(page-1,1)+6,(#a+pageCount-1)/pageCount) do
pageNav=pageNav..(i-1==page and ((i-1)*pageCount+1)..'~ ' or '
'..((i-1)*pageCount+1)..'~ ')
end
pageNav=(page==0 and '|<< ' or '
|<< ')..pageNav
..(page==math.floor((#a-1)/pageCount) and '>>|' or '
>>|\n')
end
ct:Append(pageNav)
ct:Append([=[