Modul:Vorlage:Löschkandidatenarchiv

Erstellt eine Tabelle mit den LD-Seiten eines Jahres.

---

-- Modul zur Automatisierung des Archivs der LD-seiten

local p = {};

function p.Createatable(frame)
	local Preface = '[[Wikipedia:Löschkandidaten/SUBNAME|XX]]'
	local year = tonumber(frame.args[1]) or 2024;
	syear = tostring(year);
	local currentyear  = tonumber(os.date('%Y'));
	local currentmonth = tonumber(os.date('%m'));
	local currentday = tonumber(os.date('%d'));
	local Output = '<table style="width:100%;box-sizing:border-box; text-align:center;" class="plainlinks">\n'
	Output = Output .. '<tr><th>Monat</th><th colspan="31">T a g</th></tr>\n'
	local Zeile = '';
	local subname ='';
	local pagelink = '';
	if year < currentyear then
		-- Dezember
		Zeile ='<th style="text-align:right">Dez.&nbsp;' .. syear ..'&nbsp;</th>'
		for i = 1, 31 do
			subname=tostring(i) .. '._Dezember_' .. syear;
			pagelink=mw.ustring.gsub(Preface,"SUBNAME",subname);
			pagelink=mw.ustring.gsub(pagelink,"XX",tostring(i));
			Zeile = Zeile ..'<td>' .. pagelink ..'</td>';
		end
		Zeile = Zeile ..'</tr>\n';
		Output = Output .. Zeile;
		-- November
		Zeile ='<th>Nov.&nbsp;' .. syear ..'</th>'
		for i = 1, 30 do
			subname=tostring(i) .. '._November_' .. syear;
			pagelink=mw.ustring.gsub(Preface,"SUBNAME",subname);
			pagelink=mw.ustring.gsub(pagelink,"XX",tostring(i));
			Zeile = Zeile ..'<td>' .. pagelink ..'</td>';
		end
		Zeile = Zeile ..'<td></td></tr>\n';
		Output = Output .. Zeile;
		-- Oktober
		Zeile ='<th>Okt.&nbsp;' .. syear ..'</th>'
		for i = 1, 31 do
			subname=tostring(i) .. '._Oktober_' .. syear;
			pagelink=mw.ustring.gsub(Preface,"SUBNAME",subname);
			pagelink=mw.ustring.gsub(pagelink,"XX",tostring(i));
			Zeile = Zeile ..'<td>' .. pagelink ..'</td>';
		end
		Zeile = Zeile ..'</tr>\n';
		Output = Output .. Zeile;
		-- September
		Zeile ='<th>Sep.&nbsp;' .. syear ..'</th>'
		for i = 1, 30 do
			subname=tostring(i) .. '._September_' .. syear;
			pagelink=mw.ustring.gsub(Preface,"SUBNAME",subname);
			pagelink=mw.ustring.gsub(pagelink,"XX",tostring(i));
			Zeile = Zeile ..'<td>' .. pagelink ..'</td>';
		end
		Zeile = Zeile ..'<td></td></tr>\n';
		Output = Output .. Zeile;
		-- August
		Zeile ='<th>Aug.&nbsp;' .. syear ..'</th>'
		for i = 1, 31 do
			subname=tostring(i) .. '._August_' .. syear;
			pagelink=mw.ustring.gsub(Preface,"SUBNAME",subname);
			pagelink=mw.ustring.gsub(pagelink,"XX",tostring(i));
			Zeile = Zeile ..'<td>' .. pagelink ..'</td>';
		end
		Zeile = Zeile ..'</tr>\n';
		Output = Output .. Zeile;
		-- Juli
		Zeile ='<th>Jul.&nbsp;' .. syear ..'</th>'
		for i = 1, 31 do
			subname=tostring(i) .. '._Juli_' .. syear;
			pagelink=mw.ustring.gsub(Preface,"SUBNAME",subname);
			pagelink=mw.ustring.gsub(pagelink,"XX",tostring(i));
			Zeile = Zeile ..'<td>' .. pagelink ..'</td>';
		end
		Zeile = Zeile ..'</tr>\n';
		Output = Output .. Zeile;
		-- Juni
		Zeile ='<th>Jun.&nbsp;' .. syear ..'</th>'
		for i = 1, 30 do
			subname=tostring(i) .. '._Juni_' .. syear;
			pagelink=mw.ustring.gsub(Preface,"SUBNAME",subname);
			pagelink=mw.ustring.gsub(pagelink,"XX",tostring(i));
			Zeile = Zeile ..'<td>' .. pagelink ..'</td>';
		end
		Zeile = Zeile ..'<td></td></tr>\n';
		Output = Output .. Zeile;
		-- Mai
		Zeile ='<th>Mai&nbsp;' .. syear ..'</th>'
		for i = 1, 31 do
			subname=tostring(i) .. '._Mai_' .. syear;
			pagelink=mw.ustring.gsub(Preface,"SUBNAME",subname);
			pagelink=mw.ustring.gsub(pagelink,"XX",tostring(i));
			Zeile = Zeile ..'<td>' .. pagelink ..'</td>';
		end
		Zeile = Zeile ..'</tr>\n';
		Output = Output .. Zeile;
		-- April
		Zeile ='<th>Apr.&nbsp;' .. syear ..'</th>'
		for i = 1, 30 do
			subname=tostring(i) .. '._April_' .. syear;
			pagelink=mw.ustring.gsub(Preface,"SUBNAME",subname);
			pagelink=mw.ustring.gsub(pagelink,"XX",tostring(i));
			Zeile = Zeile ..'<td>' .. pagelink ..'</td>';
		end
		-- März
		Zeile ='<th>Mrz.&nbsp;' .. syear ..'</th>'
		for i = 1, 31 do
			subname=tostring(i) .. '._März_' .. syear;
			pagelink=mw.ustring.gsub(Preface,"SUBNAME",subname);
			pagelink=mw.ustring.gsub(pagelink,"XX",tostring(i));
			Zeile = Zeile ..'<td>' .. pagelink ..'</td>';
		end
		Zeile = Zeile ..'</tr>\n';
		Output = Output .. Zeile;
		local febmax = 28
		if year % 4 == 0 then
			febmax = 29;
		end
		Zeile ='<th>Feb.&nbsp;' .. syear ..'</th>'
		for i = 1, febmax do
			subname=tostring(i) .. '._Februar_' .. syear;
			pagelink=mw.ustring.gsub(Preface,"SUBNAME",subname);
			pagelink=mw.ustring.gsub(pagelink,"XX",tostring(i));
			Zeile = Zeile ..'<td>' .. pagelink ..'</td>';
		end
		for i = febmax+1 , 31 do
			Zeile = Zeile ..'<td></td>';
		end
		Zeile = Zeile ..'</tr>\n';
		Output = Output .. Zeile;
		-- Januar
		Zeile ='<th>Jan.&nbsp;' .. syear ..'</th>'
		for i = 1, 31 do
			subname=tostring(i) .. '._Januar_' .. syear;
			pagelink=mw.ustring.gsub(Preface,"SUBNAME",subname);
			pagelink=mw.ustring.gsub(pagelink,"XX",tostring(i));
			Zeile = Zeile ..'<td>' .. pagelink ..'</td>';
		end
		Zeile = Zeile ..'</tr>\n';
		Output = Output .. Zeile .. '</table>\n';
		return Output
	end
end

return p