cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

always close the client socket

This commit is contained in:
Omar Polo 2021-05-22 10:49:51 +00:00
parent b7c64d1e78
commit 2373769f4e
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/api-client.lisp
View File

@ -143,13 +143,16 @@ authorization code.
This function perfom the latest of this actions."
(unwind-protect
(let* ((stream (usocket:socket-stream (usocket:socket-accept socket)))
(line (read-line stream)))
(multiple-value-bind (matched query-string)
(cl-ppcre:scan-to-strings "code=\(.+\)" line)
(if matched
(first (cl-ppcre:split "(&)|(\\p{White_Space})" (first-elt query-string)))
nil)))
(let ((client-socket (usocket:socket-accept socket)))
(unwind-protect
(let* ((stream (usocket:socket-stream client-socket))
(line (read-line stream)))
(multiple-value-bind (matched query-string)
(cl-ppcre:scan-to-strings "code=\(.+\)" line)
(if matched
(first (cl-ppcre:split "(&)|(\\p{White_Space})" (first-elt query-string)))
nil)))
(usocket:socket-close client-socket)))
(usocket:socket-close socket)))
(defun make-redirect-url (port)