gered/aging-session
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

tweaks to session entry expiry checks/handling

Browse source 
some performance improvements here ...
This commit is contained in:
Gered 2022-01-02 17:01:21 -05:00
parent 38c6a37d59
commit eb2810652e
1 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/aging_session/memory.clj
View file

@ -24,24 +24,27 @@
(assoc-in session-map [key :value] data)
(assoc session-map key (new-entry data))))
(defn- update-entry
"Update a session entry based on the configured session entry ttl."
[ttl now [k {:keys [timestamp] :as v}]]
(if v
(if-not (> (- now timestamp) ttl)
[k v])))
(defn- entry-expired?
"Returns true if the given session entry has expired according to its current timestamp and the session store's
configured ttl"
[ttl now v]
(and v
(> (- now (:timestamp v))
ttl)))
(defn- sweep-session
"Sweep the session and run all session functions."
[session-map now ttl]
(into {} (keep #(update-entry ttl now %) session-map)))
(->> session-map
(remove #(entry-expired? ttl now (val %)))
(into {})))
(defn- sweep-entry
"Sweep a single entry."
[session-map now ttl key]
(if-let [existing-entry (get session-map key)]
(if-let [[_ entry] (update-entry ttl now [key existing-entry])]
(assoc session-map key entry)
(if-not (entry-expired? ttl now existing-entry)
(assoc session-map key existing-entry)
(dissoc session-map key))
session-map))