Module:Lilytest: Difference between revisions
m
no edit summary
mNo edit summary |
mNo edit summary |
||
| (35 intermediate revisions by the same user not shown) | |||
Line 1:
local p = {}
local t = require('Module:Arguments')
--{{#invoke:Lilytest|xxx|...}}
function p.urltest(frame)
--{{#invoke:Lilytest|getid|seite=|ns=}}
local was = frame.args.seite or frame:getParent().args.seite or 'Lua' -- Seitentitel
local ns = frame.args.ns or frame:getParent().args.ns or '' -- Namensraum
local namesp = trim(ns) or 'Artikel'
local seite = mw.title.new(was, ns)
local myserver = mw.site.server
local mypath = mw.site.scriptPath
local myuri = mw.uri.fullUrl( seite.text )
local myurl = myuri.protocol .. myuri.host .. myuri.path .. ' tostring ' .. tostring(myuri)
local myns = seite.namespace
if myns == 0 then return 'im Artkelnamensraum'
else return 'nicht im AR ' .. myns .. ' *** ' .. ns
end
if 1 then
return '\nserver: ' .. myserver .. '\nPfad: ' .. mypath .. '\nfullurl: ' .. myurl
end
local _ = seite.id
if _ == 0 then return 'Seite ' .. was .. ' existiert nicht im Namensraum ' .. namesp end
namesp = seite.nsText
local fulln = seite.prefixedText
--return 'Die Seite ' .. fulln .. ' hat die ID ' .. _
end
function p.dpl(frame)
-- https://www.mediawiki.org/wiki/Extension:DynamicPageList_(Wikimedia)
-- wertet die Erweiterung <dynamicpagelist> </dynamicpagelist> aus
-- {{#invoke:Lilytest|dpl}}
local a = frame.args -- direkt per #invoke: übergeben
if empty(a) then a = frame:getParent().args or { } end
local ns = mw.title.getCurrentTitle().namespace
--if ns ~= 0 then return '' end -- nur im Artikelnamensraum
local taga = '<dynamicpagelist>' -- das Tag <dynamicpagelist> wird ausgewertet
local tagb = '</dynamicpagelist>' -- muss anders erfolgen, da andere Logik
-- Parameter, die mit c beginnen: category
-- Patameter, die mit n beginnen: notcategory
-- alle anderen Parameter wie gewohnt
local parm, fletter, ausgabe, tag = '', '', '', ''
for k, v in pairs(a) do -- alle Parameter werden gesammelt und in die tagparms Tabelle übergeben
parm = trim(v)
fletter = parm:sub(1,1):lower() -- Anfangsbuchstaben
ausgabe = ausgabe .. '<br>index: ' .. k .. ' inhalt: ' .. fletter -- für Testzwecke
if fletter == 'c' then -- Kategorie
tag = tag .. '\ncategory = ' .. parm
elseif fletter == 'n' then -- Not Kategorie
tag = tag .. '\nnotcategory = ' .. parm
else -- anderer Parameter
tag = tag .. '\n' .. k .. ' = ' .. parm
end
end
--ausgabe = 'Parameterliste: ' .. table.concat(tagparms, ", ")
return tag -- frame:extensionTag { name = tag, content = content, args = tagparms }
end
function p.monat(frame)
local a = frame.args -- direkt per #invoke: übergeben
local b = frame:getParent().args -- an die Vorlage übergebene Parameter
local myname = mw.title.getCurrentTitle().text:lower()
local moname = { 'Jänner', 'Februar', 'März', 'April', 'Mai', 'Juni', 'Juli', 'August', 'September', 'Oktober', 'November', 'Dezember' }
local monat = ''
local jahr = string.match(myname, ('%d%d%d%d'))
if jahr == '' then return 'kein Jahr gefunden in ' .. myname end -- kein Jahr gefunden
for i = 1, 12 do
monat = moname[i]
if string.find(myname, monat:lower()) then
--break
return '[[Category:' .. jahr .. '|-' .. string.format("%02d", i) .. ']]'
end
end
return ''
end
function p.nsliste(frame)
--{{#invoke:Lilytest|nsliste|ab=}}
--erzeugt eine Tabelle mit Seitennummer und Namen in einem Namensraum
--sehr teuer in der Ausführung, daher werden nur 100 Listeneinträge
--inzwischen habe ich die Zahl der zulässigen Aufrufe in der LocalSettings.php auf 20000 erhöht, also praktisch unlimitiert
--Parameter: ab/abwo, Zahl ab der gestartet wird
local a = frame.args -- direkt per #invoke: übergeben
if empty(a) then a = mw.getCurrentFrame().args end -- an die Vorlage übergebene Parameter
local _ = ''
local seite, sname, ns, nstitel
local abwo = tonumber(a.ab or a.abwo) or 1
local bishin = tonumber(a.bis or a.bishin) or 100
local myns = string.lower(trim(a.ns) or '')
local __ = '\nmyns: ' .. myns
for i = abwo, bishin do
seite = mw.title.new(i)
if seite then
nstitel = string.lower(seite.nsText)
ns = tostring(seite.namespace)
if myns == nstitel or myns == ns then
_ = _ .. '<tr><td>' .. i .. '</td><td>[[:' .. seite.prefixedText .. '|' .. seite.text .. ']]</td></tr>\n'
end
--__ = __ .. '\nns: ' .. ns .. ' nstitel: ' .. nstitel
end
end
_ = '<table class="cute"><tr><th>ID</th><th>Name</th></tr>' .. _ .. '</table>'
return _ --.. __
end
function p.nrliste(frame)
--{{#invoke:Lilytest|nrliste|ab=}}
--erzeugt eine Tabelle mit Seitennummer und Namen
--sehr teuer in der Ausführung, daher werden nur 100 Listeneinträge
--inzwischen habe ich die Zahl der zulässigen Aufrufe in der LocalSettings.php auf 20000 erhöht, also praktisch unlimitiert
--Parameter: ab/abwo, Zahl ab der gestartet wird
local a = frame.args -- direkt per #invoke: übergeben
if empty(a) then a = mw.getCurrentFrame().args end -- an die Vorlage übergebene Parameter
local _ = ''
local seite, sname, ns, nstitel
local abwo = tonumber(a.ab or a.abwo) or 1
for i = abwo, abwo + 98 do
seite = mw.title.new(i)
if seite then
nstitel=seite.nsText
if nstitel == '' then nstitel = 'Artikel' end
_ = _ .. '<tr><td>' .. i .. '</td><td>[[:' .. seite.prefixedText .. '|' .. seite.text .. ']]</td><td>' .. nstitel .. '</td></tr>\n'
end
end
_ = '<table class="cute"><tr><th>ID</th><th>Name</th><th>Namensraum</th></tr>' .. _ .. '</table>'
return _
end
function p.getid(frame)
--{{#invoke:Lilytest|getid|seite=|ns=}}
local was = frame.args.seite or frame:getParent().args.seite or 'Lua' -- Seitentitel
local ns = frame.args.ns or frame:getParent().args.ns or '' -- Namensraum
local namesp = trim(ns) or 'Artikel'
local seite = mw.title.new(was, ns)
local _ = seite.id
if _ == 0 then return 'Seite ' .. was .. ' existiert nicht im Namensraum ' .. namesp end
namesp = seite.nsText
local fulln = seite.prefixedText
return 'Die Seite ' .. fulln .. ' hat die ID ' .. _
end
-- {{#invoke:Lilytest|html}}
function p.html(frame)
local mylink = mw.html.create( 'a' )
Line 7 ⟶ 161:
:attr( 'href', 'https://publictestwiki.com')
:attr('target', '_blank')
:wikitext( 'Link Testtext' )
return tostring( mylink )
end
function p.htmlx(frame)
local mylink = mw.html.create( 'a' )
mylink
:attr( 'id', 'testdiv' )
:attr( 'href', 'https://publictestwiki.com')
:attr('target', '_blank')
:wikitext( 'Link Testtext' )
return mylink
end
function p.simple(frame)
return '<a href="https://publictestwiki.com" target="_blank">Link Testtext</a>'
end
function empty (self)
-- es gibt keine eingebaute Funktion, um zu überprüfen, ob eine Tabelle leer ist
-- diese Funktion liefert true, wenn die Tabelle leer ist
-- hilfreich bei frame.args oder frame:parent().args etc.
for _, _ in pairs(self) do
return false
end
return true
end
function trim(s)
-- entfernt Weißraum an den beiden Enden des Strings
-- wenn kein String als Parameter übergeben wird, wird die Eingabe unverändert zurück gegeben
if type(s) ~= 'string' then return s end -- falls kein string
return (s:gsub("^%s*(.-)%s*$", "%1"))
end
| |||