Editing Module:Sandbox/pppery/noinclude tfd

local redr = require("Module:Redirect")
local function stringCount(string, pattern)
	local _dump, cnt = mw.ustring.gsub(string, pattern, "")
	return cnt
end
local function parse(frame, links)
	local missing = ""
	local hidden = ""
	local bogus = ""
	for _, object in ipairs(links) do
		if object then
			local title = "Template:" .. object;
			local rtarget;
			errorvalue, rtarget = pcall(redr.getTarget, title)
			if errorvalue then
				title = rtarget or title
			end
			local code
			local title = mw.title.new(title)
			if title == nil then
				bogus = bogus .. "\n* " .. title
				code = nil
			else
				code = title:getContent()
			end
			if code then
				local unsubstified = mw.ustring.match(code, "#invoke:Unsubst|");
			    local nmg = stringCount(code, "<noinclude>[^/]*{{Tfm")
			    local ndel = stringCount(code, "<noinclude>[^/]*{{Template for discussion") 
			    local disabled = stringCount(code,"type=disabled")
			    local safesubst = mw.ustring.match(code,"{{{|safesubst:}}}") or mw.ustring.match(code, "<includeonly>safesubst:</includeonly>");
			    safesubst = safesubst or mw.ustring.match(code,"[Ss][Aa][Ff][Ee][Ss][Uu][bB][sS][Tt]:%s*<noinclude%s*/>");
			    local oldstylesubst = mw.ustring.match(code, "{{{subst|}}}") or mw.ustring.match(code, "<includeonly>[Ss]ubst:</includeonly>");
			    local tagCnt = stringCount(code,"{{Tfm") + stringCount(code,"{{Template for merging")
			    tagCnt = tagCnt + stringCount(code,"{{Template for discussion");
			    if tagCnt == 0 then
			    	if title.contentModel == "sanitized-css" then
			    		tagCnt = tagCnt + stringCount(code, "subst:[Tt]emplate for discussion|help=off") -- What twinkle does
						tagCnt = tagCnt + stringCount(code, "This template is being discussed in accordance with Wikipedia's") -- What the instructions say
			    	end
					if tagCnt == 0 then
				    	missing = missing .. "\n* {{tfd links|" .. object .. "}}";
				    end
				elseif (nmg + ndel + disabled >= tagCnt) and (unsubstified or not (safesubst or oldstylesubst)) then
					hidden = hidden .. "\n* {{tfd links|" .. object .. "}}";
				end
			end
		end
	end
	local output = ""
	if #bogus > 0 then
		output = output .. "Bogus listings at TfD: \n" .. bogus .. "\n"
	end
	if #missing > 0 then
		output = output .. "Pages with no TfD tag: \n" .. missing .. "\n"
	end
	if #hidden > 0 then
		output = output .. "Pages with noincluded TfD tag" .. hidden
	end
	return frame:preprocess(output);
end
local function parseDay(day, links)
	local daytext = mw.title.new(day):getContent();
	daytext = mw.ustring.gsub(daytext,"Please do not modify it","{{tfd links|this is closed}}");
	daytext = mw.ustring.gsub(daytext,"{{[tT]fd links|([^}|]+)[^}]-|module=Module:[^}]-}}", "");
	daytext = mw.ustring.gsub(daytext,"{{[tT]fd links|([^}|]+)[^}]-|module=yes[^}]-}}", "");
	local daymatcher = mw.ustring.gmatch(daytext, "{{[tT]fd links|([^}|]+)[^}]-}}")
	local closed = false
	while true do
		local link = daymatcher();
		if not link then
			return links;
		end
		if link == "this is closed" then
			closed = not closed
		elseif link:sub(1, 7) == "S-line/" then
			-- "S-line/" nominations are almost always for unused templates that don't merit my attention.
		elseif not closed then
			links[#links+1] = link;
		end
	end
end
local p = {}
function p.main(frame)
	local links = {};
	local lang = mw.getContentLanguage()
	local logpage = "Wikipedia:Templates for discussion/Log/"
	for a = 0, 40 do
		parseDay(logpage .. lang.formatDate(lang, "Y F j", "-" .. tostring(a) .. "days"), links)
	end
	return parse(frame, links)
end
return p