diff options
| author | ckonstanski <kostcarl@isu.edu> | 2026-03-28 13:59:54 -0600 |
|---|---|---|
| committer | ckonstanski <kostcarl@isu.edu> | 2026-03-28 13:59:54 -0600 |
| commit | d3abba68fe367d18a29bd12aa320f4a57a5fe57d (patch) | |
| tree | f6c7f722d5a10af36b14ba6561bc3f9852fd541b /lisp/sql/user-session-pkg.lisp | |
| parent | 7d523da5d7defbf68a07f746a0d75ea18960267c (diff) | |
loop..do cleanup
Diffstat (limited to 'lisp/sql/user-session-pkg.lisp')
| -rw-r--r-- | lisp/sql/user-session-pkg.lisp | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/sql/user-session-pkg.lisp b/lisp/sql/user-session-pkg.lisp index 0adba55..954f84f 100644 --- a/lisp/sql/user-session-pkg.lisp +++ b/lisp/sql/user-session-pkg.lisp @@ -106,11 +106,11 @@ variable." (setf org-ckons-session::*gc-last-cycle-timestamp* (get-universal-time)) (with-bogenherr-database (let ((user-session-pkg (make-instance 'user-session-pkg))) - (loop for user-session in (get-user-sessions user-session-pkg) do - (let ((inactive-time (- org-ckons-session::*gc-last-cycle-timestamp* (datetime user-session)))) - (when (and (> inactive-time org-ckons-session::*session-timeout*) - (sessionid user-session)) - (org-ckons-core::logger (format nil "Deleting expired session: id = [~a] ; sessionid = [~a]" (id user-session) (sessionid user-session))) - (loop for user-session-object in (get-user-session-objects user-session-pkg user-session) do - (delete-record user-session-pkg user-session-object)) - (delete-record user-session-pkg user-session)))))))) + (loop for user-session in (get-user-sessions user-session-pkg) + do (let ((inactive-time (- org-ckons-session::*gc-last-cycle-timestamp* (datetime user-session)))) + (when (and (> inactive-time org-ckons-session::*session-timeout*) + (sessionid user-session)) + (org-ckons-core::logger (format nil "Deleting expired session: id = [~a] ; sessionid = [~a]" (id user-session) (sessionid user-session))) + (loop for user-session-object in (get-user-session-objects user-session-pkg user-session) + do (delete-record user-session-pkg user-session-object)) + (delete-record user-session-pkg user-session)))))))) |