Module:Statistiques de portails

 Documentation[créer] [purger]

La documentation de ce module est générée par le modèle {{Documentation module}}.
Les éditeurs peuvent travailler dans le bac à sable (créer).
Voir les statistiques d'appel depuis le wikicode sur l'outil wstat et les appels depuis d'autres modules.

local p = {}
local math_mod = require( "Module:Math" )

--Chargement de la liste En/Au/Aux/A
local gdata
local success, resultat = pcall (mw.loadData, "Module:Drapeau/Data" )
if success then
    gdata = resultat
else
    -- Banque de données à minima en cas de bogue dans le Module:Drapeau/Data
    gdata={}
    gdata.data={};
    gdata.data[142]={qid="Q142", label="France", genre="fs"}
end
--Aide:Fonction_genre
local genre = mw.loadData("Module:Drapeau/Domaine").genre

local function _latinise_letters(tmparg)
            --2>--remove case
            tmparg=mw.ustring.lower(tmparg);
            --2>--remove acccent
            tmparg=mw.ustring.gsub(tmparg, "[áàâäãå]", "a");
            tmparg=mw.ustring.gsub(tmparg, "[æ]", "ae");
            tmparg=mw.ustring.gsub(tmparg, "[ç]", "c");
            tmparg=mw.ustring.gsub(tmparg, "[éèêë]", "e");
            tmparg=mw.ustring.gsub(tmparg, "[íìîï]", "i");
            tmparg=mw.ustring.gsub(tmparg, "[ñ]", "n");
            tmparg=mw.ustring.gsub(tmparg, "[óòôöõ]", "o");
            tmparg=mw.ustring.gsub(tmparg, "[œ]", "oe");
            tmparg=mw.ustring.gsub(tmparg, "[úùûü]", "u");
            tmparg=mw.ustring.gsub(tmparg, "[ýÿ]", "y");

            return tmparg;
end

local function _latinise(tmparg)
            --2>--remove case and accents
            tmparg=_latinise_letters(tmparg);
            --3>--remove ponct
            tmparg=mw.ustring.gsub(tmparg, "[' -_]", "");
            
            return tmparg;
end

local function pagesInCategoryGlobal(pays,portail) 
	local i = {}
 	if (portail == nil) then
 		portail=pays
 	end
 	i['portail']=portail
 	
	local catPortail='Portail:' .. portail .. '/Articles liés'
	i['catPortail']='Category:'..catPortail
	i['articles']=mw.site.stats.pagesInCategory( catPortail, 'pages'  )
	
	
	local l='sur Terre'
	
	local catgeo ='Article géolocalisé ' .. l
	local catgeoQ1 ='Article de qualité géolocalisé ' .. l
	local catgeoQ2 ='Bon article géolocalisé ' .. l
	i['catGeo']='Category:'..catgeo
	if mw.title.new('category:'..catgeo).exists then
		i['geo']=mw.site.stats.pagesInCategory( catgeo, 'pages'  )+mw.site.stats.pagesInCategory( catgeoQ1, 'pages'  )+mw.site.stats.pagesInCategory( catgeoQ2, 'pages'  )
		i['geoRatio']=	'';
		i['geoQ']=mw.site.stats.pagesInCategory( catgeoQ1, 'pages'  )+mw.site.stats.pagesInCategory( catgeoQ2, 'pages'  )
		
	else
		i['geo']=0;i['geoRatio']=0;i['geoQ']=0
	end
		
	
	
	return i
end

local function pagesInCategory(pays,portail) 
	local i = {}
 	if (portail == nil) then
 		portail=pays
 	end
 	i['portail']=portail
 	
	local paysId = gdata.idByName[_latinise(pays)]
	local paysData =gdata.data[paysId]
	
	local catPortail='Portail:' .. portail .. '/Articles liés'
	i['catPortail']='Category:'..catPortail
	i['articles']=mw.site.stats.pagesInCategory( catPortail, 'pages'  )
	
	local l=paysData.label
	--cas spéciaux
	if(paysId==148) then
		l=portail
	end
	
	local catgeo ='Article géolocalisé ' .. genre[paysData.genre].en .. ' ' .. l
	local catgeoQ1 ='Article de qualité géolocalisé ' .. genre[paysData.genre].en .. ' ' .. l
	local catgeoQ2 ='Bon article géolocalisé ' .. genre[paysData.genre].en .. ' ' .. l
	i['catGeo']='Category:'..catgeo
	if mw.title.new('category:'..catgeo).exists then
		i['geo']=mw.site.stats.pagesInCategory( catgeo, 'pages'  )+mw.site.stats.pagesInCategory( catgeoQ1, 'pages'  )+mw.site.stats.pagesInCategory( catgeoQ2, 'pages'  )
		i['geoRatio']= math.floor(10000*i['geo']/i['articles'])/100
		i['geoQ']=mw.site.stats.pagesInCategory( catgeoQ1, 'pages'  )+mw.site.stats.pagesInCategory( catgeoQ2, 'pages'  )
		
	else
		i['geo']=0;i['geoRatio']=0;i['geoQ']=0
	end
		
	
	
	return i
end

function p.row(frame) 
	local args = frame.args
	local i = {}
	
	if(args[1] == nil) then
		--entete
		return '! Portail !! Total !! Articles géolocalisés !! pourcentage !! Articles géolocalisés labélisés \n'
	end
	
	local tab
	if(args[1]=='Terre') then
		tab=pagesInCategoryGlobal(args[1],args[2])
	else
		tab=pagesInCategory(args[1],args[2])
	end
		
	return '|-\n'
		..'|  [[Portail:'..tab['portail']..']]*'
		..'|| [[:'..tab['catPortail'] .. '|' .. tab['articles'] ..']]'
		..'|| [[:'..tab['catGeo'] .. '|' .. tab['geo'] ..']]'
		..'|| '.. tab['geoRatio'] .. '%'
		..'|| '.. tab['geoQ'] .. '\n'
end
return p