Module:Random portal component - Revision history

Certes: ‎Check that subpage being presented exists. Reduce checks that subpages not being presented exist, to reduce Portal:San Francisco Bay Area from >500 expensive functions to 50

2020-10-03T10:08:46Z

‎Check that subpage being presented exists. Reduce checks that subpages not being presented exist, to reduce Portal:San Francisco Bay Area from >500 expensive functions to 50

← Previous revision		Revision as of 10:08, 3 October 2020
Line 10:		Line 10:
	local function subPageTrackingCategories(pages, max, header)		local function subPageTrackingCategories(pages, max, header)
	local retval = "";		local retval = "";
⚫	~~local~~ availableSubPageCount = 0;
⚫	local i;
	local thispagetitle = mw.title.getCurrentTitle().text		local thispagetitle = mw.title.getCurrentTitle().text

Line 23:		Line 21:
	end		end

	-- no tracking if this is a subpage		-- no tracking if this is a subpage
	if ((mw.ustring.match(thispagetitle, "/") ~= nil) and (thispagetitle ~= "AC/DC")) then		if ((mw.ustring.match(thispagetitle, "/") ~= nil) and (thispagetitle ~= "AC/DC")) then
	return retval		return retval
	end		end

		⚫	local maxNum = tonumber(max)
	-- limit checking to prevent Lua overload
	local ~~myMaxCheck~~ = 60		local availableSubPageCount = maxNum

	if tonumber(max) < myMaxCheck then
			-- Check for missing subpages at end of alleged number range
⚫	~~myMaxCheck~~ = tonumber(max)
			while availableSubPageCount > 0 and not mw.title.new(pages.subpage .. '/' .. tostring(availableSubPageCount)).exists do
		⚫	availableSubPageCount = availableSubPageCount - 1
	end		end
		⚫	if availableSubPageCount < maxNum then
	for i=1,myMaxCheck do
		⚫	retval = retval .. "[[Category:Random portal component with fewer available subpages than specified max]]"
⚫	~~local aSubPage =~~ mw.title.new(pages.subpage .. '/' .. i)
			else
	if (aSubPage.exists) then
			-- Check for spurious subpages beyond end of alleged number range
⚫	availableSubPageCount = availableSubPageCount + 1;
		⚫	while mw.title.new(pages.subpage .. '/' .. tostring(availableSubPageCount + 1)).exists do
			availableSubPageCount = availableSubPageCount + 1
	end		end
		⚫	if availableSubPageCount > maxNum then
	end
	if myMaxCheck >= tonumber(max) then
⚫	if (availableSubPageCount < ~~tonumber(max))~~ then
⚫	retval = retval .. "[[Category:Random portal component with fewer available subpages than specified max]]"
	elseif (availableSubPageCount > tonumber(max)) then
	retval = retval .. "[[Category:Random portal component with more available subpages than specified max]]"		retval = retval .. "[[Category:Random portal component with more available subpages than specified max]]"
	end		end
	end		end

	-- before categorising, check what type of subpage we are categorising, and if detected, categorise images separately		-- before categorising, check what type of subpage we are categorising, and if detected, categorise images separately
	local subpageType = "subpages" -- generic type		local subpageType = "subpages" -- generic type
Line 100:		Line 99:
	pages.root = args.rootpage or currentTitle.prefixedText		pages.root = args.rootpage or currentTitle.prefixedText
	pages.subpage = pages.root .. '/' .. expandArg(args, 'subpage')		pages.subpage = pages.root .. '/' .. expandArg(args, 'subpage')
		⚫	local tries = 10
⚫	pages.random = pages.subpage .. '/' .. getRandomNumber(args.max)
			repeat
		⚫	pages.random = pages.subpage .. '/' .. getRandomNumber(args.max)
			tries = tries - 1
			until tries < 1 or mw.title.new(pages.random).exists
	pages.footer = 'Template:Box-footer'		pages.footer = 'Template:Box-footer'
	return pages		return pages

BrownHairedGirl: categorise panoramas as images

2019-05-11T18:21:20Z

categorise panoramas as images

← Previous revision		Revision as of 18:21, 11 May 2019
Line 51:		Line 51:
	subpageName = mw.ustring.gsub(subpageName, "^[^/]*/", "")		subpageName = mw.ustring.gsub(subpageName, "^[^/]*/", "")
	subpageName = mw.ustring.lower(subpageName)		subpageName = mw.ustring.lower(subpageName)
	if ((mw.ustring.find(subpageName, "picture", 1, true) ~= nil) or (mw.ustring.find(subpageName, "image", 1, true) ~= nil)) ~~then~~		if ((mw.ustring.find(subpageName, "picture", 1, true) ~= nil) or
			(mw.ustring.find(subpageName, "image", 1, true) ~= nil) or
			(mw.ustring.find(subpageName, "panorama", 1, true) ~= nil)) then
	subpageType = "image subpages"		subpageType = "image subpages"
	end		end

BrownHairedGirl: enable separate tracking of image subpages

