Бард-Вики

Модуль:URL: различия между версиями

← Предыдущая правкаСледующая правка →
м 1 версия импортирована
Check for nested calls. See Template_talk:URL for more details.
Строка 1: Строка 1:
function startsWith( source, substring )
--
if mw.ustring.len( substring ) > mw.ustring.len( source ) then
-- This module implements {{URL}}
return false
--
-- See unit tests at [[Module:URL/testcases]]
 
local p = {}
local function safeUri(s)
local success, uri = pcall(function()
return mw.uri.new(s)
end)
if success then
return uri
end
end
return mw.ustring.sub( source, 1, mw.ustring.len( substring ) ) == substring
end
end


p = {}
local function extractUrl(args)
 
for name, val in pairs(args) do
function formatUrlImpl( source, title, length )
if name ~= 2 and name ~= "msg" then
local scheme, host, path
local url = name .. "=" .. val;
local postfix = ''
url = mw.ustring.gsub(url, '^[Hh][Tt][Tt][Pp]([Ss]?):(/?)([^/])', 'http%1://%3')
local arg1, arg2 = source, title
local uri = safeUri(url);
local isTestPage = mw.title.getCurrentTitle().prefixedText == 'Модуль:URL'
if uri and uri.host then
return url
-- Две квадратные скобки подряд — [[вики-ссылка]] вместо [ссылки] — возвращаем вход как есть.
if string.find( arg1, "[[", 1, true ) then
local result = arg1
if not isTestPage then
result = result .. '[[Категория:Википедия:Статьи с вики-ссылкой, переданной в Модуль:URL]]'
if arg2 then
-- Если есть arg2, а мы распарсить ссылку не смогли, и значит заменить title не сможем корректно, это есть ошибка.
result = result .. '[[Категория:Википедия:Статьи с ошибочной работой Модуль:URL]]'
end
end
end
end
return result
end
-- Более одной квадратной скобки — скорее всего, задано более одного URL — тоже возвращаем как есть.
if select(2, string.gsub( arg1, "%[", "" )) > 1 then
local result = arg1
if not isTestPage then
result = result .. '[[Категория:Википедия:Статьи со сложным входом в Модуль:URL]]'
if arg2 then
-- Если есть arg2, а мы распарсить ссылку не смогли, и значит заменить title не сможем корректно, это есть ошибка.
result = result .. '[[Категория:Википедия:Статьи с ошибочной работой Модуль:URL]]'
end
end
return result
end
end
end
function p._url(url, text, msg)
url = mw.text.trim(url or '')
text = mw.text.trim(text or '')
source = mw.text.trim( source, "%[%] " )
-- Check for pre-formatted url. Catches '{{url|{{url|google.com}}}}' that can occur via template
local titleDelimeterPosition = mw.ustring.find( source, " ", 1 )
if (mw.ustring.match(url, '^<span class="url">')) then
if titleDelimeterPosition then
return url, text, msg
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
end
local hostStartPosition
local nomsg = (msg or ''):sub(1,1):lower() == "n" or msg == 'false' -- boolean: true if msg is "false" or starts with n or N
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
if url == '' then
local finds = mw.ustring.find( arg1, "[", 1, true )
if text == '' then
if titleDelimeterPosition and finds and finds > titleDelimeterPosition + 1 then
if nomsg then
-- Если titleDelimeterPosition промазал мимо скобки и нашел пробел раньше неё, к примеру "a [b  c]",
return nil
-- то свернуть всю нашу хиромантию и выдать первый аргумент без изменений.
if arg2 == nil then
return arg1 .. (isTestPage and '' or '[[Категория:Википедия:Статьи со сложным входом в Модуль:URL]]')
-- Если есть arg2, а мы распарсить ссылку не смогли, и значит заменить title не сможем корректно, это есть ошибка.
-- С другой стороны, если arg2 нет, а arg1 очень сложный, то возможно это нормальный ход вещей,
-- и на вход в модуль дана уже очень сильно оформленная ссылка.
else
else
return arg1 .. (isTestPage and '' or '[[Категория:Википедия:Статьи с ошибочной работой Модуль:URL]]')
return mw.getCurrentFrame():expandTemplate{ title = 'tlx', args = { 'URL', "''example.com''", "''optional display text''" } }
end
end
else
return text
end
end
return '[' .. source .. ' ' .. title .. ']' .. postfix
end
end


local hostDelimeterPosition = mw.ustring.find( source, "/", hostStartPosition, true )
-- If the URL contains any unencoded spaces, encode them, because MediaWiki will otherwise interpret a space as the end of the URL.
if hostDelimeterPosition then
url = mw.ustring.gsub(url, '%s', function(s) return mw.uri.encode(s, 'PATH') end)
host = mw.ustring.sub( source, hostStartPosition, hostDelimeterPosition - 1 )
 
