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

close the connection when connection-id is invalid

Browse source
This commit is contained in:
Shaka Chen 2022-08-03 15:09:41 +08:00
parent 3f1f908f6b
commit a05ff40e97
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
source/clog-connection.lisp
View file

@ -214,6 +214,9 @@ the default answer. (Private)"
c))))
(setf (gethash id *connection-ids*) connection)
(setf (gethash connection *connections*) id))
(id
(format t "Reconnection id ~A not found. Closing the connection.~%" id)
(websocket-driver:close-connection connection)) ; Don't send the reason for better security.
(t
(setf id (random-hex-string))
(setf (gethash connection *connections*) id)