Soziales Netz im Spiel: Feed, Werbung, Markt, Kalender und Gewerbe

Jeder Spieler waehlt sich ein Handle mit @, Unternehmen und Behoerden bekommen
eigene Profile, fuer die sie Mitarbeiter freigeben.

Verwaltet wird ueber dieselbe Anmeldung wie das Webhosting: wer am IC-Computer
als Anbieter angemeldet ist, richtet Unternehmensprofile ein. Damit gibt es
genau eine Stelle, an der Verwaltungsrechte haengen - ein zweites Rechtesystem
daneben waere eine zweite Stelle, an der man jemanden zu entziehen vergisst.

Bewusst getrennt: wer fuer ein Unternehmen schreiben darf, kann sich nicht
selbst zum Verwalter machen.

Behoben gegenueber dem Ausgangsstand:

  - Die Resource startete nicht. Eine harte Abhaengigkeit zeigte auf eine
    Resource, die es nicht gibt - das verhindert den Start vollstaendig.
  - Das Schema war gegenueber dem Code stehengeblieben: eine Tabelle fehlte
    ganz, sechs Spalten fehlten. Jede Registrierung eines Handles scheiterte
    deshalb mit einem SQL-Fehler. Zwei Migrationen ziehen das nach.
  - Die Identitaet kommt jetzt von ESX statt von einem Charaktersystem, das
    hier nicht laeuft. Ohne das findet das Mailsystem die Postfaecher nicht.
  - Das Fenster hatte keinen Schliessknopf, nur ESC. Im Computerfenster ist
    diese Taste aber schon vergeben.
  - Bilder laden mit referrerpolicy="no-referrer": Bilderdienste sperren
    Hotlinks anhand der Herkunft, und die eines NUI kennen sie nicht.
  - Der Schluessel fuer den Bilder-Upload steht nicht mehr im Code, sondern in
    der server.cfg (set bleeter_imgbb_key). Er gehoert nicht in ein oeffentlich
    einsehbares Repository.

Neu: Unternehmensprofile und Mitarbeiterfreigabe, ueber Netzwerkereignisse und
Konsolenbefehle. Dazu eine Oberflaeche im IC-Computer, die dieselbe Gestaltung
benutzt - die Stildatei wird dafuer mechanisch gekapselt, statt sie nachzubauen.

Enthaelt README.md mit Einrichtung, Rechten und den Fallstricken.

server/adapters/icweb.lua

@@ -0,0 +1,46 @@
+-- ─────────────────────────────────────────────────────────────────────────────
+--  Bleeter ← ic-web
+--
+--  Bleeter wird ueber dieselbe Anmeldung verwaltet wie das Webhosting: wer am
+--  PC als admin@liveinvader.ls angemeldet ist, ist auch hier der Anbieter.
+--
+--  Damit gibt es genau eine Stelle, an der Anbieterrechte haengen – ein
+--  zweites Rechtesystem daneben waere eine zweite Stelle, an der man jemanden
+--  vergessen kann zu entziehen.
+--
+--    Anbieter (superadmin)  richtet Unternehmensprofile ein und verwaltet sie
+--    Unternehmen            geben eigene Leute fuer ihr Profil frei
+--    Spieler                waehlen ihr eigenes Handle mit @
+--
+--  Die alte Tabelle bleeter_lifeinvader_permissions bleibt als zweiter Weg
+--  bestehen: sie ist der Notausgang, falls ic-web einmal nicht laeuft.
+-- ─────────────────────────────────────────────────────────────────────────────
+
+IcWebAdapter = {}
+
+--- Anmeldung am PC, falls vorhanden.
+---@return table|nil  { username, role, domain, ... }
+function IcWebAdapter.GetSession(source)
+    if GetResourceState('ic-web') ~= 'started' then return nil end
+
+    local ok, session = pcall(function()
+        return exports['ic-web']:GetSession(source)
+    end)
+    return ok and session or nil
+end
+
+--- Ist diese Person gerade als Anbieter angemeldet?
+function IcWebAdapter.IsProvider(source)
+    local session = IcWebAdapter.GetSession(source)
+    return session ~= nil and session.role == 'superadmin'
+end
+
+--- Ist diese Person fuer eine Domaene angemeldet – also Sprecher einer Stelle?
+--- Wird nicht fuer Rechte benutzt, sondern nur als Vorschlag beim Einrichten
+--- eines Unternehmensprofils.
+---@return string|nil  Domaene, wenn angemeldet
+function IcWebAdapter.SessionDomain(source)
+    local session = IcWebAdapter.GetSession(source)
+    if not session then return nil end
+    return session.domain
+end