if hostDelimeterPosition == mw.ustring.len( source ) then
-- If there is an empty query string or fragment id, remove it as it will cause mw.uri.new to throw an error
path = nil
url = mw.ustring.gsub(url, '#$', '')
else
url = mw.ustring.gsub(url, '%?$', '')
path = mw.ustring.sub( source, hostDelimeterPosition + 1 )
 
end
-- If it's an HTTP[S] URL without the double slash, fix it.
else
url = mw.ustring.gsub(url, '^[Hh][Tt][Tt][Pp]([Ss]?):(/?)([^/])', 'http%1://%3')
host = mw.ustring.sub( source, hostStartPosition )
 
end
local uri = safeUri(url)


-- post-split format options
-- Handle URL's without a protocol and URL's that are protocol-relative,
if startsWith( host, 'www.' ) then
-- e.g. www.example.com/foo or www.example.com:8080/foo, and //www.example.com/foo
host = mw.ustring.sub( host, 5 )
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
end
host = mw.language.new( 'en' ):lc( host )


if path and path ~= '' and path ~= '/' then
if text == '' then
local title = host .. '/' .. path
if uri then
if length and #title > length then
if uri.path == '/' then uri.path = '' end
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 port = ''
local url = frame.args[1] or ''
if uri.port then port = ':' .. uri.port end
local title = frame.args[2] or ''
local length = frame.args['length'] and tonumber( frame.args['length'] )


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


if url == '' then
-- Add <wbr> before _/.-# sequences
return nil
text = mw.ustring.gsub(text,"(/+)","<wbr/>%1")      -- This entry MUST be the first. "<wbr/>" has a "/" in it, you know.
text = mw.ustring.gsub(text,"(%.+)","<wbr/>%1")
-- text = mw.ustring.gsub(text,"(%-+)","<wbr/>%1") -- DISABLED for now
text = mw.ustring.gsub(text,"(%#+)","<wbr/>%1")
text = mw.ustring.gsub(text,"(_+)","<wbr/>%1")
else -- URL is badly-formed, so just display whatever was passed in
text = url
end
end
end
if title == '' then
 
title = nil
return mw.ustring.format('<span class="url">[%s %s]</span>', url, text)
end
return formatUrlImpl( url, title, length )
end
end


function p.formatUrlSingle( context, options, url )
--[[
url = mw.text.trim( url )
The main entry point for calling from Template:URL.
if url == '' then
--]]
return nil
function p.url(frame)
end
local templateArgs = frame.args
local title = nil
local parentArgs = frame:getParent().args
if ( options['text'] and options['text'] ~= '' ) then
local url = templateArgs[1] or parentArgs[1]
title = options['text']
local text = templateArgs[2] or parentArgs[2] or ''
end
local msg = templateArgs.msg or parentArgs.msg or ''
local length = options['length'] and tonumber( options['length'] )
url = url or extractUrl(templateArgs) or extractUrl(parentArgs) or ''
return p._url(url, text, msg)
end


return formatUrlImpl( url, title, length )
--[[
The entry point for calling from the forked Template:URL2.
This function returns no message by default.
It strips out wiki-link markup, html tags, and everything after a space.
--]]
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 ''
-- default to no message
local msg = templateArgs.msg or parentArgs.msg or 'no'
url = url or extractUrl(templateArgs) or extractUrl(parentArgs) or ''
-- if the url came from a Wikidata call, it might have a pen icon appended
-- we want to keep that and add it back at the end.
local u1, penicon = mw.ustring.match( url, "(.*)(&nbsp;<span class='penicon.*)" )
if penicon then url = u1 end
-- strip out html tags and [ ] from url
url = (url or ''):gsub("<[^>]*>", ""):gsub("[%[%]]", "")
-- truncate anything after a space
url = url:gsub("%%20", " "):gsub(" .*", "")
return (p._url(url, text, msg) or "") .. (penicon or "")
end
end


return p
return p

Версия от 01:08, 13 ноября 2025

Время
Внимание! Это один из самых используемых модулей.
Каждое его изменение создаёт дополнительную нагрузку на серверы проекта. Пожалуйста, убедитесь в адекватности и правильности ваших изменений, проверьте их на тестовых страницах.
Узнать число включений.
Файл:Padlock-silver.svg
Этот модуль относится к критическим. У него очень много включений или он используется с подстановкой. Из-за опасности вандализма или ошибочного редактирования он был защищён.

Модуль используется в шаблоне {{URL}}.

Тесты

34 тестов провалено.

