মডিউল:Redirect

-- This module provides functions for getting the target of a redirect page.local p = {}-- Gets a mw.title object, using pcall to avoid generating script errors if we-- are over the expensive function count limit (among other possible causes).local function getTitle(...)local success, titleObj = pcall(mw.title.new, ...)if success thenreturn titleObjelsereturn nilendend-- Gets the name of a page that a redirect leads to, or nil if it isn't a-- redirect.function p.getTargetFromText(text)local target = string.match(text,"^%s*#[Rr][Ee][Dd][Ii][Rr][Ee][Cc][Tt]%s*:?%s*%[%[([^%[%]|]-)%]%]") or string.match(text,"^%s*#[Rr][Ee][Dd][Ii][Rr][Ee][Cc][Tt]%s*:?%s*%[%[([^%[%]|]-)|[^%[%]]-%]%]") or string.match(text,"^%s*#পুনর্নির্দেশ%s*:?%s*%[%[([^%[%]|]-)%]%]")return target and mw.uri.decode(target, 'PATH')end-- Gets the target of a redirect. If the page specified is not a redirect,-- returns nil.function p.getTarget(page, fulltext)-- Get the title object. Both page names and title objects are allowed-- as input.local titleObjif type(page) == 'string' or type(page) == 'number' thentitleObj = getTitle(page)elseif type(page) == 'table' and type(page.getContent) == 'function' thentitleObj = pageelseerror(string.format("bad argument #1 to 'getTarget'".. " (string, number, or title object expected, got %s)",type(page)), 2)endif not titleObj or not titleObj.isRedirect thenreturn nilend-- Find the target by using string matching on the page content.local target = p.getTargetFromText(titleObj:getContent() or "")if target thenlocal targetTitle = getTitle(target)if targetTitle thenif fulltext thenreturn targetTitle.fullTextelsereturn targetTitle.prefixedTextendelsereturn nilendelse-- The page is a redirect, but matching failed. This indicates a bug in-- the redirect matching pattern, so throw an error.error(string.format('could not parse redirect on page "%s"',fulltext and titleObj.fullText or titleObj.prefixedText))endend--[[-- Given a single page name determines what page it redirects to and returns the-- target page name, or the passed page name when not a redirect. The passed-- page name can be given as plain text or as a page link.-- -- Returns page name as plain text, or when the bracket parameter is given, as a-- page link. Returns an error message when page does not exist or the redirect-- target cannot be determined for some reason.--]]function p.luaMain(rname, bracket, fulltext)if type(rname) ~= "string" or not rname:find("%S") thenreturn nilendbracket = bracket and "[[%s]]" or "%s"rname = rname:match("%[%[(.+)%]%]") or rnamelocal target = p.getTarget(rname, fulltext)local ret = target or rnameret = getTitle(ret)if ret thenif fulltext thenret = ret.fullTextelseret = ret.prefixedTextendreturn bracket:format(ret)elsereturn nilendend-- Provides access to the luaMain function from wikitext.function p.main(frame)local args = require('Module:Arguments').getArgs(frame, {frameOnly = true})return p.luaMain(args[1], args.bracket, args.fulltext) or ''end-- Returns true if the specified page is a redirect, and false otherwise.function p.luaIsRedirect(page)local titleObj = getTitle(page)if not titleObj thenreturn falseendif titleObj.isRedirect thenreturn trueelsereturn falseendend-- Provides access to the luaIsRedirect function from wikitext, returning 'yes'-- if the specified page is a redirect, and the blank string otherwise.function p.isRedirect(frame)local args = require('Module:Arguments').getArgs(frame, {frameOnly = true})if p.luaIsRedirect(args[1]) thenreturn 'yes'elsereturn ''endendreturn p