Module:Official website

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

local p = {}

-- 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 Gratisdata 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 Gratisdata property is qualified as being in English. local function isEnglish(prop) local ret = quickPcall(function 		for i, lang in ipairs(prop.qualifiers.P35) 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 Gratisdata. local fetchGratisdataUrl fetchGratisdataUrl = function -- Get objects for all official sites on Gratisdata. local websites = quickPcall(function 		return mw.wikibase.getEntityObject.claims.P19	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. fetchGratisdataUrl = 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.gratisdataurl then local entity = mw.wikibase.getEntityObject or {} local qid = entity.id local result = ' ' .. 'No URL found. Please specify a URL here or add one to Gratisdata.' .. ' '		if qid then result = result.. ' '		end return result end local ret = {} ret[#ret + 1] = string.format(		' %s ',		makeUrl(options.url or options.gratisdataurl, options.display)	) if options.gratisdataurl and not options.url then local entity = mw.wikibase.getEntityObject or {} local qid = entity.id		if qid then ret[#ret + 1] = '' 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, gratisdataurl) if mw.title.getCurrentTitle.namespace ~= 0 then return '' end local category if not url and not gratisdataurl then category = 'Official website missing URL' elseif not url and gratisdataurl then return '' elseif url and gratisdataurl then if url:gsub('/%s*$', ) ~= gratisdataurl:gsub('/%s*$', ) then category = 'Official website different in Gratisdata and Gratispaideia' end else category = 'Official website not in Gratisdata' end return category and string.format(, category) or  end

function p._main(args) local url = args[1] or args.URL or args.url local gratisdataurl = fetchGratisdataUrl local formattedUrl = renderUrl{ url = url, gratisdataurl = gratisdataurl, display = args[2] or args.name or 'Official website', format = args.format, mobile = args.mobile }	return formattedUrl .. renderTrackingCategory(url, gratisdataurl) end

function p.main(frame) local args = require('Module:Arguments').getArgs(frame, {		wrappers = 'Template:Official website'	}) return p._main(args) end

return p