mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 18:50:42 -08:00
Code Issues Projects Releases Wiki Activity

more secure connection ids

Browse source
This commit is contained in:
David Botton 2022-07-15 09:50:26 -04:00
parent 29fb063ad6
commit 8097a8b344
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
source/clog-connection.lisp
View file

@ -178,7 +178,7 @@ the default answer. (Private)"
(setf (gethash id *connection-ids*) connection) (setf (gethash id *connection-ids*) connection)
(setf (gethash connection *connections*) id)) (setf (gethash connection *connections*) id))
(t (t
(setf id (generate-id)) (setf id (+ (get-universal-time) (generate-id)))
(setf (gethash connection *connections*) id) (setf (gethash connection *connections*) id)
(setf (gethash id *connection-ids*) connection) (setf (gethash id *connection-ids*) connection)
(setf (gethash id *connection-data*) (setf (gethash id *connection-data*)