Modul:Briefspielnews

Die Dokumentation für dieses Modul kann unter Modul:Briefspielnews/Doku erstellt werden

require("Modul:Hilfsfunktionen")
require("Modul:Text")

local p = {}

--wandelt ein ISO-Datum in ein Time-Object um
function parseISO(str) 
	local y,m,d,h,i,s=str:match("(%d%d%d%d)-(%d?%d?)-(%d?%d?)T(%d?%d?):(%d?%d?):(%d?%d?)")
	return os.time({year=y,month=m,day=d,hour=h,min=i,sec=s})
end

--Hole die 500 neuesten Kapitel
function holeKapitel(anzahl)
	local kapitel=mw.smw.ask("{{#ask: [[-has subobject::+]]"
		.."|?#-=Kapitel"
		.."|?Kurzbeschreibung#"
		.."|?Kapitelname ist"
		.."|?Reihe ist"
		.."|?Kapiteldatum#ISO"
		.."|limit="..anzahl
		.."|order=desc"
		.."|sort=Kapiteldatum"
		.."|offset=0"
		.."|searchlabel=")
	if kapitel==nil then
		return {}
	end
	return kapitel
end

--Sortierfunktion für die Reihen
function sortReihe(t,a,b)
	return t[b]["Reihedatum"]<t[a]["Reihedatum"]
end

--Formatierung der Ausgabe
function ausgabe(kapitel)
    local result=""
    local reihe={}

    --Teile die Kapitel auf die Reihen auf
	for k,kap in spairs(kapitel) do
		kap["Datum"]=parseISO(kap["Kapiteldatum"])
		local r=kap["Reihe ist"]
		if reihe[r]==nil then
			reihe[r]={}
			reihe[r]["Kapitel"]={}
			reihe[r]["Reihedatum"]=kap["Datum"]
		end
		table.insert(reihe[r]["Kapitel"],kap)
		if kap["Datum"]>reihe[r]["Reihedatum"] then
			reihe[r]["Reihedatum"]=kap["Datum"]
		end
	end
	
	--Gebe die Reihen aus
	for r,rei in spairs(reihe,sortReihe) do
		result=result.."\n*"..os.date("%Y-%m-%d %h:%i", rei["Reihedatum"]).." '''[["..r.." — Briefspielreihe|"..r.."]]'''"
		for k,kap in spairs(rei["Kapitel"]) do
			local kurzbeschreibung=kap["Kurzbeschreibung"]
			if kurzbeschreibung~=nil then
				kurzbeschreibung=" - "..kurzbeschreibung
			else
				kurzbeschreibung=""
			end
			result=result.."\n**"..kap["Datum"].." [["..kap["Kapitel"].."|"..kap["Kapitelname ist"].."]]"..kurzbeschreibung
		end
    end

	return result
end

--Aufzurufende Funktion
function p.news(frame)
	local anzahl=robusttrim(frame.args[1])
	if(anzahl=='') then anzahl='10' end
	local kapitel=holeKapitel(anzahl)
	return ausgabe(kapitel)
end

return p