Module:Leaderboard

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