server/adapters/ifruit.lua

@@ -0,0 +1,11 @@
+IfruitAdapter = {}
+
+function IfruitAdapter.GetAccountIdentity(source)
+    return {
+        identifier = Config.GetIdentifier(source),
+        charId = Config.GetCharacterId(source),
+        displayName = Config.GetCharacterName(source),
+        mailAddress = Config.GetMailAddress(source),
+        phoneNumber = Config.GetPhoneNumber(source)
+    }
+end

server/adapters/mail.lua

@@ -0,0 +1,22 @@
+MailAdapter = {}
+
+function MailAdapter.OpenCompose(source, targetMail, subject)
+    local message = ('Mail an %s vorbereitet%s.'):format(
+        targetMail or 'unbekannt',
+        subject and subject ~= '' and (': ' .. subject) or ''
+    )
+
+    TriggerClientEvent('zc_ifruit:client:hardOpen', source)
+    TriggerClientEvent('zc_ifruit:client:openMailCompose', source, {
+        to = targetMail,
+        subject = subject or ''
+    })
+    TriggerClientEvent('zc_ifruit:client:notify', source, {
+        type = 'info',
+        message = message
+    })
+    TriggerClientEvent('bleeter:client:notify', source, {
+        type = 'info',
+        message = message
+    })
+end

server/adapters/media.lua

