Модуль:URL

Зьвесткі зь Вікіпэдыі — вольнай энцыкляпэдыі

Дакумэнтацыю да гэтага модуля можна стварыць у Модуль:URL/Дакумэнтацыя

--
-- Ангельская частка
--

local p = {}
 
local function safeUri(s)
	local success, uri = pcall(function()
		return mw.uri.new(s)
	end)
	if success then
		return uri
	end
end

local function extractUrl(args)
	for name, val in pairs(args) do
		if name ~= 2 and name ~= "msg" then
			local url = name .. "=" .. val;
			url = mw.ustring.gsub(url, '^[Hh][Tt][Tt][Pp]([Ss]?):(/?)([^/])', 'http%1://%3')
			local uri = safeUri(url);
			if uri and uri.host then
				return url
			end
		end
	end
end

function p._url(url, text, msg)
	url = mw.text.trim(url or '')
	text = mw.text.trim(text or '')
	local nomsg = (msg or ''):sub(1,1):lower() == "n" or msg == 'false' -- boolean: true if msg is "false" or starts with n or N

	if url == '' then
		if text == '' then
			if nomsg then
				return nil
			else
				return mw.getCurrentFrame():expandTemplate{ title = 'Ш2', args = { 'URL', "''example.com''", "''неабавязковы тэкст вываду''" } }
			end
		else
			return text
		end
	end

	-- Калі URL зьмяшчае незакадаваныя пропусты, закадаваць іх, бо MediaWiki палічыць пропуст канцом URL.
	url = mw.ustring.gsub(url, '%s', function(s) return mw.uri.encode(s, 'PATH') end)

	-- Калі ёсьць пусты радок запыту ці кавалак ідэнтыфікатару, выдаліць іх, інакш mw.uri.new выдасьць памылку
	url = mw.ustring.gsub(url, '#$', '')
	url = mw.ustring.gsub(url, '%?$', '')

	-- Калі URL HTTP[S] бяз двух нахільных рысак, выправіць.
	url = mw.ustring.gsub(url, '^[Hh][Tt][Tt][Pp]([Ss]?):(/?)([^/])', 'http%1://%3')

	-- Апрацаваць URL зь Вікізьвестак у фармаце http://
	url = mw.ustring.gsub(url, '^[Hh][Tt][Tt][Pp]([Ss]?)://', 'http%1://')

	local uri = safeUri(url)

	-- Апрацаваць URL без пратаколу і URL, якія залежаць ад пратаколу,
	-- напр. www.example.com/foo або www.example.com:8080/foo і //www.example.com/foo
	if uri and (not uri.protocol or (uri.protocol and not uri.host)) and url:sub(1, 2) ~= '//' then
		url = 'http://' .. url
		uri = safeUri(url)
	end

	if text == '' then
		if uri then
			if uri.path == '/' then uri.path = '' end

			local port = ''
			if uri.port then port = ':' .. uri.port end

			text = mw.ustring.lower(uri.host or '') .. port .. (uri.relativePath or '')

			-- Дадаць <wbr> перад пасьлядоўнасьцямі _/.-#
			text = mw.ustring.gsub(text,"(/+)","<wbr/>%1")      -- Першай МУСІЦЬ быць гэта. "<wbr/>" мае ў сабе "/".
			text = mw.ustring.gsub(text,"(%.+)","<wbr/>%1")
			text = mw.ustring.gsub(text,"(%#+)","<wbr/>%1")
			text = mw.ustring.gsub(text,"(_+)","<wbr/>%1")
		else -- URL блага сфармаваны, тады проста вывесьці, як перададзены
			text = url
		end
	end

	return mw.ustring.format('<span class="url">[%s %s]</span>', url, text)
end

--[[
Асноўны пункт уваходу для выкліку з Шаблён:URL.
--]]
function p.url(frame)
	local templateArgs = frame.args
	local parentArgs = frame:getParent().args
	local url = templateArgs[1] or parentArgs[1]
	local text = templateArgs[2] or parentArgs[2] or ''
	local msg = templateArgs.msg or parentArgs.msg or ''
	url = url or extractUrl(templateArgs) or extractUrl(parentArgs) or ''
	return p._url(url, text, msg)
end

--[[
Пункт уваходу для выкліку з Шаблён:URL2.
Дапомна функцыя не вяртае паведамленьня.
Яна выразае вікіразьметку, цэтлікі html і ўсё, што пасьля пропусту.
--]]
function p.url2(frame)
	local templateArgs = frame.args
	local parentArgs = frame:getParent().args
	local url = templateArgs[1] or parentArgs[1]
	local text = templateArgs[2] or parentArgs[2] or ''
	-- дапомна — без паведамленьня
	local msg = templateArgs.msg or parentArgs.msg or 'no'
	url = url or extractUrl(templateArgs) or extractUrl(parentArgs) or ''
	-- калі url прыйшоў з выкліку Вікізьвестак, у ім можа быць дададзены абразок асадкі,
	-- які варта захаваць і не забыць яго вярнуць.
	local u1, penicon = mw.ustring.match( url, "(.*)(&nbsp;<span class='penicon.*)" )
	if penicon then url = u1 end
	-- выразаць з url цэтлікі html і [ ]
	url = (url or ''):gsub("<[^>]*>", ""):gsub("[%[%]]", "")
	-- абрэзаць усё пасьля пропусту
	url = url:gsub("%%20", " "):gsub(" .*", "")
	return (p._url(url, text, msg) or "") .. (penicon or "")
