モジュール:Sakujo

半永久的に拡張半保護されているモジュール
モジュールの解説[作成]
local p = {}
function p.Main( frame )
	if mw.isSubsting() then
	-- subst展開されている時
		m_subpagename = ''
		if frame.args[1] ~= '' then -- {{{1}}}に何か指定されている場合
			m_subpagename = frame.args[1]
		elseif mw.title.new('Wikipedia:削除依頼/' .. mw.allToString(mw.title.getCurrentTitle())).exists and string.find( mw.title.new('Wikipedia:削除依頼/' .. mw.allToString(mw.title.getCurrentTitle())):getContent(), 'このページは以下にある削除依頼の議論を保存したものです。さらなる議論が必要な場合は当該ページのノートで行ってください。' , 1 , true) ~= nil and tonumber( frame:callParserFunction( '#time' , 'YmdHis' , frame:callParserFunction( 'REVISIONTIMESTAMP' , 'Wikipedia:削除依頼/' .. mw.allToString(mw.title.getCurrentTitle()) ) .. '+ 1week' ) ) < tonumber( frame:callParserFunction( '#time' , 'YmdHis' ) ) then
			m_subpagename = mw.allToString( mw.title.getCurrentTitle() ) .. ' ' .. frame:callParserFunction( '#time' , 'Ymd' , '+9 hours' ) -- 指定されておらず、日付入りページ名を使う場合
		else
			m_subpagename = mw.allToString( mw.title.getCurrentTitle() )
		end
		return '<!-- 削除についての議論が終了するまで、下記のメッセージ部分は除去しないでください。もしあなたがこのテンプレートを除去した場合、差し戻されます。またページが保護されることもあります。 -->\n'
			.. '{{Sakujo/本体|' .. frame:callParserFunction( '#time' , 'Y年n月j日' , '+9 hours' ) .. '|' ..  m_subpagename .. '}}\n'
			.. '<!-- 削除についての議論が終了するまで、上記部分は削除しないでください。 -->'
	else
	-- subst展開されていない時
		return '<strong class="error">エラー: [[Help:テンプレート#テンプレートの内容で置き換える|subst:]] がありません。Sakujo ではなく subst:Sakujo としてください。</strong>'
	end
end
return p