Module:Requested move: Difference between revisions

Revision as of 17:40, 23 March 2014

Latest revision as of 23:51, 19 March 2024

(41 intermediate revisions by 10 users not shown)

Line 1:

-- This module implements {{requested move}} and {{move-multi}}.

-- Load necessary modules

local getArgs = require('Module:Arguments').getArgs

local tableTools = require('Module:TableTools')

local yesno = require('Module:Yesno')

local mRedirect = require('Module:Redirect')

-- Set static values

local defaultNewPagename = '?' -- Name of new pages that haven't been specified

local p = {}

Line 10 ⟶ 15:

-- Helper functions

--------------------------------------------------------------------------------

local function err(msg, numargs, reason, count)

-- Generates a wikitext error message

local commented = '<!-- {{subst:requested move|'

return string.format('{{error|%s}}', msg)

if count ~= 1 then

commented = commented .. 'new1='

end

commented = commented .. numargs[1]['new']

for i = 2,count do

commented = commented .. string.format('|current%i=%s', i, (numargs[i]['current'] or ''))

commented = commented .. string.format('|new%i=%s', i, (numargs[i]['new'] or ''))

end

if reason then

commented = commented .. '|reason=' .. reason

end

commented = commented .. '}} -->'

return string.format('{{error|%s}}', msg) .. commented

end

local function validateTitle(page, paramName, paramNum)

-- Validates a page name, and if it is valid, returns true and the title

-- object for that page. If it is not valid, returns false and the

-- appropriate error message.

-- Check for a small subset of characters that cannot be used in MediaWiki

-- titles. For the full set of restrictions, see

-- [[Wikipedia:Page name#Technical restrictions and limitations]]. This is

-- also covered by the invalid title check, but with this check we can give

-- a more specific error message.

local invalidChar = page:match('[#<>%[%]|{}]')

if invalidChar then

local msg = 'Invalid character "'

.. invalidChar

.. '" found in the "'

.. paramName

.. paramNum

.. '" parameter'

return false, msg

end

-- Get the title object. This also checks for invalid titles that aren't

-- covered by the previous check.

local titleObj = mw.title.new(page)

if not titleObj then

local msg = 'Invalid title detected in parameter "'

.. paramName

.. paramNum

.. '"; check for [[Wikipedia:Page name#'

.. 'Technical restrictions and limitations|invalid characters]]'

return false, msg

end

-- Check for interwiki links. Titles with interwikis make valid title

-- objects, but cannot be created on the local wiki.

local interwiki = titleObj.interwiki

if interwiki and interwiki ~= '' then

local msg = 'Invalid title detected in parameter "'

.. paramName

.. paramNum

.. '"; has [[Help:Interwiki linking|interwiki prefix]] "'

.. titleObj.interwiki

.. ':"'

return false, msg

end

return true, titleObj

end

--------------------------------------------------------------------------------

-- Validate title entry point (used at [[Template:RMassist/core]])

--------------------------------------------------------------------------------

function p.validateTitle(frame)

local value = frame.args[1]

local validTitle, currentTitle = validateTitle(value or '', '1', '')

if not validTitle then

-- If invalid, the second parameter is the error message.

return currentTitle

end

return 'yes'

end

--------------------------------------------------------------------------------

-- Confirm protection levels (used at [[Template:Requested move/dated]])

--------------------------------------------------------------------------------

function p.protected(frame)

local args = getArgs(frame, {parentOnly = true})

if args.protected then

local levels = mw.title.new(args.protected).protectionLevels

local levelMove = levels['move'] and levels['move'][1]

local levelEdit = levels['edit'] and levels['edit'][1]

local levelCreate = levels['create'] and levels['create'][1]

if levelMove == 'sysop'

or levelEdit == 'sysop'

or levelEdit == 'editprotected'

or levelCreate == 'sysop' then

return 'sysop'

elseif levelMove == 'templateeditor'

or levelEdit == 'templateeditor'

or levelCreate == 'templateeditor' then

return 'templateeditor'

end

end

end

Line 25 ⟶ 129:

----------------------------------------------------------------------------

local args = getArgs(frame, {parentOnly = true})

local title = mw.title.getCurrentTitle()

Line 42 ⟶ 146:

-- The current1 parameter is a special case, as it does not need to be

-- specified. To avoid clashes with later current parameters, we need to

-- add it to the args table manually. Although it does not need to be

-- specified, we don't want the module's behaviour to change if a user

-- specifies it anyway.

--

-- Also, we allow the first positional parameter to be an alias for the

Line 55 ⟶ 157:

-- true.

--]]

