نمایش مبدأ برای پودمان:High-use

local p = {}

-- _fetch looks at the "demo" argument.
local _fetch = require('Module:Transclusion_count').fetch
local yesno = require('Module:Yesno')
local numConv = require('Module:Numeral converter').convert

function p.num(frame, count)
	if count == nil then
		if yesno(frame.args['fetch'] or frame.args['واکشی']) == false then
			if (frame.args[1] or '') ~= '' then count = tonumber(frame.args[1]) end
		else
			count = _fetch(frame)
		end
	end
	
	-- Build output string
	local return_value = ""
	if count == nil then
		if (frame.args[1] == "risk" or frame.args[1] == "ریسک") then
			return_value = "تعداد بسیار زیادی صفحه"
		else
			return_value = "تعداد زیادی صفحه"
		end
	else
		-- Use 2 significant figures for smaller numbers and 3 for larger ones
		local sigfig = 2
		if count >= 100000 then
			sigfig = 3
		end
		
		-- Prepare to round to appropriate number of sigfigs
		local f = math.floor(math.log10(count)) - sigfig + 1
		
		-- Round and insert "approximately" or "+" when appropriate
		if (yesno(frame.args[2])) or (mw.ustring.sub(frame.args[1], -1) == "+") then
			-- Round down
			return_value = mw.ustring.format("%s+", mw.getContentLanguage():formatNum(math.floor( (count / 10^(f)) ) * (10^(f))) )
		else
			-- Round to nearest
			return_value = mw.ustring.format("نزدیک به&#x20;%s", mw.getContentLanguage():formatNum(math.floor( (count / 10^(f)) + 0.5) * (10^(f))) )
		end

		-- Insert percentage of pages if that is likely to be >= 1% and when |no-percent= not set to yes
		if count and count > 250000 and not yesno (frame:getParent().args['no-percent'] or frame:getParent().args['بدون درصد']) then
			local percent = math.floor( ( (count/frame:callParserFunction('NUMBEROFPAGES', 'R') ) * 100) + 0.5)
			if percent >= 1 then
				return_value = mw.ustring.format("%s&#x20;صفحه، یا نزدیک به %s٪ از کل صفحه‌ها", return_value, numConv('fa', percent))
			end
		end	
	end
	
	return return_value
end
-- Actions if there is a large (greater than or equal to 100,000) transclusion count
function p.risk(frame)
	local return_value = ""
	if (frame.args[1] == "risk" or frame.args[1] == "ریسک") then
		return_value = "risk"
	else
		local count = _fetch(frame)
		if count and count >= 100000 then return_value = "risk" end
	end
	return return_value
end