@@ -0,0 +1,141 @@
+MediaAdapter = {}
+
+local function trim(value, maxLength)
+    local text = tostring(value or ''):match('^%s*(.-)%s*$')
+    if maxLength and #text > maxLength then
+        text = text:sub(1, maxLength)
+    end
+    return text
+end
+
+local function extensionFromUrl(url)
+    return tostring(url or ''):match('%.([%w]+)%??[^/]*$')
+end
+
+local function extensionFromName(name)
+    return tostring(name or ''):match('%.([%w]+)$')
+end
+
+local function isAllowedExtension(ext)
+    ext = tostring(ext or ''):lower()
+    for _, allowed in ipairs(Config.Media.allowedExtensions or {}) do
+        if ext == allowed then
+            return true
+        end
+    end
+    return false
+end
+
+local function mimeExtension(mime)
+    return ({
+        ['image/jpeg'] = 'jpg',
+        ['image/jpg'] = 'jpg',
+        ['image/png'] = 'png'
+    })[tostring(mime or ''):lower()]
+end
+
+local function urlEncode(value)
+    return tostring(value or ''):gsub('\n', '\r\n'):gsub('([^%w%-_%.~])', function(char)
+        return string.format('%%%02X', string.byte(char))
+    end)
+end
+
+local function decodeJson(value)
+    if not value or value == '' then return nil end
+    local ok, result = pcall(json.decode, value)
+    if ok then return result end
+    return nil
+end
+
+function MediaAdapter.IsAllowedExternalUrl(url)
+    url = tostring(url or '')
+    if Config.Media.requireHttps and not url:match('^https://') then
+        return false, 'url_must_be_https'
+    end
+
+    if url:match('^https://i%.ibb%.co/') or url:match('^https://ibb%.co/') then
+        return true
+    end
+
+    local ext = extensionFromUrl(url)
+    if not ext then return false, 'missing_extension' end
+    ext = ext:lower()
+
+    if isAllowedExtension(ext) then return true end
+    return false, 'unsupported_extension'
+end
+
+function MediaAdapter.ValidateUpload(payload)
+    if type(payload) ~= 'table' then return false, 'invalid_payload' end
+
+    local name = trim(payload.name, 180)
+    local mime = trim(payload.mime, 80):lower()
+    local data = tostring(payload.data or '')
+    local size = tonumber(payload.size) or 0
+
+    if data == '' then return false, 'missing_data' end
+    if size <= 0 then return false, 'missing_size' end
+    if size > (Config.Media.maxBytes or 2097152) then return false, 'file_too_large' end
+
+    local ext = extensionFromName(name) or mimeExtension(mime)
+    if not isAllowedExtension(ext) then return false, 'unsupported_extension' end
+    if mimeExtension(mime) and not isAllowedExtension(mimeExtension(mime)) then return false, 'unsupported_mime' end
+
+    return true, {
+        name = name ~= '' and name or ('bleeter_%s.%s'):format(os.time(), ext),
+        mime = mime,
+        data = data,
+        size = size,
+        extension = ext
+    }
+end
+
+function MediaAdapter.Upload(payload, cb)
+    local ok, upload = MediaAdapter.ValidateUpload(payload)
+    if not ok then
+        cb(false, upload)
+        return
+    end
+
+    if Config.Media.provider ~= 'imgbb' then
+        cb(false, 'provider_not_configured')
+        return
+    end
+
+    -- Erst die Konsolenvariable, dann die Config. So bleibt der Schluessel
+    -- aus der Versionsverwaltung heraus.
+    local apiKey = trim(GetConvar('bleeter_imgbb_key', Config.Media.imgbbApiKey or ''))
+    if apiKey == '' then
+        cb(false, 'missing_imgbb_key')
+        return
+    end
+
+    local body = ('image=%s&name=%s'):format(urlEncode(upload.data), urlEncode(upload.name))
+    local url = ('https://api.imgbb.com/1/upload?key=%s'):format(urlEncode(apiKey))
+
+    PerformHttpRequest(url, function(statusCode, responseText)
+        if statusCode < 200 or statusCode >= 300 then
+            cb(false, 'upload_failed')
+            return
+        end
+
+        local decoded = decodeJson(responseText)
+        local data = decoded and decoded.data
+        local imageUrl = data and (data.url or data.display_url)
+
+        if not imageUrl or imageUrl == '' then
+            cb(false, 'missing_upload_url')
+            return
+        end
+
+        cb(true, {
+            url = imageUrl,
+            deleteUrl = data.delete_url,
+            size = upload.size,
+            mime = upload.mime,
+            name = upload.name
+        })
+    end, 'POST', body, {
+        ['Content-Type'] = 'application/x-www-form-urlencoded'
+    })
+end

server/adapters/superpc.lua

@@ -0,0 +1,39 @@
+SuperPcAdapter = {}
+
+local businessStatus = {}
+
+function SuperPcAdapter.GetBusinessStatus(handle)
+    return businessStatus[handle] or 'closed'
+end
+
+function SuperPcAdapter.SetBusinessStatus(handle, status)
+    if not handle or handle == '' then return false end
+    if status ~= 'open' and status ~= 'closed' then return false end
+    businessStatus[handle] = status
+    return true
+end
+
+function SuperPcAdapter.GetProfileMemberships(_source)
+    return {}
+end
+
+function SuperPcAdapter.HasLifeinvaderPermission(_source, _permission)
+    local identity = IfruitAdapter and IfruitAdapter.GetAccountIdentity and IfruitAdapter.GetAccountIdentity(_source)
+    local charId = identity and identity.charId or ''
+    local permission = tostring(_permission or '')
+
+    if charId == '' or permission == '' then
+        return false
+    end
+
+    local row = MySQL.single.await([[
+        SELECT id
+        FROM bleeter_lifeinvader_permissions
+        WHERE char_id = ?
+            AND allowed = 1
+            AND permission IN (?, '*', 'admin')
+        LIMIT 1
+    ]], { charId, permission })
+
+    return row ~= nil
+end