Modul:Galeria
A modult a Modul:Galeria/doc lapon tudod dokumentálni
local p = {}
-- =============================================================================
-- SEGÉDFÜGGVÉNYEK
-- =============================================================================
local function megtisztitString(s)
if not s then return "" end
s = s:gsub("^%s*(.-)%s*$", "%1")
s = s:gsub("[\n\r]", "")
return s
end
local function detektalKepTipus(nyers_bemenet)
if not nyers_bemenet or nyers_bemenet == "" then return nil end
local s = megtisztitString(nyers_bemenet)
if s:lower():find("^commons:") then
local tiszta_nev = s:sub(9)
if not tiszta_nev:lower():find("^file:") and not tiszta_nev:lower():find("^fájl:") then
tiszta_nev = "File:" .. tiszta_nev
end
local url_nev = tiszta_nev:gsub(" ", "_")
return {
tipus = "URL",
path = "https://commons.wikimedia.org/wiki/Special:FilePath/" .. url_nev,
felirat = nil
}
end
if s:find("^https?://") or s:find("^encrypted%-tbn") or s:find("gstatic%.com") then
return {
tipus = "URL",
path = s,
felirat = nil
}
end
return {
tipus = "WIKI",
path = s,
felirat = nil
}
end
local function isKepFormatum(szoveg)
if not szoveg or szoveg == "" then return false end
local s = megtisztitString(szoveg):lower()
if s:find("^https?://") or s:find("^encrypted%-tbn") or s:find("gstatic%.com") or s:find("^commons:") then
return true
end
if s:find("%.jpg$") or s:find("%.jpeg$") or s:find("%.png$") or s:find("%.gif$") or s:find("%.svg$") or s:find("%.webp$") then
return true
end
return false
end
local function kinyerForrasNev(url, eredeti_bemenet)
if not url or url == "" then return "Külső forrás" end
if url:find("google%.com") or url:find("gstatic%.com") or url:find("^encrypted%-tbn") then
return "Google Cache"
end
local domain = url:match("^https?://([^/]+)")
if domain then
domain = domain:gsub("^www%.", "")
return domain
end
return "Külső link"
end
-- =============================================================================
-- FŐ FUNKCIÓ: GALÉRIA GENERÁLÁSA
-- =============================================================================
function p.generalGaleria(frame)
local args = {}
if type(frame) == "table" and type(frame.getParent) == "function" then
args = frame:getParent().args
if not args or (not args[1] and not args['k1']) then
args = frame.args
end
else
args = frame
end
-- -------------------------------------------------------------------------
-- ÚJ, ATOMBIZTOS PARSER STRATÉGIA: Lineáris láncolás
-- -------------------------------------------------------------------------
local linearis_lista = {}
-- Összegyűjtjük a normál numerikus paramétereket sorban
local max_index = 0
for k, v in pairs(args) do
if type(k) == "number" and k > max_index then max_index = k end
end
-- Felépítjük az alaptömböt, a hiányzó helyeket (lyukakat) jelöljük
for i = 1, max_index do
if args[i] and megtisztitString(args[i]) ~= "" then
table.insert(linearis_lista, { szoveg = megtisztitString(args[i]), feldolgozott = false })
end
end
-- Vadásszuk le a sérült Google/külső URL kulcsokat, és szúrjuk be őket
-- közvetlenül a hozzájuk tartozó felirat ELÉ (ami ott maradt árván a listában)
for k, v in pairs(args) do
if type(k) == "string" then
local tiszta_kulcs = megtisztitString(k)
if tiszta_kulcs:find("^https?://") or tiszta_kulcs:find("^encrypted%-tbn") or tiszta_kulcs:find("gstatic%.com") then
local teljes_url = tiszta_kulcs .. "=" .. megtisztitString(v)
-- Megkeressük a feliratot a listában
local beszurt = false
for idx, elem in ipairs(linearis_lista) do
if not isKepFormatum(elem.szoveg) and not elem.feldolgozott then
-- Ez a felirat tartozik a törött URL-hez! Beszúrjuk elé.
table.insert(linearis_lista, idx, { szoveg = teljes_url, feldolgozott = false })
beszurt = true
break
end
end
-- Ha nem találtunk magányos feliratot, csak a lista végére rakjuk
if not beszurt then
table.insert(linearis_lista, { szoveg = teljes_url, feldolgozott = false })
end
end
end
end
-- Kigyűjtjük a tiszta stringeket a lineáris listából a végső feldolgozáshoz
local rendezett_args = {}
for _, elem in ipairs(linearis_lista) do
table.insert(rendezett_args, elem.szoveg)
end
-- -------------------------------------------------------------------------
-- FŐ RENDERELŐ CIKLUS
-- -------------------------------------------------------------------------
local html = {}
table.insert(html, '<div class="egyedi-galeria-container">')
local i = 1
while rendezett_args[i] do
local v = rendezett_args[i]
if v ~= "" and isKepFormatum(v) then
local kepAdat = detektalKepTipus(v)
if kepAdat then
-- Megnézzük, hogy a következő elem felirat-e
if rendezett_args[i+1] then
local kovetkezo = rendezett_args[i+1]
if kovetkezo ~= "" and not isKepFormatum(kovetkezo) then
kepAdat.felirat = kovetkezo
i = i + 1 -- A feliratot átugorjuk a következő körben
end
end
local tartalom = ""
local tiszta_felirat = kepAdat.felirat or ""
if kepAdat.tipus == "URL" then
local biztonsagos_path = kepAdat.path:gsub(":", ":")
local forras_nev = ""
if kepAdat.path:find("commons%.wikimedia%.org") then
forras_nev = "Wikimedia Commons"
else
forras_nev = kinyerForrasNev(kepAdat.path, v)
end
tartalom = string.format('<div class="kulso-url-doboz" data-src="%s" data-forras-nev="%s"><span class="url-link-szoveg">Külső kép:<br/>[Link]</span><div class="galeria-felirat">%s</div></div>',
biztonsagos_path,
forras_nev,
tiszta_felirat)
else
if kepAdat.felirat and kepAdat.felirat ~= "" then
tartalom = string.format('[[Fájl:%s|thumb|180px|%s]]', kepAdat.path, tiszta_felirat)
else
tartalom = string.format('[[Fájl:%s|thumb|180px]]', kepAdat.path)
end
end
table.insert(html, ' <div class="galeria-elem">')
table.insert(html, ' ' .. tartalom)
table.insert(html, ' </div>')
end
end
i = i + 1
end
table.insert(html, '</div>')
local vegleges_html = table.concat(html, "\n")
return frame:preprocess(vegleges_html)
end
return p