2019-05-08T14:41:28Z

enable separate tracking of image subpages

BrownHairedGirl: add "featured foo" to set of eligible subpages -- don't track DYK etc, only selected/featured articles, biogs etc

2019-05-02T17:58:07Z

add "featured foo" to set of eligible subpages -- don't track DYK etc, only selected/featured articles, biogs etc

← Previous revision		Revision as of 17:58, 2 May 2019
Line 14:		Line 14:
	local thispagetitle = mw.title.getCurrentTitle().text		local thispagetitle = mw.title.getCurrentTitle().text

	-- don't track DYK etc, only selected articles etc		-- don't track DYK etc, only selected/featured articles, biogs etc
	if (string.find(header, "^'*[sS]elected") ~= 1) then		if ((string.find(header, "/[sS]elected") == -1) and (string.find(header, "/[fF]eatured") == -1)) then
	return ""		return retval
	end		end
	-- no tracking unless we are in Portal namespace		-- no tracking unless we are in Portal namespace

BrownHairedGirl: add tracking to pages using Template:Random portal component with nominate

2019-04-30T13:07:15Z

add tracking to pages using Template:Random portal component with nominate

← Previous revision		Revision as of 13:07, 30 April 2019
Line 169:		Line 169:
	))		))

	return table.concat(ret, '\n')		return table.concat(ret, '\n') .. subPageTrackingCategories(pages, args.max, args.header)
	end		end

BrownHairedGirl: remove diagnostics

2019-04-29T20:16:57Z

remove diagnostics

← Previous revision		Revision as of 20:16, 29 April 2019
Line 25:		Line 25:
	-- no tracking if this is a subpage		-- no tracking if this is a subpage
	if ((mw.ustring.match(thispagetitle, "/") ~= nil) and (thispagetitle ~= "AC/DC")) then		if ((mw.ustring.match(thispagetitle, "/") ~= nil) and (thispagetitle ~= "AC/DC")) then
	retval = retval .. "[[Category:Portal title contains a slash:" .. thispagetitle .. "]]"
	return retval		return retval
	end		end

BrownHairedGirl: fix?

2019-04-29T20:12:48Z

fix?

← Previous revision		Revision as of 20:12, 29 April 2019
Line 12:		Line 12:
	local availableSubPageCount = 0;		local availableSubPageCount = 0;
	local i;		local i;
			local thispagetitle = mw.title.getCurrentTitle().text

	-- don't track DYK etc, only selected articles etc		-- don't track DYK etc, only selected articles etc
Line 23:		Line 24:

	-- no tracking if this is a subpage		-- no tracking if this is a subpage
	if (~~(string.find~~(mw.~~title~~.~~getCurrentTitle~~(~~).text~~, "/") ~= -1) and (~~mw.title.getCurrentTitle().text~~ ~= "AC/DC")) then		if ((mw.ustring.match(thispagetitle, "/") ~= nil) and (thispagetitle ~= "AC/DC")) then
	retval = retval .. "[[Category:Portal title contains a slash:" .. ~~mw.title.getCurrentTitle().text~~ .. "]]"		retval = retval .. "[[Category:Portal title contains a slash:" .. thispagetitle .. "]]"
	retval = retval .. "[[Category:Portal title find slash=" .. string.find(mw.title.getCurrentTitle().text, "/") .. "]]"
	return retval		return retval
	end		end

BrownHairedGirl: tweak

2019-04-29T20:07:12Z

tweak

← Previous revision		Revision as of 20:07, 29 April 2019
Line 21:		Line 21:
	return ""		return ""
	end		end

	-- no tracking if this is a subpage		-- no tracking if this is a subpage
	if ((string.find(mw.title.getCurrentTitle().text, "/") ~= -1) and (mw.title.getCurrentTitle().text ~= "AC/DC")) then		if ((string.find(mw.title.getCurrentTitle().text, "/") ~= -1) and (mw.title.getCurrentTitle().text ~= "AC/DC")) then
	~~return~~ "[[Category:Portal title ~~cntains~~ a slash:" .. mw.title.getCurrentTitle().text .. "]]" .. "[[Category:Portal title find slash=" .. string.find(mw.title.getCurrentTitle().text, "/") .. "]]"		retval = retval .. "[[Category:Portal title contains a slash:" .. mw.title.getCurrentTitle().text .. "]]"
			retval = retval .. "[[Category:Portal title find slash=" .. string.find(mw.title.getCurrentTitle().text, "/") .. "]]"
			return retval
	end		end


	-- limit checking to prevent Lua overload		-- limit checking to prevent Lua overload

BrownHairedGirl: diagnose

2019-04-29T19:58:10Z

diagnose

