Module:Numbered subpages

-- This module implements {{numbered subpages}}.

local getArgs = require('Module:Arguments').getArgs
local yesno = require('Module:Yesno')

p = {}

local function ifexist(page)
    if not page then return false end
    if mw.title.new(page).exists then return true end
    return false
end

function p.main(frame)
	local args = getArgs(frame)
	local maxk = tonumber(args.max or '50') or 50
	local mink = tonumber(args.min or '1') or 1
	local root = ''
	local missing = args.missing or (args.max and 'transclude' or 'skip')
	local ret = {}
	local headertemplate = args.headertemplate or ''
	local subpageTemplate = 'Portal subpage'
	if yesno(args.inline) then
		subpageTemplate = 'Portal subpage inline'
	end
	
	if missing ~= 'transclude' then
		root = frame:preprocess('{{FULLPAGENAME}}')
	end
	-- Uncomment the following line if we need to limit the total number of subpages
	-- maxk = (maxk > (mink + 250)) and (mink + 250) or maxk
	local SPAN = args.SPAN or ''
	local preload = args.preload or ''
	for i=mink,maxk do
		if missing == 'transclude' then
			if headertemplate == '' then
				ret[#ret + 1] = frame:expandTemplate{title = subpageTemplate, args = { i, SPAN=SPAN } }
			else 
				ret[#ret + 1] = frame:expandTemplate{title = subpageTemplate, args = { i, headertemplate=headertemplate, SPAN=SPAN } }
			end
		else
			subpagename = root .. '/' .. i
			if ifexist(subpagename) then
				if headertemplate == '' then
					ret[#ret + 1] = frame:expandTemplate{title = subpageTemplate, args = { i, SPAN=SPAN } }
				else 
					ret[#ret + 1] = frame:expandTemplate{title = subpageTemplate, args = { i, headertemplate=headertemplate, SPAN=SPAN } }
				end
			else
				if missing == 'link' then
					if preload then
						ret[#ret + 1] = '* ' .. frame:expandTemplate{title = 'edit', args = { subpagename, 'Create ' .. subpagename, preload=preload } }
					else
						ret[#ret + 1] = '* [[' .. subpagename .. ']]'
					end
				elseif missing == 'stop' then
					i = maxk + 1
				end
			end
		end
	end
	
	return table.concat(ret, '\n')
end

return p