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

- removed debug code

This commit is contained in:
cage 2023-04-14 17:27:56 +02:00
parent 91e6298e7c
commit 340f98b618
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/gemini/client.lisp
View File

@ -437,8 +437,7 @@
(ctx (cl+ssl:make-context :verify-mode cl+ssl:+ssl-verify-none+))) (ctx (cl+ssl:make-context :verify-mode cl+ssl:+ssl-verify-none+)))
(cl+ssl:with-global-context (ctx :auto-free-p t) (cl+ssl:with-global-context (ctx :auto-free-p t)
(let ((socket (open-tls-socket host port))) (let ((socket (open-tls-socket host port)))
(when hooks:*after-gemini-socket* (hooks:run-hooks 'hooks:*after-gemini-socket*)
(hooks:run-hooks 'hooks:*after-gemini-socket*))
(let* ((stream (usocket:socket-stream socket)) (let* ((stream (usocket:socket-stream socket))
(ssl-hostname (if (or (iri:ipv4-address-p host) (ssl-hostname (if (or (iri:ipv4-address-p host)
(iri:ipv6-address-p host)) (iri:ipv6-address-p host))
@ -459,9 +458,7 @@
(progn (progn
(write-sequence (string->octets request) ssl-stream) (write-sequence (string->octets request) ssl-stream)
(force-output ssl-stream) (force-output ssl-stream)
(misc:dbg "client hook ~a" hooks:*after-gemini-request-sent*) (hooks:run-hooks 'hooks:*after-gemini-request-sent*)
(when hooks:*after-gemini-request-sent*
(hooks:run-hooks 'hooks:*after-gemini-request-sent*))
(multiple-value-bind (status description meta response) (multiple-value-bind (status description meta response)
(parse-response ssl-stream) (parse-response ssl-stream)
(values status description meta response socket))))))))) (values status description meta response socket)))))))))