View source for Module:VideoMetaData

local p = {}

-- Basic HTML / wikitext escape for text fields
local function escapeText(text)
	if type(text) ~= 'string' then
		return ''
	end
	-- Escape list markers at line start
	text = text:gsub('^([*#;:])', function(c)
		return '&#' .. string.byte(c) .. ';'
	end)
	-- Escape wikitext control characters
	text = text:gsub('([%[%]|=])', function(c)
		return '&#' .. string.byte(c) .. ';'
	end)
	-- Escape HTML-sensitive characters
	text = text:gsub('"', '&quot;')
	text = text:gsub("'", '&#39;')
	text = text:gsub('<', '&lt;')
	text = text:gsub('>', '&gt;')
	text = text:gsub('{', '&#123;')
	text = text:gsub('}', '&#125;')
	return text
end



-- Load JSON content from a page
function p.loadJsonContent(jsonPage)
	if type(jsonPage) ~= 'string' then
		return nil, "Invalid argument: JSON page name must be a string."
	end

	local title = mw.title.new(jsonPage)
	if not title then
		return nil, "Failed to create title object for page: " .. jsonPage
	end

	local content = title:getContent()
	if not content then
		return nil, "Failed to load content for page: " .. jsonPage
	end

	local data = mw.text.jsonDecode(content)
	if type(data) ~= 'table' then
		return nil, "Invalid JSON data in page: " .. jsonPage
	end

	return data, nil
end

-- Extract metadata for a list of URLs from an array-based JSON
function p.extractMetadata(data, urls)
	local videosTable = {}

	for _, url in ipairs(urls) do
		local found = false
		for _, entry in ipairs(data) do
			if entry.url == url then
				videosTable[url] = {
					url = entry.url,
					title = entry.title or "No title",
					description = entry.description or "No description",
					channelName = entry.channelName or "Unknown"
				}
				found = true
				break
			end
		end
		if not found then
			videosTable[url] = {
				url = url,
				title = "No title",
				description = "No description",
				channelName = "Unknown"
			}
		end
	end

	return videosTable
end

-- Generate a wikitable from all entries in the JSON array
function p.generateWikitable(frame)
	local jsonPage = frame.args[1]
	if not jsonPage then
		return "Error: No JSON page specified."
	end

	local data, err = p.loadJsonContent(jsonPage)
	if not data then
		return "Wikitable from JSON data error: " .. err
	end

	local result = {"{| class=\"wikitable\"\n! URL\n! Title\n! Description\n! Channel\n"}
	for _, entry in ipairs(data) do
		table.insert(result, string.format(
			"|-\n| %s\n| %s\n| %s\n| %s\n",
			entry.url or "No URL",
			escapeText(entry.title or "No title"),
			escapeText(entry.description or "No description"),
			escapeText(entry.channelName or "Unknown")
		))
	end
	table.insert(result, "|}")
	return table.concat(result, "\n")
end

-- Generate a wikitable from filtered content by URL
function p.generateWikitableByURLs(frame)
	local jsonPage = frame.args[1]
	if not jsonPage then
		return "Error: No JSON page specified."
	end

	-- Collect all positional arguments beyond the first
	local urls = {}
	for k, v in pairs(frame.args) do
		local num = tonumber(k)
		if num and num > 1 and type(v) == 'string' and v ~= '' then
			table.insert(urls, v)
		end
	end
	table.sort(urls) -- ensure consistent order

	if #urls == 0 then
		return "Error: No URLs specified."
	end

	local data, err = p.loadJsonContent(jsonPage)
	if not data then
		return "Wikitable from JSON data error: " .. err
	end

	local videosTable = p.extractMetadata(data, urls)

	local result = {"{| class=\"wikitable\"\n! URL\n! Title\n! Description\n! Channel\n"}
	for _, url in ipairs(urls) do
		local v = videosTable[url]
		table.insert(result, string.format(
			"|-\n| %s\n| %s\n| %s\n| %s\n",
			v.url,
			escapeText(v.title),
			escapeText(v.description),
			escapeText(v.channelName)
		))
	end
	table.insert(result, "|}")

	return table.concat(result, "\n")
end

-- Simple test function
function p.test(frame)
	local jsonPage = frame.args[1]
	local data, err = p.loadJsonContent(jsonPage)
	if not data then
		return err
	end
	local first = data[1]
	if not first then
		return "No entries found."
	end
	return string.format("First entry: %s — %s",
		escapeText(first.title or "No title"),
		escapeText(first.channelName or "Unknown"))
end

-- Return [url title] if found, [url] otherwise
function p.link(frame)
	local jsonPage = frame.args[1]
	local url = frame.args[2]

	if not jsonPage or not url then
		return "Error: Missing arguments (expected JSON page and URL)."
	end

	local data, err = p.loadJsonContent(jsonPage)
	if not data then
		return "Error: " .. err
	end

	for _, entry in ipairs(data) do
		if entry.url == url and type(entry.title) == "string" and entry.title ~= "" then
			return string.format("[%s %s]", url, escapeText(entry.title))
		end
	end

	return string.format("[%s]", url)
end

function p.title(frame)
	local jsonPage = frame.args[1]
	local url = frame.args[2]

	if not jsonPage or not url then
		return "Error: Missing arguments (expected JSON page and URL)."
	end

	local data, err = p.loadJsonContent(jsonPage)
	if not data then
		return "Error: " .. err
	end

	for _, entry in ipairs(data) do
		if entry.url == url and type(entry.title) == "string" and entry.title ~= "" then
			return escapeText(entry.title)
		end
	end

	return ""
end

return p