controllu Paràmetros Disconnotos

--[[ * Mòdulu pro averguare si unu template est impreadu cun paràmetros disconnotos. * Bolet impreadu in su template, dislindende sa lista de sos nùmenes de sos paràmetros chi si bolent e  * su testu de ammustrare in casu de errore, che a unu messàgiu o una categoria de servìtziu. * * Su mòdulu est istadu importadu dae: * http://en.wikipedia.org/w/index.php?title=Module:Check_for_unknown_parameters&oldid=669492475 ]]--  local p = {}  local function isnotempty(s) return s and s:match( '^%s*(.-)%s*$' ) ~= '' end  function p.check (frame) local args = frame.args local pargs = frame:getParent().args local ignoreblank = isnotempty(frame.args['ignorabòidos']) local checkpos = isnotempty(frame.args['controllupositzionales']) local knownargs = {} local unknown = 'Agatadu _VALUE_, '  local res = {} local regexps = {} local comments = {} local commentstr = ''  -- est abilitadu in totu sos namespaces chi non sunt de cuntierra o de sos impitadores, -- o si nono petzi in cussu definidu in su paràmetru "ns" local ns = mw.title.getCurrentTitle().namespace if args.ns then if ns ~= tonumber(args.ns) then return '' end elseif ns == 2 or (ns % 2 == 1) then return '' end  -- crea sa lista de args connotos, sas espressiones regulares e s'istringa de torrare for k, v in pairs(args) do if type(k) == 'number' then v = mw.ustring.gsub(v, '^%s*(.-)%s*$', '%1') knownargs[v] = 1 else if (k == 'disconnotu' and type(v) == 'string') then unknown = v elseif (mw.ustring.match(k, '^regexp[%d]*$') and type(v) == 'string') then table.insert(regexps, '^' .. v .. '$') end end end  -- loop over the parent args, and make sure they are on the list for k,v in pairs(pargs) do if (type(k) == 'string' and knownargs[k] == nil) then local knownflag = nil for r = 1,#regexps do if ( mw.ustring.match(k,regexps[r]) ) then knownflag = 1 end end if ( (not knownflag) and ( (not ignoreblank) or (ignoreblank and isnotempty(v)) ) ) then k = mw.ustring.gsub(k, '[^%w\-_ ]', '?') local r = mw.ustring.gsub(unknown, '_VALUE_', k) table.insert(res, r) table.insert(comments, '"' .. k .. '"') end elseif (checkpos and type(k) == 'number' and knownargs[tostring(k)] == nil) then if ( (not ignoreblank) or (ignoreblank and isnotempty(v)) ) then local r = mw.ustring.gsub(unknown, '_VALUE_', k) table.insert(res, r) table.insert(comments, '"' .. k .. '"') end end end  if (#comments > 0) then commentstr = '' end  return table.concat(res) .. commentstr end  return p