test_formatUrl
Тест Ожидаемое значение Фактическое значение
Файл:X mark.svgN {{#invoke:URL | formatUrl | }} Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | EXAMPLE.com }} example.com Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | example.com }} example.com Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | www.example.com }} example.com Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | http://www.example.com }} example.com Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | http://пример.рф }} пример.рф Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | https://www.example.com }} example.com Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | ftp://www.example.com }} example.com Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | ftp://ftp.example.com }} ftp.example.com Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | http://www.example.com/ }} example.com Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | //ftp.example.com }} ftp.example.com Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | //www.example.com/ }} example.com Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | www.example.com/foo }} example.com/foo Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | http://www.example.com/foo }} example.com/foo Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | http://sub.example.com/foo/bar }} sub.example.com/foo/bar Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | example.com?a }} example.com?a Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | http://sub.example.com/foo/bar?a }} sub.example.com/foo/bar?a Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | example.com | title }} title Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | example.com?a | title }} title Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | http://sub.example.com/foo/bar | title }} title Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | http://sub.example.com/foo/bar?a | title }} title Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | [http://example.com] }} example.com Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | [http://example.com title] }} title Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | [http://пример.рф пример] }} пример Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | [http://example.com old title] | title }} title Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | email@example.com }} email@example.com Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | mailto:email@example.com }} email@example.com Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | [http://example.com title]{{ref-en}} }} title (англ.) Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | http://example.com/very/long/path/index.html | length = 25 }} example.com/very/long/pa… Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | http://very.long.domain.example.com/index.html | length = 25 }} very.long.domain.example.com/… Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | [http://very.long.domain.example.com/index.html] | length = 25 }} very.long.domain.example.com/… Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | [https://web.archive.org/web/20070520014853/http://example.com/] | length = 25 }} web.archive.org/web/2007… Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | [http://example.com example.com]<br>[http://www.example.ru example.ru] }} example.com
example.ru 		Ошибка скрипта: Функции «formatUrl» не существует.
Файл:X mark.svgN {{#invoke:URL | formatUrl | [[Site]] }} Site Ошибка скрипта: Функции «formatUrl» не существует. 



--
-- This module implements {{URL}}
--
-- See unit tests at [[Module:URL/testcases]]

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 '')
	
	-- Check for pre-formatted url. Catches '{{url|{{url|google.com}}}}' that can occur via template
	if (mw.ustring.match(url, '^<span class="url">')) then
		return url, text, msg
	end
	
	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 = 'tlx', args = { 'URL', "''example.com''", "''optional display text''" } }
			end
		else
			return text
		end
	end

	-- If the URL contains any unencoded spaces, encode them, because MediaWiki will otherwise interpret a space as the end of the URL.
	url = mw.ustring.gsub(url, '%s', function(s) return mw.uri.encode(s, 'PATH') end)

	-- If there is an empty query string or fragment id, remove it as it will cause mw.uri.new to throw an error
	url = mw.ustring.gsub(url, '#$', '')
	url = mw.ustring.gsub(url, '%?$', '')

	-- If it's an HTTP[S] URL without the double slash, fix it.
	url = mw.ustring.gsub(url, '^[Hh][Tt][Tt][Pp]([Ss]?):(/?)([^/])', 'http%1://%3')

	local uri = safeUri(url)

	-- Handle URL's without a protocol and URL's that are protocol-relative, 
	-- e.g. www.example.com/foo or www.example.com:8080/foo, and //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 '')

			-- Add <wbr> before _/.-# sequences
			text = mw.ustring.gsub(text,"(/+)","<wbr/>%1")      -- This entry MUST be the first. "<wbr/>" has a "/" in it, you know.
			text = mw.ustring.gsub(text,"(%.+)","<wbr/>%1")
			-- text = mw.ustring.gsub(text,"(%-+)","<wbr/>%1") 	-- DISABLED for now
			text = mw.ustring.gsub(text,"(%#+)","<wbr/>%1")
			text = mw.ustring.gsub(text,"(_+)","<wbr/>%1")
		else -- URL is badly-formed, so just display whatever was passed in
			text = url
		end
	end

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

--[[
The main entry point for calling from Template: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

--[[
The entry point for calling from the forked Template:URL2.
This function returns no message by default.
It strips out wiki-link markup, html tags, and everything after a space.
--]]
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 ''
	-- default to no message
	local msg = templateArgs.msg or parentArgs.msg or 'no'
	url = url or extractUrl(templateArgs) or extractUrl(parentArgs) or ''
	-- if the url came from a Wikidata call, it might have a pen icon appended
	-- we want to keep that and add it back at the end.
	local u1, penicon = mw.ustring.match( url, "(.*)(&nbsp;<span class='penicon.*)" )
	if penicon then url = u1 end
	-- strip out html tags and [ ] from url
	url = (url or ''):gsub("<[^>]*>", ""):gsub("[%[%]]", "")
	-- truncate anything after a space
	url = url:gsub("%%20", " "):gsub(" .*", "")
	return (p._url(url, text, msg) or "") .. (penicon or "")
end

return p
Источник — https://bard-wiki.net/index.php?title=Модуль:URL&oldid=33819