模組:Official website

模組解[睇] [改] [史] [清]

概要

{{#invoke:Official website|main}}

用途

呢個模組係官網模嘅真身，負責喺維基數據攞官網網址，再將佢格式化，等可以擺喺 ｢拎｣（Links）或者 ｢出面網頁｣ 度用。

本地化

呢個模組做過本地化，用 ｢END LOCAL｣ 關鍵字可以搵到。本地化基本上係模擬未升級之前（2022年10月13號之前）嘅輸出，即係喺 ｢官方網站｣ 前面加篇名。但係新嘅本地化會剔走篇名後面嘅括弧部分。

用紋章院做例：

• 升級前　：紋章院嘅官方網站
• 升級後　：Official website
• 本地化後：紋章院嘅官方網站

用 Scheme (程式語言) 做例：

• 升級前　：Scheme (程式語言)嘅官方網站
• 升級後　：Official website
• 本地化後：Scheme嘅官方網站

類別

新模組會分析網站，將某嘅版加入維護類別，呢啲類別升級前似乎並唔存在，所以類別亦都做咗本地化：

原本嘅類別	本地化後
Official website missing URL	官方網站冇網址
Official website different in Wikidata and Wikipedia	官方網站喺維基數據同喺維基有唔同網址
Official website not in Wikidata	官方網站喺維基數據冇網址

模組嘅編輯說明

因為要檢查係咪中日韓文字，呢個模組同書名模組變咗有聯繫。

睇埋

• 模:URL
• 模:官網
• 模組:書名

local makeUrl = require('Module:URL')._url

local p = {}

p.adjust_spacing_p = false;

-- Wrapper for pcall which returns nil on failure.
local function quickPcall(func)
	local success, result = pcall(func)
	if success then
		return result
	end
end

-- Gets the rank for a Wikidata property table. Returns 1, 0 or -1, in
-- order of rank.
local function getRank(prop)
	local rank = prop.rank
	if rank == 'preferred' then
		return 1
	elseif rank == 'normal' then
		return 0
	elseif rank == 'deprecated' then
		return -1
	else
		-- No rank or undefined rank is treated as "normal".
		return 0
	end
end

-- Finds whether a Wikidata property is qualified as being in English.
local function isEnglish(prop)
	local ret = quickPcall(function ()
		for i, lang in ipairs(prop.qualifiers.P407) do
			if lang.datavalue.value['numeric-id'] == 1860 then
				return true
			end
		end
		return false
	end)
	return ret == true
end

-- Fetches the official website URL from Wikidata.
local fetchWikidataUrl
fetchWikidataUrl = function()
	-- Get objects for all official sites on Wikidata.
	local websites = quickPcall(function ()
		return mw.wikibase.getAllStatements(mw.wikibase.getEntityIdForCurrentPage(), 'P856')
	end)

	-- Clone the objects in case other code needs them in their original order.
	websites = websites and mw.clone(websites) or {}

	-- Add the table index to the objects in case it is needed in the sort.
	for i, website in ipairs(websites) do
		website._index = i
	end

	-- Sort the websites, first by highest rank, and then by websites in the
	-- English language, then by the website's original position in the
	-- property list. When we are done, get the URL from the highest-sorted
	-- object.
	table.sort(websites, function(ws1, ws2)
		local r1 = getRank(ws1)
		local r2 = getRank(ws2)
		if r1 ~= r2 then
			return r1 > r2
		end
		local e1 = isEnglish(ws1)
		local e2 = isEnglish(ws2)
		if e1 ~= e2 then
			return e1
		end
		return ws1._index < ws2._index
	end)
	local url = quickPcall(function ()
		return websites[1].mainsnak.datavalue.value
	end)

	-- Cache the result so that we only do the heavy lifting once per #invoke.
	fetchWikidataUrl = function ()
		return url
	end

	return url
end

-- Render the URL link, plus other visible output.
local function renderUrl(options)
	if not options.url and not options.wikidataurl then
		local qid = mw.wikibase.getEntityIdForCurrentPage()
		local result = '<strong class="error">' ..
			--[[ LOCAL: localize error message -- disable original message
			-- END LOCAL
			'No URL found. Please specify a URL here or add one to Wikidata.' ..
			-- LOCAL: replace with our own version
			--]]
			'喺維基數據搵唔到網站資料；'..
			'你可以揀人手打，或者擺個官方網址入維基數據。'..
			-- END LOCAL
			'</strong>'
		if qid then
			result = result.. ' [[File:OOjs UI icon edit-ltr-progressive.svg |frameless |text-top |10px |alt=Edit this at Wikidata |link=https://www.wikidata.org/wiki/' .. qid .. '#P856|Edit this at Wikidata]]'
		end
		return result
	end
	local ret = {}
	ret[#ret + 1] = string.format(
		'<span class="official-website">%s</span>',
		makeUrl(options.url or options.wikidataurl, options.display)
	)
	if options.wikidataurl and not options.url then
		local qid = mw.wikibase.getEntityIdForCurrentPage()
		if qid then
			ret[#ret + 1] = '[[File:OOjs UI icon edit-ltr-progressive.svg |frameless |text-top |10px |alt=Edit this at Wikidata |link=https://www.wikidata.org/wiki/' .. qid .. '#P856|Edit this at Wikidata]]'
		end
	end
	if options.format == 'flash' then
		ret[#ret + 1] = mw.getCurrentFrame():expandTemplate{
			title = 'Color',
			args = {'#505050', '(Requires [[Adobe Flash Player]])'}
		}
	end
	if options.mobile then
		ret[#ret + 1] = '(' .. makeUrl(options.mobile, 'Mobile') .. ')'
	end
	return table.concat(ret, ' ')
end

-- Render the tracking category.
local function renderTrackingCategory(url, wikidataurl)
	if mw.title.getCurrentTitle().namespace ~= 0 then
		return ''
	end
	local category
	if not url and not wikidataurl then
		category = 'Official website missing URL'
		-- LOCAL: translate maintenance category
		category = '官方網站冇網址'
		-- END LOCAL
	elseif not url and wikidataurl then
		return ''
	elseif url and wikidataurl then
		if url:gsub('/%s*$', '') ~= wikidataurl:gsub('/%s*$', '') then
			category = 'Official website different in Wikidata and Wikipedia'
			-- LOCAL: translate maintenance category
			category = '官方網站喺維基數據同喺維基有唔同網址'
			-- END LOCAL
		end
	else
		category = 'Official website not in Wikidata'
		-- LOCAL: translate maintenance category
		category = '官方網站喺維基數據冇網址'
		-- END LOCAL
	end
	return category and string.format('[[Category:%s]]', category) or ''
end

function p._main(args)
	local url = args[1] or args.URL or args.url
	local wikidataurl = fetchWikidataUrl()
	-- LOCAL: restore the Cantonese introducer but make adjustments for non-CJK
	local default_label = '官方網站';
	local qid = mw.wikibase.getEntityIdForCurrentPage();
	-- We might be tempted to retrieve the article's title through Wikidata
	-- this is a bad idea because it will not work if the article is unconnected
	local data = mw.wikibase.getEntity(qid);
	local title = mw.title.getCurrentTitle().text;
	if title then
		local display_title = title;
		-- Cut out any parenthesized qualifier in the label
		display_title = mw.ustring.gsub(display_title, '%s*%([^%(%)]+%)$', '')
		-- Check if the label ends in a CJK character
		local det = mw.ustring.match(display_title, '(.)$');
		local english_p = true;
		local aux = require('模組:書名');
		if aux then
			english_p = not aux.cjk_p(det);
		end
		if english_p and p.adjust_spacing_p then
			default_label = display_title .. ' 嘅' .. default_label;
		else
			default_label = display_title .. '嘅' .. default_label;
		end
	end
	-- END LOCAL
	local formattedUrl = renderUrl{
		url = url,
		wikidataurl = wikidataurl,
		--[[ LOCAL: change default label - disable the original code
		-- END LOCAL
		display = args[2] or args.name or 'Official website',
		-- LOCAL: change default label - replace with our version
		--]]
		display = args[2] or args.name or default_label,
		-- END LOCAL
		format = args.format,
		mobile = args.mobile
	}
	return formattedUrl .. renderTrackingCategory(url, wikidataurl)
end

function p.main(frame)
	local args = require('Module:Arguments').getArgs(frame, {
		--[[ LOCAL: disable incorrect template name
		-- END LOCAL
		wrappers = 'Template:Official website'
		-- LOCAL: replace with correct template name
		--]]
		wrappers = 'Template:官網'
		-- END LOCAL
	})
	return p._main(args)
end

return p