Module:Protection
Révision datée du 30 janvier 2015 à 19:18 par Hlm Z. (discussion)
La documentation pour ce module peut être créée à Module:Protection/doc
local p = {}
-- Chargement du module de données.
local donnees = mw.loadData('Module:Protection/Données')
-- Définition des tables de données.
local types = donnees.types
local cfg = donnees.configuration
--Redéfinitions utiles.
local format = mw.ustring.format
local insert = table.insert
local function protectionPage(modeProtection, titrePage)
-- Retourne vrai si la page courante est protégée et correspond
-- au type de protection.
local niveauProtection = titrePage.protectionLevels.edit[1]
return modeProtection.niveau == niveauProtection
end
local function estSousPage(titrePage)
-- Teste si la page actuelle est une sous-page /Documentation,
-- /Bac à sable ou /Test de modèle ou de module. Retourne vrai
-- si c'est le cas et faux sinon.
local espaceNom = titrePage.nsText == 'Modèle' or titrePage.nsText == 'Module'
local sousPage = titrePage.isSubpage and
(titrePage.subpageText == 'Documentation'
or titrePage.subpageText == 'Bac à sable'
or titrePage.subpageText == 'Test')
return espaceNom and sousPage
end
local function creerIconeTitre(modeProtection)
local iconeTitre = require('Module:Icône de titre')._main
local argsIcone = {
image = modeProtection.image,
lien = modeProtection.lien,
texte = modeProtection.texte,
taille = 15,
id = modeProtection.id or 'protection-edition'
}
return iconeTitre(argsIcone)
end
local function insertionCategorie(typeProtection, nsPage)
local nomCategorie = typeProtection.categorie[nsPage]
local defautCategorie = typeProtection.categorie['défaut']
local lienCategorie = '[[Catégorie:%s]]'
return format(lienCategorie, nomCategorie or defautCategorie)
end
local function bandeauProtection(titrePage, args)
local nsPage = args.nsdoc or titrePage.nsText
local titre = cfg[nsPage] or cfg['titreDéfaut']
local texte = mw.html.create('span')
local lienAdmin, lienJournal
-- Gestion du nombre d'inclusion pour les modéles/modules.
if nsPage == 'Modèle' or nsPage == 'Module' then
if args.nombre and tonumber(args.nombre) then
titre = format(titre, 'dans plus de ' .. mw.language.new('fr')
:formatNum(tonumber(args.nombre)))
else
titre = format(titre, 'sur un très grand nombre de')
end
end
-- Gestion du paramètre 'texte' et de ses liens internes
lienAdmin = mw.title.new(cfg['lienAdmin'])
:fullUrl(format(cfg['optionAdmin'],
mw.uri.encode(titrePage.fullText, 'WIKI')))
if nsPage == '' then lienAdmin = lienAdmin .. cfg['option2Admin'] end
lienJournal = mw.title.new(cfg['lienJournal'])
:fullUrl(format(cfg['optionJournal'],
mw.uri.encode(titrePage.fullText, 'WIKI')))
texte
:addClass('plainlinks')
:wikitext(format(cfg['texteBandeau'],
tostring(titrePage.talkPageTitle), lienAdmin, lienJournal))
return mw.getCurrentFrame():expandTemplate{
title = "Méta bandeau d'avertissement",
args = {
niveau = 'information',
['icône'] = types['protection'].image,
titre = args[1] or titre,
texte = tostring(texte)
}
}
end
function p.main(typeProtection, args, titrePage)
local modeProtection = types[typeProtection or 'protection']
local titrePage = titrePage or mw.title.getCurrentTitle()
local res = {}
if typeProtection == 'protection' and args.nocat then
return bandeauProtection(titrePage, args)
end
if protectionPage(modeProtection, titrePage) then
-- Création de l'icône de titre selon le mode de protection.
insert(res, creerIconeTitre(modeProtection))
-- Création du bandeau de protection pour le mode 'protection'.
if typeProtection == 'protection' then
insert(res, bandeauProtection(titrePage, args))
end
-- Catégorisation selon le mode de protection.
insert(res, insertionCategorie(modeProtection, titrePage.nsText))
elseif not estSousPage(titrePage) then
-- Catégorisation lorsque le niveau de protection en écriture ne
-- correspond pas ou plus. Note : les sous-pages '/Documentation',
-- '/Bac à sable' ou '/Test' appartenant aux modèles ou aux modules
-- ne sont pas – et ne doivent pas être – concernées.
insert(res, '[[Catégorie:Page dont la protection est à vérifier]]')
end
return table.concat(res)
end
local function adaptateur(nomFonction)
return function (frame)
local args = {}
local argsParent = frame:getParent().args
-- Paramètres vides interprétés par Lua.
for cle, val in pairs(argsParent) do
if val ~= '' or cle == 'nsdoc' then
args[cle] = mw.text.trim(val)
end
end
return p.main(nomFonction, args)
end
end
-- Insertion dans la table p des fonctions appelées par les
-- modèles à l'aide d'un adaptateur de fonction.
local nomsFonction = {'protection', 'semiProtection', 'semiProtectionLongue', 'nomProtégé'}
for _, nomFonction in ipairs(nomsFonction) do
p[nomFonction] = adaptateur(nomFonction)
end
return p