if not args.current1 then
args.current1 = title.subjectPageTitle.prefixedText

end

args.new1 = args.new1 or args[1]

-- Find the first new page title, if specified, and keep a record of the

-- prefix used to make it; the prefix will be used later to make error

-- messages.

local firstNewParam

if args.new1 then

firstNewParamPrefix = 'new'

elseif args[1] then

args.new1 = args[1]

firstNewParamPrefix = ''

else

firstNewParamPrefix = ''

end

-- Build the sorted argument table.

local argsByNum = {}

for k, v in pairs(args) do

Line 70 ⟶ 188:

end

argsByNum = tableTools.compressSparseArray(argsByNum)

-- Calculate the number of arguments and whether we are dealing with a

-- multiple nomination.

local argsByNumCount = #argsByNum

local multi = (argsByNumCount >= 2)

if argsByNumCount >= 2 then

multi = true

else

multi = false

end

--[[

-- Validate new params.

Line 88 ⟶ 204:

local num = t.num

if not new or new == 'New title for page ' .. tostring(num) then

argsByNum[i].new = '?'defaultNewPagename

end

end

Line 94 ⟶ 210:

local new = argsByNum[1].new

if not new or new == 'NewName' then

argsByNum[1].new = '?'defaultNewPagename

end

end

----------------------------------------------------------------------------

-- Error checks

Line 118 ⟶ 234:

local msg = '[[Template:Requested move]] must be used in a TALKSPACE, e.g., [[%s:%s]]'

msg = string.format(msg, mw.site.namespaces[title.namespace].talk.name, title.text)

return err(msg, argsByNum, args.reason, argsByNumCount)

end

-- Check the arguments

local currentDupes, newDupes = {}, {}

for i, t in ipairs(argsByNum) do

local current = t.current

local new = t.new

local num = t.num

local validCurrent

local currentTitle

local subjectSpace

-- Check for invalid or missing currentn parameters

-- This check must come first, as mw.title.new will give an error if

-- it is given invalid input.

if not current then

local msg = '"current%d" parameter missing;'

.. ' please add it or remove the "new%d" parameter'

msg = string.format(msg, num, num)

return err(msg, argsByNum, args.reason, argsByNumCount)

end

-- CheckGet the currentn title object, and check for invalid currentn titles. This check

-- must come before the namespace and existence checks, as they will

local currentTitle = mw.title.new(current)

-- produce script errors if the title object doesn't exist.

if not currentTitle then

validCurrent, currentTitle = validateTitle(current, 'current', num)

local msg = 'Invalid title detected in parameter "current' .. num .. '";'

if not validCurrent then

.. ' check for [[Wikipedia:Page name#'

-- If invalid, the second parameter is the error message.

.. 'Technical restrictions and limitations|invalid characters]] and'

local msg = currentTitle

.. ' incorrectly formatted'

return err(msg, argsByNum, args.reason, argsByNumCount)

.. ' [[Help:Interwiki linking|interwiki prefixes]]'

return err(msg)

end

-- Category namespace check

subjectSpace = mw.site.namespaces[currentTitle.namespace].subject.id

if subjectSpace == 14 then

local msg = '[[Template:Requested move]] is not for categories,'

.. ' see [[Wikipedia:Categories for discussion]]'

return err(msg, argsByNum, args.reason, argsByNumCount)

-- File namespace check

elseif subjectSpace == 6 then

local msg = '[[Template:Requested move]] is not for files;'

.. ' see [[Wikipedia:Moving a page#Moving a file page]]'

.. ' (use [[Template:Rename media]] instead)'

return err(msg, argsByNum, args.reason, argsByNumCount)

-- Draft and User namespace check

elseif subjectSpace == 2 or subjectSpace == 118 then

local msg = '[[Template:Requested move]] is not for moves from draft or user space.'

.. '<br>If you would like to submit your draft for review, add <code>{{tlf|subst:submit}}</code>'

.. 'to the top of the page.'

.. '<br>Otherwise, see [[Help:How to move a page]] for instructions.'

.. '<br>If you cannot move it yourself, see [[Wikipedia:Requested moves#Requesting technical moves|Requesting technical moves]].'

return err(msg, argsByNum, args.reason, argsByNumCount)

end

-- Request to move a single page must be placed on that page's talk, or the page it redirects to

if not multi and args.current1 ~= title.subjectPageTitle.prefixedText then

local idealpage = mw.title.new(args.current1).talkPageTitle

local rtarget = mRedirect.getTarget(idealpage)

if rtarget == title.prefixedText then

multi = true

else

local msg = 'Request to move a single page must be placed on that page\'s talk or the page its talk redirects to'

return err(msg, argsByNum, args.reason, argsByNumCount)

end

end

-- Check for non-existent titles.

if not currentTitle.exists then

local msg = 'Must create [[:%s]] before requesting that it be moved'

msg = string.format(msg, current)

return err(msg, argsByNum, args.reason, argsByNumCount)

end

-- Check for duplicate current titles

-- We know the id isn't zero because we have already checked for

Line 161 ⟶ 318:

.. currentTitle.prefixedText

.. '"); cannot move the same page to two different places'

return err(msg, argsByNum, args.reason, argsByNumCount)

else

currentDupes[currentId] = true

end

-- Check for invalid new titles. This check must come before the

-- Category namespace check

-- duplicate title check for new titles, as it will produce a script

local subjectSpace = mw.site.namespaces[currentTitle.namespace].subject.id

-- error if the title object doesn't exist.

if subjectSpace == 14 then

local validNew, newTitle = validateTitle(

local msg = '[[Template:Requested move]] is not for categories,'

new,

.. ' see [[Wikipedia:Categories for discussion]]'

multi and 'new' or firstNewParamPrefix,

return err(msg)

num

)

-- File namespace check

elseifif subjectSpacenot == 6validNew then

-- If invalid, the second parameter is the error message.

local msg = '[[Template:Requested move]] is not for files;'

local msg = newTitle

.. ' see [[Wikipedia:Moving a page#Moving a file page]]'

return err(msg, argsByNum, args.reason, argsByNumCount)

.. ' (use [[Template:Rename media]] instead)'

end

return err(msg)

-- Check for duplicate new titles.

-- User namespace check

-- We can't use the page_id, as new pages might not exist, and therefore

elseif subjectSpace == 2 then

-- multiple pages may have an id of 0. Use the prefixedText as a

local msg = '[[Template:Requested move]] is not for moves from user space;'

-- reasonable fallback. We also need to check that we aren't using the

.. ' see [[Wikipedia:Articles for creation]]'

-- default new page name, as we don't want it to be treated as a duplicate

.. ' (use '

-- page if more than one new page name has been omitted.

.. mw.text.nowiki('{{')

local newPrefixedText = newTitle.prefixedText

.. '[[Wikipedia:Substitution|subst]]:[[Template:Submit|submit]]'

if newPrefixedText ~= defaultNewPagename then

.. mw.text.nowiki('}}')

if newDupes[newPrefixedText] then

.. ' instead),'

local msg = 'Duplicate title detected ("'

.. ' or [[Help:How to move a page|move it yourself]]'

.. newTitle.prefixedText

return err(msg)

.. '"); cannot move two different pages to the same place'

return err(msg, argsByNum, args.reason, argsByNumCount)

else

newDupes[newPrefixedText] = true

end

end

end

----------------------------------------------------------------------------

-- Check for page protection

----------------------------------------------------------------------------

local highestProtection = ''

local protectedTitle = ''

-- Checking page protection requires use of .protectionLevels(), one of the

-- "expensive" parser functions, which stop working after 500 uses total.

-- Without some limit set, this starts breaking near 250 distinct titles.

local titleLimit = 80

local titlesChecked = 0

local titles = {}

-- Consolidate duplicate titles (i.e., when moving A to B and B to C)

for i = 1,argsByNumCount do

titles[mw.title.new(argsByNum[i]['current'])] = true

titles[mw.title.new(argsByNum[i]['new'])] = true

end

-- Check each title t, while ignoring the "true" value

for t, _ in pairs(titles) do

if titlesChecked < titleLimit then

local levels = t.protectionLevels

titlesChecked = titlesChecked + 1

local levelMove = levels['move'] and levels['move'][1]

local levelEdit = levels['edit'] and levels['edit'][1]

local levelCreate = levels['create'] and levels['create'][1]

if levelMove == 'sysop'

or levelEdit == 'sysop'

or levelEdit == 'editprotected'

or levelCreate == 'sysop' then

highestProtection = 'sysop'

protectedTitle = tostring(t)

break

elseif levelMove == 'templateeditor'

or levelEdit == 'templateeditor'

or levelCreate == 'templateeditor' then

highestProtection = 'templateeditor'

protectedTitle = tostring(t)

end

else

-- End the "for" loop if the titleLimit is reached

break

end

end

Line 199 ⟶ 406:

-- For custom values of |heading=, use those.

-- For |heading=yesno, |heading=yn, etc., usedon't the current date asinclude a heading.

-- Otherwise don'tuse includethe current date as a heading.

local heading = args.heading or args.header

local useHeading = yesno(heading, heading)

if heading and useHeading == heading then

heading = '== ' .. heading .. ' ==\n\n'

elseif useHeading == false then

heading = ''

else

local lang = mw.language.getContentLanguage()

local headingDate = lang:formatDate('dj F Y')

heading = '== Requested move ' .. headingDate .. ' ==\n\n'

else

heading = ''

end

Line 233 ⟶ 440:

rmd[#rmd + 1] = '|' .. new1param .. argsByNum[1].new

-- Add the rest of themore arguments for multi.

if multi then

for i = 2, argsByNumCount do

Line 243 ⟶ 450:

rmd[#rmd + 1] = '|new' .. numString .. '=' .. new

end

end

-- The old multi template always has a bar before the closing curly

-- braces, so we will do that too.

-- Highest page protection (if admin or template-editor)

if highestProtection == 'sysop' or highestProtection == 'templateeditor' then

rmd[#rmd + 1] = '|protected=' .. protectedTitle

end

-- Pass through demo=yes to the

if args.demo ~= nil then

rmd[#rmd + 1] = '|demo='

rmd[#rmd + 1] = args.demo

end

-- The old multi template always has a bar before the closing curly

-- braces, so we will do that too.

if multi then

rmd[#rmd + 1] = '|'

end

Line 259 ⟶ 480:

local current = t.current

local new = t.new

local msg = '\n%s[[:%s]] → '

if new ~= defaultNewPagename then

msg = msg .. '{{no redirect|%s}}'

else

msg = msg .. '%s'

end

local item = string.format(

msg,

'\n%s[[:%s]] → {{no redirect|%s}}',

multi and '* ' or '', -- Don't make a list for single page moves.

current,

Line 274 ⟶ 501:

-- Reason

local reason = args.reason or args[2] or 'Please place your rationale for the proposed move here.'

reason = '– ' .. reason .. ' ~~~~'

if yesno(args.sign or args.sig or args.signature or 'unspecified', not reason:match("~~~$")) then

reason = reason .. ' ~~~~'

end

-- Talk blurb

local talk = ''

if yesno(args.talk, true) then

talk = frame:expandTemplate{title = 'Requested move/talk'}

else

talk = ''

end