resolve #190

CHANGELOG.md

@@ -1,5 +1,11 @@
 # Change Log
 
+## WIP
+### Improved
+- [Pod] serialize TxReport to regular map. #190
+### Fixed
+- [Server] migrate old sessions that do not have `:last-active`.
+
 ## 0.8.7 (2023-03-21)
 ### Added
 - [Datalog] `datalog-index-cache-limit` function to get/set the limit of Datalog

src/datalevin/server.clj

@@ -2081,11 +2081,14 @@
   (let [timeout (.-idle-timeout server)
         clients (.-clients server)]
     (doseq [[client-id session] clients
-            :let                [{:keys [last-active]} session]
-            :when               last-active]
-      (when (< ^long timeout
-               (- (System/currentTimeMillis) ^long last-active))
-        (disconnect-client* server client-id)))))
+            :let                [{:keys [last-active]} session]]
+      (if last-active
+        (when (< ^long timeout
+                 (- (System/currentTimeMillis) ^long last-active))
+          (disconnect-client* server client-id))
+        ;; migrate old sessions that don't have last-active
+        (update-client server client-id
+                       #(assoc % :last-active (System/currentTimeMillis)))))))
 
 (defn- event-loop
   [^Server server]

src/pod/huahaiy/datalevin.clj

@@ -225,7 +225,9 @@
                       (swap! (if writing? wdl-conns dl-conns)
                              assoc conn (atom d :meta (meta c)))))
                   (throw e)))]
-       {:datoms-transacted (count (:tx-data rp))}))))
+       {:tx-data (:tx-data rp)
+        :tempids (:tempids rp)
+        :tx-meta (:tx-meta rp)}))))
 
 (defn db [{:keys [::conn] :as cn}]
   (when-let [c (get-cn cn)]