From avodonosov at common-lisp.net Sun Jan 18 21:18:41 2009 From: avodonosov at common-lisp.net (avodonosov) Date: Sun, 18 Jan 2009 21:18:41 +0000 Subject: [cl-plus-ssl-cvs] CVS cl+ssl Message-ID: Update of /project/cl-plus-ssl/cvsroot/cl+ssl In directory cl-net:/tmp/cvs-serv3151 Modified Files: example.lisp Log Message: Make test-https-server working on CCL. Thanks to John McAleely and Gary Byers --- /project/cl-plus-ssl/cvsroot/cl+ssl/example.lisp 2008/03/07 21:27:31 1.1 +++ /project/cl-plus-ssl/cvsroot/cl+ssl/example.lisp 2009/01/18 21:18:41 1.2 @@ -68,8 +68,8 @@ (loop :for line = (read-line-crlf https nil) :while line :do (format t "HTTPS> ~a~%" line))) - (close socket) - (close https)))) + (close https) + (close socket)))) ;; start a simple HTTPS server. See the mod_ssl documentation at ;; for information on generating the @@ -108,5 +108,5 @@ (format client "CL+SSL running in ~A ~A~%" (lisp-implementation-type) (lisp-implementation-version))) - (close socket) - (close client)))))) + (close client) + (close socket)))))) From avodonosov at common-lisp.net Sun Jan 18 21:23:15 2009 From: avodonosov at common-lisp.net (avodonosov) Date: Sun, 18 Jan 2009 21:23:15 +0000 Subject: [cl-plus-ssl-cvs] CVS cl+ssl Message-ID: Update of /project/cl-plus-ssl/cvsroot/cl+ssl In directory cl-net:/tmp/cvs-serv5511 Modified Files: example.lisp Log Message: Explicitly specify newline conversions for SSL streams to make read-line-crlf working on Windows --- /project/cl-plus-ssl/cvsroot/cl+ssl/example.lisp 2009/01/18 21:18:41 1.2 +++ /project/cl-plus-ssl/cvsroot/cl+ssl/example.lisp 2009/01/18 21:23:15 1.3 @@ -33,7 +33,7 @@ (defun test-nntps-client (&optional (host "snews.gmane.org") (port 563)) (let* ((fd (trivial-sockets:open-stream host port :element-type '(unsigned-byte 8))) - (nntps (cl+ssl:make-ssl-client-stream fd :external-format :iso-8859-1))) + (nntps (cl+ssl:make-ssl-client-stream fd :external-format '(:iso-8859-1 :eol-style :lf)))) (format t "NNTPS> ~A~%" (read-line-crlf nntps)) (write-line "HELP" nntps) (force-output nntps) @@ -60,7 +60,7 @@ (cl+ssl:make-ssl-client-stream socket :unwrap-stream-p t - :external-format :iso-8859-1)))) + :external-format '(:iso-8859-1 :eol-style :lf))))) (unwind-protect (progn (format https "GET / HTTP/1.0~%Host: ~a~%~%" host) @@ -91,7 +91,7 @@ :element-type '(unsigned-byte 8))) (client (cl+ssl:make-ssl-server-stream (cl+ssl:stream-fd socket) - :external-format :iso-8859-1 + :external-format '(:iso-8859-1 :eol-style :lf) :certificate cert :key key))) (unwind-protect From avodonosov at common-lisp.net Sun Jan 18 21:31:45 2009 From: avodonosov at common-lisp.net (avodonosov) Date: Sun, 18 Jan 2009 21:31:45 +0000 Subject: [cl-plus-ssl-cvs] CVS cl+ssl Message-ID: Update of /project/cl-plus-ssl/cvsroot/cl+ssl In directory cl-net:/tmp/cvs-serv5929 Modified Files: example.lisp Log Message: minor fomatting fix: tab instead of spaces --- /project/cl-plus-ssl/cvsroot/cl+ssl/example.lisp 2009/01/18 21:23:15 1.3 +++ /project/cl-plus-ssl/cvsroot/cl+ssl/example.lisp 2009/01/18 21:31:45 1.4 @@ -68,7 +68,7 @@ (loop :for line = (read-line-crlf https nil) :while line :do (format t "HTTPS> ~a~%" line))) - (close https) + (close https) (close socket)))) ;; start a simple HTTPS server. See the mod_ssl documentation at From avodonosov at common-lisp.net Thu Jan 22 21:52:57 2009 From: avodonosov at common-lisp.net (avodonosov) Date: Thu, 22 Jan 2009 21:52:57 +0000 Subject: [cl-plus-ssl-cvs] CVS cl+ssl Message-ID: Update of /project/cl-plus-ssl/cvsroot/cl+ssl In directory cl-net:/tmp/cvs-serv11935 Modified Files: example.lisp Log Message: pass socket stream instead of socket to cl+ssl functions --- /project/cl-plus-ssl/cvsroot/cl+ssl/example.lisp 2009/01/18 21:31:45 1.4 +++ /project/cl-plus-ssl/cvsroot/cl+ssl/example.lisp 2009/01/22 21:52:56 1.5 @@ -68,8 +68,7 @@ (loop :for line = (read-line-crlf https nil) :while line :do (format t "HTTPS> ~a~%" line))) - (close https) - (close socket)))) + (close https)))) ;; start a simple HTTPS server. See the mod_ssl documentation at ;; for information on generating the @@ -90,7 +89,7 @@ server :element-type '(unsigned-byte 8))) (client (cl+ssl:make-ssl-server-stream - (cl+ssl:stream-fd socket) + socket :external-format '(:iso-8859-1 :eol-style :lf) :certificate cert :key key))) @@ -108,5 +107,4 @@ (format client "CL+SSL running in ~A ~A~%" (lisp-implementation-type) (lisp-implementation-version))) - (close client) - (close socket)))))) + (close client))))))