Module:Leaderboard
From Sagan 4 Alpha Wiki
Documentation for this module may be created at Module:Leaderboard/doc
--Tools for displaying leaderboards
--WIP
local p = {}
local userlist = mw.loadJsonData('Module:Leaderboard/users.json')
function p.main(frame)
--Generate a leaderboard of sagan 4 submissions under certain parameters
local mainCat = frame.args[1] or "Species" --the submission type category to be used (leaving it open for landmarks)
local taxon = frame.args["taxon"] or "+" --Ever wanted to know who made the most saucebacks? Was it Ovi? Was it Hydro? Was it me? Who knows!
local week = frame.args["week"] or "+" --so Species Georg can be overtaken short-term
local gen = frame.args["generation"] or frame.args["gen"] or "+" --or even shorter-term ig
local whateverProperty = frame.args[2] or "" --psuedo-smw goes here so I don't have to be in pain about people wanting to do More leaderboards than I accounted for
local limit = frame.args["limit"] or "10"
local leaderType = frame.args["property"] or "Creator"
local label = frame.args["label"] or "Leaderboard"
local exstatus = frame.args["status"] or "+"
local biotatype = frame.args["biota type"] or "+"
local exgen = ""
if frame.args["exgen"] then
exgen = "[[exgen::"..frame.args["exgen"].."]]"
end
local PropList = ""
local currentOffset = 0
local endNextLoop = false
local debugtext = ""
local count = tonumber(frame:callParserFunction('#ask',{'[[Category:'..mainCat..']][[Biota type::'..biotatype..']][[Taxonomy::'..taxon..']][[Week::'..week..']][[Generation::'..gen..']][[Status::'..exstatus..']]'..whateverProperty..exgen,format="count"}))
local smwlimit = 500
while not endNextLoop do
if smwlimit ~= 500 then
endNextLoop = true
end
if currentOffset > count then
debugtext = debugtext..", and yet we see the offset at "..currentOffset
end
local smwResult = frame:callParserFunction('#ask',{'[[Category:'..mainCat..']][[Biota type::'..biotatype..']][[Taxonomy::'..taxon..']][[Week::'..week..']][[Generation::'..gen..']][[Status::'..exstatus..']]'..whateverProperty..exgen,"?"..leaderType,limit=tostring(smwlimit),searchlabel="",offset=tostring(currentOffset),format="plainlist",headers="hide",mainlabel="-"})
if smwResult == "" then break end
PropList = PropList..", "..smwResult
currentOffset = currentOffset + 500
--debugtext = debugtext.."\n\n"..tostring(currentOffset)
if currentOffset + 500 > count and endNextLoop == false then
smwlimit = count - currentOffset
debugtext = count..", "..currentOffset + smwlimit
--endNextLoop = true
end
end
--local PropArray = string.gmatch(PropList, '([^,]+)')
local PropTable = {}
for prop in string.gmatch(PropList, '([^,]+)') do
prop = prop:match("^%s*(.-)%s*$")
if not PropTable[prop] then
PropTable[prop] = 0
end
PropTable[prop] = PropTable[prop] + 1
end
local proxyTable = {}
for propval, count in pairs(PropTable) do
if leaderType == "Creator" or leaderType == "Artist" then
table.insert(proxyTable,{property='[[User:'..propval..'|'..propval..']]',total=count})
elseif leaderType == "Domain" or leaderType == "Kingdom" or leaderType == "Phylum" or leaderType == "Class" or leaderType == "Order" or leaderType == "Family" then
table.insert(proxyTable,{property="{{#queryformlink:form=ViewTaxon|query string=ViewTaxon[taxon]="..propval.."&_run|link text="..propval.."}}",total=count})
elseif leaderType == "Ancestor" then
table.insert(proxyTable,{property='[['..propval..']]',total=count})
else
table.insert(proxyTable,{property=propval,total=count})
end
end
table.sort(proxyTable, function(a,b)
return a.total > b.total
end)
--generate leaderboard table
local leaderboardTable = '{| class="wikitable" style="width: 250px;"\n!colspan="3"|'..label..'!!n/entries\n|-'
--local currentPlace = 0
--local lastValue = 0
for i, item in pairs(proxyTable) do
leaderboardTable = leaderboardTable..'\n|\'\'\''..tostring(i)..'\'\'\'\n|colspan="2"|'..item.property.."\n|"..item.total..'\n|-'
if i + 1 == limit + 1 then
leaderboardTable = leaderboardTable..'\n|}'
break
end
end
return frame:preprocess(leaderboardTable)--.."\n"..debugtext--..PropList
end
return p