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/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