Module:Motd
MyWikiBiz, Author Your Legacy — Wednesday November 13, 2024
Jump to navigationJump to searchUsage
{{#invoke:Motd|read|archive}}
archives are pages like Wikipedia:Motto_of_the_day/Schedule/Archive_2012. (2012 to 2015)
{{#invoke:Motd|read11|archive}}
archives are pages like Wikipedia:Motto_of_the_day/Schedule/Archive_2009. (up to 2011)
The read routine produces an output that has been manually cut-and-pasted into Module:Motd/data/2012 etc., and in some cases further modified. Ideally, each year should have one motto per day, possibly appropriate to that day. The read function produces the data to paste and the main function calls on this data for its output.
{{#invoke:Motd|main|day = day|year = year}}
Picks a motto. Defaults to 2012 for year, current day for day. Years 2006 to 2015 exist, but 2006, 2014, 2015 themselves don't have a full set of days. Haven't checked the others to be sure either.
local p = {}
function leapyear(year)
local rem = year - 4 * math.floor(year/4)
local leapyear
if (rem>0.01) then
leapyear = 0
else
leapyear = 1 -- i.e. add a day to dates beyond February 28
end
return leapyear
end
function p.random(frame)
return p.main(frame, true)
end
function p.main(frame, rnd)
local parent=frame.getParent(frame) or {}
local yearparameter = (parent and parent.args.year) or frame.args.year
local ydayparameter = (parent and parent.args.day) or frame.args.day
local yday = ydayparameter
if yday then
yday = tonumber(yday) -- keep nil as nil, but tonumber otherwise; may be nil *now*.
end
local osdate = os.date("!*t", nil)
math.randomseed(tonumber(osdate.sec) + 60 * tonumber(osdate.min) + 3600 * tonumber(osdate.hour) + 24 * 3600 * tonumber(osdate.yday)) -- random wasn't resetting, try this
if rnd then
yday = yday or math.random(366)
else
yday = yday or osdate.yday
end
yday = tonumber(yday) or 1 -- setting to number. Just in case, setting to 1
local year
if rnd then
year = yearparameter or math.random(2006, 2015)
else
year = yearparameter or osdate.year
end
local flag, mottos = pcall(mw.loadData,"Module:Motd/data/" .. tostring(year))
while ((flag == false) and (year > 2005)) do
year = year - 1 -- look the year before for mottos
flag, mottos = pcall(mw.loadData,"Module:Motd/data/" .. tostring(year))
if ydayparameter and mottos then
if not mottos [yday+leapyear(year)] then
flag = false -- if a specific day is required by parameter, throw out a year without this day
end
end
end
local motto
local k = 0
repeat
k = k + 1
motto = mottos[yday + leapyear(year)] -- if no motto for this day, try another day
yday = math.random(366)
until ((motto) or (k > 100))
return frame:preprocess(motto or "No matter where you go, there you are")
end
function p.read(frame)
local parent=frame.getParent(frame) or {}
local currentpage, from, to
---- args in the #invoke itself trump args in the parent frame
currentpage = (parent and parent.args.page) or frame.args.page
from = (parent and parent.args.from) or frame.args.from or 0
to = (parent and parent.args.to) or frame.args.to or 9999
from, to = tonumber(from), tonumber(to) -- they get passed in as strings!
-- from and to are kludges to get part of the data when I start getting too much expanded template errors (not needed!)
-- I'm not sure getting the current page makes sense but I had the code handy so I'll leave it.
local pagepointer
if not(currentpage) then
pagepointer=mw.title.getCurrentTitle()
assert(pagepointer,"failed to access getCurrentTitle")
currentpage=pagepointer.fullText
else pagepointer=mw.title.new(currentpage)
assert(pagepointer,"failed to access mw.title.new("..tostring(currentpage)..")")
end
---- get the text of the currentpage
local text=pagepointer.getContent(pagepointer)
assert (text,"error: failed to get text from ".. currentpage)
local linkmatch = "%[%[(.-)%]%]"
local prowl=mw.ustring.gmatch(text,linkmatch)
local archive={}
local link=prowl()
local count = 0
while link do
if (count >= from) and (count <= to) then
link = mw.ustring.gmatch(link,"(.-)%|")() or link
flag, contents = pcall(frame.expandTemplate, frame, {title = link, args = nil})
-- table.insert(archive,'[==[' .. link .. ']==],</nowiki><br><nowiki>')
-- I don't think I actually need to include the link for this use
table.insert(archive,'[==[' .. contents .. ']==],</nowiki><br><nowiki>')
end
count = count + 1
link=prowl()
end
local output=""
for i = 1, table.maxn(archive) do
output=output..(archive[i] or "")
end
output = mw.ustring.gsub(output,",</nowiki><br><nowiki>$","</nowiki><br><nowiki>")
output = "<nowiki>return {</nowiki><br><nowiki>"..output.."}</nowiki>"
return frame.preprocess(frame,output)
end
function p.read11(frame) -- this is a copy of p.read being customized for 2010-2011
local parent=frame.getParent(frame) or {}
local currentpage, from, to
---- args in the #invoke itself trump args in the parent frame
currentpage = (parent and parent.args.page) or frame.args.page
from = (parent and parent.args.from) or frame.args.from or 1
to = (parent and parent.args.to) or frame.args.to or 9999
from, to = tonumber(from), tonumber(to) -- they get passed in as strings!
-- from and to are kludges to get part of the data when I start getting too much expanded template errors
-- I'm not sure getting the current page makes sense but I had the code handy so I'll leave it.
local pagepointer
if not(currentpage) then
pagepointer=mw.title.getCurrentTitle()
assert(pagepointer,"failed to access getCurrentTitle")
currentpage=pagepointer.fullText
else pagepointer=mw.title.new(currentpage)
assert(pagepointer,"failed to access mw.title.new("..tostring(currentpage)..")")
end
---- get the text of the currentpage
local text=pagepointer.getContent(pagepointer)
assert (text,"error: failed to get text from ".. currentpage)
local linkmatch = "(.-)%s*%*?<samp>%[%[Wikipedia:Motto of the day/(.-)%]%]%s*</samp>%s*"
local prowl=mw.ustring.gmatch(text,linkmatch)
local archive={}
local contents, link = prowl()
local count = 0
while link do
if (count >= from) and (count <= to) then
contents = mw.ustring.gsub(contents,"%s*<br />$","")
link = mw.ustring.gmatch(link,"(.-)%|")() or link
-- table.insert(archive,'[==[' .. link .. ']==],</nowiki><br><nowiki>')
-- I don't think I actually need to include the link for this use
table.insert(archive,'[==[' .. contents .. ']==],</nowiki><br><nowiki>')
end
count = count + 1
contents, link=prowl()
end
if contents then
table.insert(archive,'[==[' .. contents .. ']==],</nowiki><br><nowiki>')
end
local output=""
for i = 1, table.maxn(archive) do
output=output..(archive[i] or "")
end
output = mw.ustring.gsub(output,",</nowiki><br><nowiki>$","</nowiki><br><nowiki>")
output = "<nowiki>return {</nowiki><br><nowiki>"..output.."}</nowiki>"
return frame.preprocess(frame,output)
end
function p.read06(frame) -- this is a copy of p.read to be run once to get the 2006 data
local parent=frame.getParent(frame) or {}
local currentpage, from, to
---- args in the #invoke itself trump args in the parent frame
currentpage = (parent and parent.args.page) or frame.args.page
from = (parent and parent.args.from) or frame.args.from or 1
to = (parent and parent.args.to) or frame.args.to or 9999
from, to = tonumber(from), tonumber(to) -- they get passed in as strings!
-- from and to are kludges to get part of the data when I start getting too much expanded template errors
-- I'm not sure getting the current page makes sense but I had the code handy so I'll leave it.
local pagepointer
if not(currentpage) then
pagepointer=mw.title.getCurrentTitle()
assert(pagepointer,"failed to access getCurrentTitle")
currentpage=pagepointer.fullText
else pagepointer=mw.title.new(currentpage)
assert(pagepointer,"failed to access mw.title.new("..tostring(currentpage)..")")
end
---- get the text of the currentpage
local text=pagepointer.getContent(pagepointer)
assert (text,"error: failed to get text from ".. currentpage)
local linkmatch = "(.-)%s*%*?<tt>(.-)</tt>%s*"
local prowl=mw.ustring.gmatch(text,linkmatch)
local archive={}
local contents, link = prowl()
local count = 0
while link do
if (count >= from) and (count <= to) then
contents = mw.ustring.gsub(contents,"%s*<br />$","")
link = mw.ustring.gmatch(link,"(.-)%|")() or link
-- table.insert(archive,'[==[' .. link .. ']==],</nowiki><br><nowiki>')
-- I don't think I actually need to include the link for this use
table.insert(archive,'[==[' .. contents .. ']==],</nowiki><br><nowiki>')
end
count = count + 1
contents, link=prowl()
end
if contents then
table.insert(archive,'[==[' .. contents .. ']==],</nowiki><br><nowiki>')
end
local output=""
for i = 1, table.maxn(archive) do
output=output..(archive[i] or "")
end
output = mw.ustring.gsub(output,",</nowiki><br><nowiki>$","</nowiki><br><nowiki>")
output = "<nowiki>return {</nowiki><br><nowiki>"..output.."}</nowiki>"
return frame.preprocess(frame,output)
end
return p
