phoe · August 30, 2018 19:12 · phoe · Aug 30, 2018
diff --git a/ssl.lisp b/ssl.lisp
 (defun ssl-connect () ;; this is a god damn hack
  (let* ((socket (usocket:socket-connect "lightbringer.furcadia.com" 80))
         (stream (usocket:socket-stream socket)))
    (sleep 1)
    (loop while (listen stream)
          for line = (read-line stream nil stream)
          until (eq line stream)
          do (format t "S> ~A~%" line))
    (format t "C> ~A~%" "starttls")
    (format stream "starttls~C~C" #\Return #\Linefeed)
    (force-output stream)
    (format t "S> ~A~%" (read-line stream))
    (cl+ssl:make-ssl-client-stream stream 
                                   :verify nil ;; until we find the X509 public cert
  )))
	(defun ssl-connect () ;; this is a god damn hack
	(let* ((socket (usocket:socket-connect "lightbringer.furcadia.com" 80))
	(stream (usocket:socket-stream socket)))
	(sleep 1)
	(loop while (listen stream)
	for line = (read-line stream nil stream)
	until (eq line stream)
	do (format t "S> ~A~%" line))
	(format t "C> ~A~%" "starttls")
	(format stream "starttls~C~C" #\Return #\Linefeed)
	(force-output stream)
	(format t "S> ~A~%" (read-line stream))
	(cl+ssl:make-ssl-client-stream stream
	:verify nil ;; until we find the X509 public cert
	)))