Dark Mode

Pojdi na vsebino

Modul:Official website

Iz Wikipedije, proste enciklopedije
local makeUrl = require('Modul:URL/peskovnik')._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 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.P2439) 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.getEntityObject().claims.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 then
 return '' ..
 'Ni URL-ja. Prosimo, da tukaj dolocite URL ali ga dodate v Wikipodatke.' ..
 ''
end
 local ret = {}
 ret[#ret + 1] = string.format(
 '%s',
 makeUrl(options.url, options.display)
 )
 if options.format == 'flash' then
 ret[#ret + 1] = mw.getCurrentFrame():expandTemplate{
 title = 'Link note',
 args = {note = 'Zahtevan [[Adobe Flash Player]]'}
 }
 end
 if options.mobile then
 ret[#ret + 1] = '(' .. makeUrl(options.mobile, 'mobilno') .. ')'
 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 = 'Uradnemu spletnemu mestu manjka URL'
 elseif not url and wikidataurl then
return ''
 elseif url and wikidataurl then
 if url:gsub('/%s*$', '') ~= wikidataurl:gsub('/%s*$', '') then
 category = 'Uradna spletna stran razlicna v Wikipodatkih in v Wikipediji'
 end
 else
 category = 'Uradna spletna stran ni v Wikipodatkih'
 end
 return category and string.format('[[Kategorija:%s]]', category) or ''
end

function p._main(args)
 local wikidataurl = fetchWikidataUrl()
 local url = args[1] or args.URL or args.url or wikidataurl
 local formattedUrl = renderUrl{
 url = url,
 display = args[2] or args.name or 'Uradno spletno mesto',
 mobile = args.mobile,
 format = args.format
 }
 return formattedUrl .. renderTrackingCategory(url, wikidataurl)
end

function p.main(frame)
 local args = require('Modul:Arguments').getArgs(frame, {
 wrappers = 'Predloga:Uradno spletno mesto'
 })
 return p._main(args)
end

return p