← Previous revision		Revision as of 19:58, 29 April 2019
Line 23:		Line 23:
	-- no tracking if this is a subpage		-- no tracking if this is a subpage
	if ((string.find(mw.title.getCurrentTitle().text, "/") ~= -1) and (mw.title.getCurrentTitle().text ~= "AC/DC")) then		if ((string.find(mw.title.getCurrentTitle().text, "/") ~= -1) and (mw.title.getCurrentTitle().text ~= "AC/DC")) then
	return "[[Category:Portal title cntains a slash]]"		return "[[Category:Portal title cntains a slash:" .. mw.title.getCurrentTitle().text .. "]]" .. "[[Category:Portal title find slash=" .. string.find(mw.title.getCurrentTitle().text, "/") .. "]]"
	end		end

BrownHairedGirl: diagnosing: Category:Portal title cntains a slash

2019-04-29T19:54:03Z

diagnosing: Category:Portal title cntains a slash

← Previous revision		Revision as of 19:54, 29 April 2019
Line 23:		Line 23:
	-- no tracking if this is a subpage		-- no tracking if this is a subpage
	if ((string.find(mw.title.getCurrentTitle().text, "/") ~= -1) and (mw.title.getCurrentTitle().text ~= "AC/DC")) then		if ((string.find(mw.title.getCurrentTitle().text, "/") ~= -1) and (mw.title.getCurrentTitle().text ~= "AC/DC")) then
	return ""		return "[[Category:Portal title cntains a slash]]"
	end		end

← Previous revision		Revision as of 14:41, 8 May 2019
Line 45:		Line 45:
	retval = retval .. "[[Category:Random portal component with more available subpages than specified max]]"		retval = retval .. "[[Category:Random portal component with more available subpages than specified max]]"
	end		end
			end
			-- before categorising, check what type of subpage we are categorising, and if detected, categorise images separately
			local subpageType = "subpages" -- generic type
			local subpageName = pages.subpage
			subpageName = mw.ustring.gsub(subpageName, "^[^/]*/", "")
			subpageName = mw.ustring.lower(subpageName)
			if ((mw.ustring.find(subpageName, "picture", 1, true) ~= nil) or (mw.ustring.find(subpageName, "image", 1, true) ~= nil)) then
			subpageType = "image subpages"
	end		end
	if (availableSubPageCount < 2) then		if (availableSubPageCount < 2) then
	retval = retval .. "[[Category:Random portal component with less than 2 available ~~subpages~~]]"		retval = retval .. "[[Category:Random portal component with less than 2 available " .. subpageType .. "]]"
	elseif (availableSubPageCount <= 5) then		elseif (availableSubPageCount <= 5) then
	retval = retval .. "[[Category:Random portal component with 2–5 available ~~subpages~~]]"		retval = retval .. "[[Category:Random portal component with 2–5 available " .. subpageType .. "]]"
	elseif (availableSubPageCount <= 10) then		elseif (availableSubPageCount <= 10) then
	retval = retval .. "[[Category:Random portal component with 6–10 available ~~subpages~~]]"		retval = retval .. "[[Category:Random portal component with 6–10 available " .. subpageType .. "]]"
	elseif (availableSubPageCount <= 15) then		elseif (availableSubPageCount <= 15) then
	retval = retval .. "[[Category:Random portal component with 11–15 available ~~subpages~~]]"		retval = retval .. "[[Category:Random portal component with 11–15 available " .. subpageType .. "]]"
	elseif (availableSubPageCount <= 20) then		elseif (availableSubPageCount <= 20) then
	retval = retval .. "[[Category:Random portal component with 16–20 available ~~subpages~~]]"		retval = retval .. "[[Category:Random portal component with 16–20 available " .. subpageType .. "]]"
	elseif (availableSubPageCount <= 25) then		elseif (availableSubPageCount <= 25) then
	retval = retval .. "[[Category:Random portal component with 21–25 available ~~subpages~~]]"		retval = retval .. "[[Category:Random portal component with 21–25 available " .. subpageType .. "]]"
	elseif (availableSubPageCount <= 30) then		elseif (availableSubPageCount <= 30) then
	retval = retval .. "[[Category:Random portal component with 26–30 available ~~subpages~~]]"		retval = retval .. "[[Category:Random portal component with 26–30 available " .. subpageType .. "]]"
	elseif (availableSubPageCount <= 40) then		elseif (availableSubPageCount <= 40) then
	retval = retval .. "[[Category:Random portal component with 31–40 available ~~subpages~~]]"		retval = retval .. "[[Category:Random portal component with 31–40 available " .. subpageType .. "]]"
	elseif (availableSubPageCount <= 50) then		elseif (availableSubPageCount <= 50) then
	retval = retval .. "[[Category:Random portal component with 41–50 available ~~subpages~~]]"		retval = retval .. "[[Category:Random portal component with 41–50 available " .. subpageType .. "]]"
	else		else
	retval = retval .. "[[Category:Random portal component with over 50 available ~~subpages~~]]"		retval = retval .. "[[Category:Random portal component with over 50 available " .. subpageType .. "]]"
	end		end
	return retval;		return retval;
	end		end

	local function getRandomNumber(max)		local function getRandomNumber(max)
	-- gets a random integer between 1 and max; max defaults to 1		-- gets a random integer between 1 and max; max defaults to 1