function p.text(frame, count)
	-- Only show the information about how this template gets updated if someone
	-- is actually editing the page and maybe trying to update the count.
	local bot_text = (frame:preprocess("{{REVISIONID}}") == "") and "\n\n----\n'''پیام پیش‌نمایش''': شمار تراگنجانش‌ها ممکن است توسط ربات به‌روز شود ([[الگو:پراستفاده/توضیحات#جزئیات فنی|مستندات الگو را ببینید]])." or ''
	
	if count == nil then
		if yesno(frame.args['fetch'] or frame.args['واکشی']) == false then
			if (frame.args[1] or '') ~= '' then count = tonumber(frame.args[1]) end
		else
			count = _fetch(frame)
		end
	end
	local title = mw.title.getCurrentTitle()
	if title.subpageText == "توضیحات" or title.subpageText == "تمرین" then
		title = title.basePageTitle
	end
	
	local systemMessages = frame.args['system'] or frame.args['سامانه']
	if (frame.args['system'] or frame.args['سامانه']) == '' then
		systemMessages = nil
	end
	
	-- This retrieves the project URL automatically to simplify localiation.
	local templateCount = ('در [https://linkcount.toolforge.org/index.php?project=%s&page=%s %s صفحه]'):format(
		mw.title.getCurrentTitle():fullUrl():gsub('//(.-)/.*', '%1'),
		mw.uri.encode(title.fullText), p.num(frame, count))
	local used_on_text = "'''این " .. (mw.title.getCurrentTitle().namespace == 828 and "پودمان لوآ" or "الگو") .. ' ';
	if systemMessages then
		used_on_text = used_on_text .. systemMessages ..
			((count and count > 2000) and ("،''' و " .. templateCount) or ("'''"))
	else
		used_on_text = used_on_text .. templateCount .. " به‌کار رفته است'''"
	end
	
	
	local sandbox_text =  ("زیرصفحه‌های [[%s/تمرین|/تمرین]] یا [[%s/آزمایشی|/آزمایشی]] %s، یا در [[%s]] خودتان"):format(
		title.fullText, title.fullText,
		(mw.title.getCurrentTitle().namespace == 828 and "پودمان" or "الگو"),
		mw.title.getCurrentTitle().namespace == 828 and "پودمان:Sandbox|پودمان تمرینی" or "ویکی‌پدیا:صفحه‌های کاربری#زیرصفحه‌های کاربری چه؟|زیرصفحهٔ کاربری"
	)
	
	local infoArg = frame.args["info"] ~= "" and frame.args["info"]
	if (systemMessages or (frame.args[1] == "risk" or frame.args[1] == "ریسک") or (count and count >= 100000) ) then
		local info = systemMessages and '.<br/>تغییر دادن آن می‌تواند به تغییر بی‌درنگ در رابط کاربری ویکی‌پدیا منجر شود.' or '.'
		if infoArg then
			info = info .. "<br />" .. infoArg
		end
		sandbox_text = info .. '<br /> به‌منظور جلوگیری از ایجاد اخلال' ..
			(count and count >= 100000 and ' و وارد شدن فشار به سرورها' or '') ..
			'، هرگونه تغییر باید ابتدا در ' .. sandbox_text .. ' آزمایش شود. ' ..
			'تغییرات آزمایش‌شده را می‌توان در یک ویرایش به این صفحه افزود. '
	else
		sandbox_text = (infoArg and ('.<br />' .. infoArg .. ' ت') or ' و ت') ..
			'غییر دادن آن می‌تواند تأثیرات گسترده‌ای داشته باشد. لطفاً تغییرات را در  ' .. sandbox_text .. ' بیازمایید. '
	end

	
	local discussion_text = systemMessages and 'لطفاً ابتدا در خصوص تغییرات مورد نظر ' or 'توصیه می‌شود که ابتدا در خصوص تغییرات مورد نظر '
	if frame.args["2"] and frame.args["2"] ~= "" and not yesno(frame.args["2"]) then
		discussion_text = mw.ustring.format("%sدر [[%s]]", discussion_text, frame.args["2"]) .. ' گفتگو کرده'
	else
		discussion_text = mw.ustring.format("%sدر [[%s|صفحهٔ بحث]]", discussion_text, title.talkPageTitle.fullText ) .. ' گفتگو کرده'
	end
	
	return used_on_text .. sandbox_text .. discussion_text .. " و سپس آن‌ها را پیاده‌سازی کنید." .. bot_text
end

function p.main(frame)
	local count = nil
	if yesno(frame.args['fetch'] or frame.args['واکشی']) == false then
		if (frame.args[1] or '') ~= '' then count = tonumber(frame.args[1]) end
	else
		count = _fetch(frame)
	end
	local image = "[[پرونده:Ambox warning yellow.svg|40px|alt=هشدار|link=]]"
	local type_param = "style"
	local epilogue = ''
	if (frame.args['system'] or frame.args['سامانه']) and (frame.args['system'] or frame.args['سامانه']) ~= '' then
		image = "[[پرونده:Ambox important.svg|40px|alt=هشدار|link=]]"
		type_param = "content"
		local nocat = frame:getParent().args['nocat'] or frame:getParent().args['بی‌رده'] or frame.args['nocat'] or frame.args['بی‌رده']
		local categorise = (nocat == '' or not yesno(nocat))
		if categorise then
			epilogue = frame:preprocess('{{Sandbox other||{{#switch:{{#invoke:Effective protection level|{{#switch:{{NAMESPACE}}|File=upload|#default=edit}}|{{FULLPAGENAME}}}}|sysop|templateeditor|interfaceadmin=|#default=[[رده:صفحه‌های مورد استفاده در پیام‌های سامانه نیازمند محافظت]]}}}}')
		end
	elseif ((frame.args[1] == "risk" or frame.args[1] == "ریسک") or (count and count >= 100000)) then
		image = "[[پرونده:Ambox warning orange.svg|40px|alt=هشدار|link=]]"
		type_param = "content"
	end
	
	if frame.args["form"] == "editnotice" then
		return frame:expandTemplate{
				title = 'editnotice',
				args = {
						["image"] = image,
						["text"] = p.text(frame, count),
						["expiry"] = (frame.args["expiry"] or frame.args["منقضی"] or "")
				}
		} .. epilogue
	else
		return require('Module:Message box').main('ombox', {
			type = type_param,
			image = image,
			text = p.text(frame, count),
			expiry = (frame.args["expiry"] or frame.args["منقضی"] or "")
		}) .. epilogue
	end
end

return p