View source for Module:Forumlink

local p = {}
local largs

--Keys must be lowercase
--Can override using same key as in types
local presets = {
	npo = { domain = 'npowned.net', type = 'invision',
		forum = 'forums/forum/%s/', topic = 'forums/topic/%s/', default = 'forums/' },
	cn = { domain = 'forums.cybernations.net', type='invision' },
	ns = { domain = 'forum.nationstates.net', type='phpbb' },
	tsp = { domain = 'tspforums.xyz', type='mybb' },
	tsparchive = { domain = 'archive.tspforums.xyz', type='mybbold' },
}

--Keys must be lowercase
--If parameters are numerical only, set sep to ''
local types = {
	invision = {
		sep = '-',
		announcement = 'announcement/%s/',
		forum = 'forum/%s/',
		news = 'news/%s/',
		profile = 'profile/%s/',
		topic = 'topic/%s/',
		post = '?do=findComment&comment=%s',
		default = 'index.php',
		postRequiresTopic = true
	},
	mybb = {
		sep = '',
		forum = 'forum-%s.html',
		profile = 'user-%s.html',
		topic = 'thread-%s.html',
		post = '-post-%s.html#pid%s',
		default = 'index.php',
		postRequiresTopic = true
	},
	mybbold = {
		sep = '',
		forum = 'forumdisplay.php?fid=%s',
		profile = 'member.php?action=profile&uid=%s',
		topic = 'showthread.php?tid=%s',
		post = '&pid=%s#pid%s',
		default = 'index.php',
		postRequiresTopic = true
	},
	phpbb = {
		sep = '',
		forum = 'viewforum.php?f=%s',
		profile = 'memberlist.php?mode=viewprofile&u=%s',
		topic = 'viewtopic.php?t=%s',
		post = 'viewtopic.php?p=%s#p%s',
		default = 'index.php',
		postRequiresTopic = false
	},
}

local function argDefault(arg, default)
	if mw.text.trim(largs[arg] or '') == '' then
		return default
	else
		return largs[arg]
	end
end

local function geturl(url, arg1, arg2, preset, ftype, typename)
	--Calculate overrides
	local part1, part2, sep
	if not preset then preset = {} end
	if preset[arg1] then
		part1 = preset[arg1]
	else 
		part1 = ftype[arg1]
	end
	if arg2 ~= '' then
		if preset[arg2] then
			part2 = preset[arg2]
		else
			part2 = ftype[arg2]
		end
	end
	if preset.sep then
		sep = preset.sep
	else
		sep = ftype.sep
	end
	
	if arg1 == 'default' then
		return url .. part1
	end
	
	local text1, text2 = '', ''
	text1 = mw.ustring.lower(largs[arg1])
	if arg2 ~= '' then
		text2 = mw.ustring.lower(largs[arg2])
	end
	
	if sep ~= ' ' then
		--character class: %s is any space character
		text1 = mw.ustring.gsub(text1, '%s', sep)
		text2 = mw.ustring.gsub(text2, '%s', sep)
	end
	
	--printf: %s is a placeholder for a string
	--param passed twice for formats that need it (e.g. phpbb post);
	--  if different params are needed the script will need a rewrite
	--  (Lua doesn't support specifying arg num)
	url = url .. mw.ustring.format(part1, text1, text1)
	if text2 ~= '' then
		url = url .. mw.ustring.format(part2, text2, text2)
	end
	
	if typename == 'mybb' and arg2 == 'post' then
		url = mw.ustring.gsub(url, '.html', '', 1)
	end
	
	return url
end

function p.main(frame)
	return p.call(frame:getParent().args)
end

function p.call(args)
	largs = args-- lazy shortcut for local args
	local ftype, typename, url, domain, display
	if argDefault('http') then
		url = 'http://'
	else
		url = 'https://'
	end
	local preset = presets[mw.ustring.lower(argDefault(1, ''))]
	if not preset then
		domain = argDefault(1)
		ftype = argDefault('type')
	else
		domain = preset.domain
		ftype = preset.type
	end
	if not domain then
		return '<span class="error">missing site address</span>'
	end
	if not ftype then
		return '<span class="error">missing forum type</span>'
	end
	ftype = mw.ustring.lower(ftype)
	typename = ftype
	ftype = types[ftype]
	if not ftype then
		return '<span class="error">type is invalid or unrecognized</span>'
	end
	url = url .. domain .. '/'
	
	--post has to come first, the rest are just in case multiple params are used accidentally
	local params = {'post', 'topic', 'profile', 'forum', 'news', 'announcement'}
	local component1 = 'default'
	local component2 = ''
	for i, para in ipairs(params) do
		if argDefault(para) then
			component1 = para
			if para == 'post' and ftype.postRequiresTopic then
				component2 = 'topic'
			end
			if component2 ~= '' and not argDefault(component2) then
				return '<span class="error">' .. component2 .. ' is required to link to ' .. component1 .. '</span>'
			end
			if component1 == 'post' and component2 == 'topic' then
				component1 = 'topic'
				component2 = 'post'
			end
			break
		end
	end
	
	url = geturl(url, component1, component2, preset, ftype, typename)
	
	if argDefault('numbered') then
		return '[' .. url .. ']'
	end
	
	display = argDefault(2)
	if not display then
		if component1 == 'default' then
			display = args[1] .. ' forums'
		else
			display = args[component1]
		end
	end
	return '[' .. url .. ' ' .. display .. ']'
end

return p
Description	What you type	What you get
Italic	''Italic text''	Italic text
Bold	'''Bold text'''	Bold text
Bold & italic	'''''Bold & italic text'''''	*Bold & italic text*