end

--
-- Расейская частка
--

function startsWith( source, substring )
	if mw.ustring.len( substring ) > mw.ustring.len( source ) then
		return false
	end
	return mw.ustring.sub( source, 1, mw.ustring.len( substring ) ) == substring
end

function formatUrlImpl( source, title, length )
	local scheme, host, path
	local postfix = ''
	local arg1, arg2 = source, title
	local isTestPage = mw.title.getCurrentTitle().prefixedText == 'Модуль:URL'
	
	-- Дзьве квадратныя дужкі запар — [[вікі-спасылка]] замест [спасылкі] — вяртаем уваход як ёсьць.
	if string.find( arg1, "[[", 1, true ) then
		local result = arg1
		return result
	end
	
	-- Болей за адну квадратную дужку — хутчэй за ўсё зададзена болей за адзін URL — таксама вяртаем як ёсьць.
	if select(2, string.gsub( arg1, "%[", "" )) > 1 then
		local result = arg1
		return result
	end
	
	source = mw.text.trim( source, "%[%] " )
	local titleDelimeterPosition = mw.ustring.find( source, " ", 1 )
	if titleDelimeterPosition then
		if not title or title == "" then
			title = mw.ustring.sub( source, titleDelimeterPosition + 1 )
			local postfixDelimeterPosition = mw.ustring.find( title, "%]", 1 )
			if postfixDelimeterPosition then
				postfix = mw.ustring.sub( title, postfixDelimeterPosition + 1 )
				title = mw.ustring.sub( title, 1, postfixDelimeterPosition - 1 )
			end
		end
		source = mw.ustring.sub( source, 1, titleDelimeterPosition - 1 )
	end
	
	local hostStartPosition
	local schemeDelimeterPosition = mw.ustring.find( source, "://", 1, true )
	if schemeDelimeterPosition then
		scheme = mw.ustring.sub( source, 1, schemeDelimeterPosition + 2)
		hostStartPosition = schemeDelimeterPosition + 3
	elseif mw.ustring.find( source, "^//", 1 ) then
		scheme = "//"
		hostStartPosition = 3
	elseif mw.ustring.find( source, "^mailto:", 1 ) then
		scheme = "mailto:"
		hostStartPosition = 8
	elseif mw.ustring.find( source, "@", 1 ) then
		scheme = "mailto:"
		source = scheme .. source
		hostStartPosition = 8
	else
		scheme = "http://"
		source = scheme .. source
		hostStartPosition = 8
	end

	if title then
		local finds = mw.ustring.find( arg1, "[", 1, true )
		if titleDelimeterPosition and finds and finds > titleDelimeterPosition + 1 then
			-- Калі titleDelimeterPosition не пацэліў у дужку і знайшоў пропуст раней, напрыклад "a [b  c]",
			-- то ўсё скончыць і выдаць першы аргумэнт бяз зьменаў.
			if arg2 == nil then
				return arg1
			-- Калі ёсьць arg2, а мы распарсіць спасылку ня здолелі, і значыць
			-- замяніць title ня зможам карэктна, то гэта памылка.
			-- Зь іншага боку, калі arg2 няма, а arg1 вельмі складаны, тады,
			-- магчыма, гэта нармальна, і на ўваход у модуль перададзеная
			-- занадта аформленая спасылка.
			else
				return arg1
			end
		end
		return '[' .. source .. ' ' .. title .. ']' .. postfix
	end

	local hostDelimeterPosition = mw.ustring.find( source, "/", hostStartPosition, true )
	if hostDelimeterPosition then
		host = mw.ustring.sub( source, hostStartPosition, hostDelimeterPosition - 1 )
		if hostDelimeterPosition == mw.ustring.len( source ) then
			path = nil
		else
			path = mw.ustring.sub( source, hostDelimeterPosition + 1 )
		end
	else
		host = mw.ustring.sub( source, hostStartPosition )
	end

	-- фарматаваньне пасьля разбору
	if startsWith( host, 'www.' ) then
		host = mw.ustring.sub( host, 5 )
	end
	host = mw.language.new( 'be-tarask' ):lc( host )

	if path and path ~= '' and path ~= '/' then
		local title = host .. '/' .. path
		if length and #title > length then
			title = host .. '/' .. mw.ustring.sub( path, 1, length - #title - 2 ) .. '…'
		end
		return '[' .. source .. ' ' .. title .. ']' .. postfix
	else
		return '[' .. source .. ' ' .. host .. ']' .. postfix
	end
end

function p.formatUrl( frame )
	local url = frame.args[1] or ''
	local title = frame.args[2] or ''
	local length = frame.args['length'] and tonumber( frame.args['length'] )

	url = mw.text.trim( url )
	title = mw.text.trim( title )

	if url == '' then
		return nil
	end
	if title == '' then
		title = nil
	end
	return formatUrlImpl( url, title, length )
end

function p.formatUrlSingle( context, options, url )
	url = mw.text.trim( url )
	if url == '' then
		return nil
	end
	local title = nil
	if ( options['text'] and options['text'] ~= '' ) then
		title = options['text']
	end
	local length = options['length'] and tonumber( options['length'] )

	return formatUrlImpl( url, title, length )
end

return p