Module:Json parameter test

Documentation for this module may be created at Module:Json parameter test/doc

local p = {}

function p.generateClassLists(frame)
    -- JSON-Daten in einem Lua-String von der Parserfunktion abrufen
    -- local jsonData = frame:callParserFunction('#visualdataquery:[[unique title::+]]', { '?articleid', schema = 'Data classes', format = 'json' })
    local jsonData = frame:preprocess('{{#visualdataquery:[[unique title::+]]|?articleid|schema = Data classes|format = json-raw}}') 

    -- Debug: Gib die empfangenen JSON-Daten aus
    local debugInfo = "'''Received JSON Data: '''" .. tostring(jsonData) .. "\n"

    -- Überprüfe, ob jsonData gültig ist
    if not jsonData or jsonData == '' then
        return "'''Keine JSON-Daten empfangen.'''"
    end

    -- Entferne führende und nachfolgende Leerzeichen
    jsonData = mw.text.trim(jsonData, mw.text.JSON_PRETTY)

    -- Debug: Gib die getrimmten JSON-Daten aus
    debugInfo = debugInfo .. "'''Trimmed JSON Data: '''" .. tostring(jsonData) .. "\n"

    -- Debug: Gib die Länge der JSON-Daten aus
    debugInfo = debugInfo .. "'''Length of JSON Data: '''" .. tostring(#jsonData) .. "\n"

    -- Debug: Gib die rohen JSON-Daten aus, um zu überprüfen, ob sie korrekt sind
    debugInfo = debugInfo .. "'''Raw JSON Data: '''" .. jsonData .. "\n"

    -- Ersetze nicht druckbare Zeichen durch sichtbare Platzhalter für Debug-Zwecke
    local jsonDataVisible = jsonData:gsub("%c", function(c) return string.format("\\x%02X", string.byte(c)) end)
    debugInfo = debugInfo .. "'''Visible JSON Data: '''" .. jsonDataVisible .. "\n"

    -- Überprüfe auf bekannte Platzhalter und entferne diese
    jsonData = jsonData:gsub("\127'\"`UNIQ%-%-.-%-%-QINU`\"'\127", "")
    
    -- jsonData = mw.text.killMarkers(jsonData)
    -- jsonData = mw.text.unstrip(jsonData)

	jsonData = mw.text.jsonEncode(jsonData)

    -- JSON-Daten in Lua-Tabelle umwandeln
    local success, json = pcall(mw.text.jsonDecode, jsonData)
    if not success then
        return debugInfo .. "'''Fehler beim Dekodieren der JSON-Daten: '''" .. tostring(json)
    end

    debugInfo = debugInfo .. "'''Decoded JSON Data: '''" .. mw.dumpObject(json) .. "\n"

    local result = {}

    for _, item in ipairs(json) do
        local title = item.data.title
        local classNames = item.data["class names"]
        table.insert(result, "== " .. title .. " ==")
        table.insert(result, "* " .. table.concat(classNames, "\n* "))
    end

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

return p