Dasemu
40631362b3
Establishes version control for the personal Logseq DB fork before starting the server-client architecture migration and domain features described in docs/agent-guide and the approved implementation plan. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
77 lines
3.2 KiB
Clojure
77 lines
3.2 KiB
Clojure
(ns logseq.db-sync.node.dispatch
|
|
(:require [clojure.string :as string]
|
|
[logseq.db-sync.common :as common]
|
|
[logseq.db-sync.node.graph :as graph]
|
|
[logseq.db-sync.node.routes :as node-routes]
|
|
[logseq.db-sync.platform.core :as platform]
|
|
[logseq.db-sync.worker.handler.assets :as assets-handler]
|
|
[logseq.db-sync.worker.handler.index :as index-handler]
|
|
[logseq.db-sync.worker.handler.sync :as sync-handler]
|
|
[logseq.db-sync.worker.http :as http]
|
|
[promesa.core :as p]))
|
|
|
|
(defn- admin-token-valid?
|
|
[request env]
|
|
(let [expected (aget env "DB_SYNC_ADMIN_TOKEN")
|
|
actual (.get (.-headers request) "x-db-sync-admin-token")]
|
|
(and (string? expected)
|
|
(seq expected)
|
|
(= expected actual))))
|
|
|
|
(defn handle-node-fetch
|
|
[{:keys [request env registry deps]}]
|
|
(let [url (platform/request-url request)
|
|
path (.-pathname url)
|
|
method (.-method request)
|
|
index-self #js {:env env :d1 (aget env "DB")}]
|
|
(cond
|
|
(= path "/health")
|
|
(http/json-response :worker/health {:ok true})
|
|
|
|
(or (= path "/graphs")
|
|
(string/starts-with? path "/graphs/"))
|
|
(index-handler/handle-fetch index-self request)
|
|
|
|
(string/starts-with? path "/e2ee")
|
|
(index-handler/handle-fetch index-self request)
|
|
|
|
(string/starts-with? path "/assets/")
|
|
(if (= method "OPTIONS")
|
|
(assets-handler/handle request env)
|
|
(if-let [{:keys [graph-id]} (assets-handler/parse-asset-path path)]
|
|
(if (admin-token-valid? request env)
|
|
(assets-handler/handle request env)
|
|
(p/let [access-resp (index-handler/graph-access-response request env graph-id)]
|
|
(if (.-ok access-resp)
|
|
(assets-handler/handle request env)
|
|
access-resp)))
|
|
(http/bad-request "invalid asset path")))
|
|
|
|
(= method "OPTIONS")
|
|
(common/options-response)
|
|
|
|
(string/starts-with? path "/sync/")
|
|
(if-let [{:keys [graph-id tail]} (node-routes/parse-sync-path path)]
|
|
(if (seq graph-id)
|
|
(if (= method "OPTIONS")
|
|
(common/options-response)
|
|
(if (admin-token-valid? request env)
|
|
(let [ctx (graph/get-or-create-graph registry deps graph-id)
|
|
new-url (js/URL. (str (.-origin url) tail (.-search url)))]
|
|
(.set (.-searchParams new-url) "graph-id" graph-id)
|
|
(let [rewritten (platform/request (.toString new-url) request)]
|
|
(sync-handler/handle-http ctx rewritten)))
|
|
(p/let [access-resp (index-handler/graph-access-response request env graph-id)]
|
|
(if (.-ok access-resp)
|
|
(let [ctx (graph/get-or-create-graph registry deps graph-id)
|
|
new-url (js/URL. (str (.-origin url) tail (.-search url)))]
|
|
(.set (.-searchParams new-url) "graph-id" graph-id)
|
|
(let [rewritten (platform/request (.toString new-url) request)]
|
|
(sync-handler/handle-http ctx rewritten)))
|
|
access-resp))))
|
|
(http/bad-request "missing graph id"))
|
|
(http/bad-request "missing graph id"))
|
|
|
|
:else
|
|
(http/not-found))))
|