- cl-smtp-cvs@lists.common-lisp.net - mailman3.common-lisp.net

[cl-smtp-cvs] CVS cl-smtp
by jidzikowski 18 Oct '07

18 Oct '07

Update of /project/cl-smtp/cvsroot/cl-smtp In directory clnet:/tmp/cvs-serv6669 Modified Files: CHANGELOG cl-smtp.asd Log Message: new version 20071018.1 --- /project/cl-smtp/cvsroot/cl-smtp/CHANGELOG 2007/09/04 19:59:50 1.7 +++ /project/cl-smtp/cvsroot/cl-smtp/CHANGELOG 2007/10/18 19:10:37 1.8 @@ -1,10 +1,15 @@ +Version 20071018.1 +2007.10.18 +Reverted the non allegro base64 functionality in attachment.lisp, +now it is used cl-base64 again. Thanks Attila Lendvai for the bug report. +Change attachments.lisp, cl-smtp.asd, CHANGELOG + Version 20070904.1 2007-09-04 Remove implementation dependent sockets code by adding usocket dependency. Change cl-smtp.asd cl-smtp.lisp README INSTALL (remove acl.lisp clisp.lisp cmucl.lisp sbcl.lisp lispworks.lisp openmcl.lisp) - Version 20060404.1 2006-04-04 "ADD" support for attachment, thanks Brian Sorg for the implementation --- /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.asd 2007/09/04 18:56:58 1.8 +++ /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.asd 2007/10/18 19:10:37 1.9 @@ -29,7 +29,7 @@ (print ,str))) (asdf:defsystem :cl-smtp - :version "20070904.1" + :version "20071018.1" :depends-on (:usocket #-allegro :cl-base64) :components ((:file "cl-smtp" :depends-on ("attachments")) (:file "attachments")))

1 0

[cl-smtp-cvs] CVS cl-smtp
by jidzikowski 16 Oct '07

16 Oct '07

Update of /project/cl-smtp/cvsroot/cl-smtp In directory clnet:/tmp/cvs-serv1543 Modified Files: attachments.lisp Log Message: revert the #-allegro part in base64-encode-file to use cl-base64 thanks Attila Lendvai for the patch --- /project/cl-smtp/cvsroot/cl-smtp/attachments.lisp 2007/09/05 09:35:51 1.3 +++ /project/cl-smtp/cvsroot/cl-smtp/attachments.lisp 2007/10/16 17:33:19 1.4 @@ -103,16 +103,16 @@ ;; encode the buffer and write out to stream #+allegro (write-string (excl:usb8-array-to-base64-string - (if (< byte-count max-buffer-size) - (trimmed-buffer byte-count buffer) - buffer) - wrap-at-column) sock) + (if (< byte-count max-buffer-size) + (trimmed-buffer byte-count buffer) + buffer) + wrap-at-column) sock) #-allegro - (s-base64:encode-base64-bytes + (cl-base64:usb8-array-to-base64-stream (if (< byte-count max-buffer-size) (trimmed-buffer byte-count buffer) buffer) - sock t) + sock :columns wrap-at-column) (force-output sock) ;;-- when finished reading exit do loop (when (< byte-count max-buffer-size)

1 0

[cl-smtp-cvs] CVS cl-smtp
by jidzikowski 05 Sep '07

05 Sep '07

Update of /project/cl-smtp/cvsroot/cl-smtp In directory clnet:/tmp/cvs-serv30740 Modified Files: attachments.lisp Log Message: fixed acl error in base64-encode-file, use excl:usb8-array-to-base64-string for acl --- /project/cl-smtp/cvsroot/cl-smtp/attachments.lisp 2007/09/04 18:56:58 1.2 +++ /project/cl-smtp/cvsroot/cl-smtp/attachments.lisp 2007/09/05 09:35:51 1.3 @@ -2,6 +2,7 @@ ;;; This file is part of CL-SMTP, the Lisp SMTP Client + ;;; Copyright (C) 2004/2005/2006/2007 Jan Idzikowski ;;; This library is free software; you can redistribute it and/or @@ -80,6 +81,7 @@ &key (buffer-size 256) ;; in KB (wrap-at-column 76)) + (declare (ignorable wrap-at-column)) (let* ((max-buffer-size (* buffer-size 1024)) (byte-count 0) (buffer (make-array max-buffer-size @@ -98,15 +100,22 @@ (return i) (setf (aref buffer i) bchar))))) (print-debug (format nil "~%** Byte Count ~a~%" byte-count)) - ;; encode the buffer and write out to stream - (cl-base64:usb8-array-to-base64-stream - (if (< byte-count max-buffer-size) - (trimmed-buffer byte-count buffer) - buffer) - sock :columns wrap-at-column) - (force-output sock) - ;;-- when finished reading exit do loop - (when (< byte-count max-buffer-size) + ;; encode the buffer and write out to stream + #+allegro + (write-string (excl:usb8-array-to-base64-string + (if (< byte-count max-buffer-size) + (trimmed-buffer byte-count buffer) + buffer) + wrap-at-column) sock) + #-allegro + (s-base64:encode-base64-bytes + (if (< byte-count max-buffer-size) + (trimmed-buffer byte-count buffer) + buffer) + sock t) + (force-output sock) + ;;-- when finished reading exit do loop + (when (< byte-count max-buffer-size) (return))))))) (defun trimmed-buffer (byte-count buffer)

1 0

[cl-smtp-cvs] CVS cl-smtp
by jidzikowski 04 Sep '07

04 Sep '07

Update of /project/cl-smtp/cvsroot/cl-smtp In directory clnet:/tmp/cvs-serv11395 Modified Files: CHANGELOG Log Message: change datestr --- /project/cl-smtp/cvsroot/cl-smtp/CHANGELOG 2007/09/04 18:54:06 1.6 +++ /project/cl-smtp/cvsroot/cl-smtp/CHANGELOG 2007/09/04 19:59:50 1.7 @@ -1,5 +1,5 @@ -Version 20070628.1 -2007-06-28 +Version 20070904.1 +2007-09-04 Remove implementation dependent sockets code by adding usocket dependency. Change cl-smtp.asd cl-smtp.lisp README INSTALL (remove acl.lisp clisp.lisp cmucl.lisp sbcl.lisp lispworks.lisp openmcl.lisp)

1 0

[cl-smtp-cvs] CVS cl-smtp
by jidzikowski 04 Sep '07

04 Sep '07

Update of /project/cl-smtp/cvsroot/cl-smtp In directory clnet:/tmp/cvs-serv32123 Modified Files: attachments.lisp cl-smtp.asd cl-smtp.lisp Log Message: added 2006/2007 to copyright part --- /project/cl-smtp/cvsroot/cl-smtp/attachments.lisp 2006/04/04 13:04:40 1.1 +++ /project/cl-smtp/cvsroot/cl-smtp/attachments.lisp 2007/09/04 18:56:58 1.2 @@ -2,7 +2,7 @@ ;;; This file is part of CL-SMTP, the Lisp SMTP Client -;;; Copyright (C) 2004/2005 Jan Idzikowski +;;; Copyright (C) 2004/2005/2006/2007 Jan Idzikowski ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the Lisp Lesser General Public License --- /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.asd 2007/09/04 18:54:06 1.7 +++ /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.asd 2007/09/04 18:56:58 1.8 @@ -2,7 +2,7 @@ ;;; This file is part of CL-SMTP, the Lisp SMTP Client -;;; Copyright (C) 2004/2005 Jan Idzikowski +;;; Copyright (C) 2004/2005/2006/2007 Jan Idzikowski ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the Lisp Lesser General Public License --- /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.lisp 2007/09/04 18:54:06 1.6 +++ /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.lisp 2007/09/04 18:56:58 1.7 @@ -2,7 +2,7 @@ ;;; This file is part of CL-SMTP, the Lisp SMTP Client -;;; Copyright (C) 2004/2005 Jan Idzikowski +;;; Copyright (C) 2004/2005/2006/2007 Jan Idzikowski ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the Lisp Lesser General Public License

1 0

[cl-smtp-cvs] CVS cl-smtp
by jidzikowski 04 Sep '07

04 Sep '07

Update of /project/cl-smtp/cvsroot/cl-smtp In directory clnet:/tmp/cvs-serv31855 Modified Files: CHANGELOG INSTALL README cl-smtp.asd cl-smtp.lisp Removed Files: acl.lisp clisp.lisp cmucl.lisp lispworks.lisp openmcl.lisp sbcl.lisp Log Message: Remove implementation dependent sockets code by adding usocket dependency. --- /project/cl-smtp/cvsroot/cl-smtp/CHANGELOG 2006/04/04 13:04:40 1.5 +++ /project/cl-smtp/cvsroot/cl-smtp/CHANGELOG 2007/09/04 18:54:06 1.6 @@ -1,3 +1,10 @@ +Version 20070628.1 +2007-06-28 +Remove implementation dependent sockets code by adding usocket dependency. +Change cl-smtp.asd cl-smtp.lisp README INSTALL + (remove acl.lisp clisp.lisp cmucl.lisp sbcl.lisp lispworks.lisp openmcl.lisp) + + Version 20060404.1 2006-04-04 "ADD" support for attachment, thanks Brian Sorg for the implementation --- /project/cl-smtp/cvsroot/cl-smtp/INSTALL 2005/11/01 18:34:57 1.1.1.1 +++ /project/cl-smtp/cvsroot/cl-smtp/INSTALL 2007/09/04 18:54:06 1.2 @@ -1,10 +1,12 @@ -CL-SMTP works in ACL, SBCL, CMUCL, OPENMCL, LISPWORKS and CLISP. +CL-SMTP works in all implementations supported by its dependencies. -For SBCL you need sb-bsd-sockets. +For all implementations you'll need usocket +and cl-base64 (the latter isn't a requirement on ACL). CL-SMTP has a asdf system definition file. -load this file: + +To load this file: (asdf:operate 'asdf:load-op 'cl-smtp) --- /project/cl-smtp/cvsroot/cl-smtp/README 2006/05/24 10:46:22 1.5 +++ /project/cl-smtp/cvsroot/cl-smtp/README 2007/09/04 18:54:06 1.6 @@ -1,12 +1,12 @@ CL-SMTP is a simple lisp smtp client. -It works in ACL, SBCL, CMUCL, OPENMCL, LISPWORKS and CLISP. +It works in ACL, SBCL, CMUCL, OPENMCL, LISPWORKS, CLISP and ECL. new with support for send attachments, thanks Brian Sorg for the implementation with authentication support for PLAIN and LOGIN authentication method -used CL-BASE64 package +used cl-base64 and usocket packages (cl-base64 isn't a requirement on ACL) See INSTALL for prerequisites and build details. --- /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.asd 2006/04/04 13:04:40 1.6 +++ /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.asd 2007/09/04 18:54:06 1.7 @@ -20,32 +20,16 @@ (:use :cl :asdf) (:export :send-email)) -#+sbcl (require :sb-bsd-sockets) +(in-package :cl-smtp) +(defparameter *debug* nil) -(in-package :cl-smtp) +(defmacro print-debug (str) + `(when *debug* + (print ,str))) (asdf:defsystem :cl-smtp - :version "20060404.1" - :depends-on - #-allegro (:cl-base64) - #+allegro () - :components - (#+sbcl(:file "sbcl") - #+allegro(:file "acl") - #+cmu(:file "cmucl") - #+clisp(:file "clisp") - #+openmcl(:file "openmcl") - #+lispworks(:file "lispworks") - (:file "cl-smtp" :depends-on #+sbcl("sbcl") - #+allegro("acl") - #+cmu("cmucl") - #+clisp("clisp") - #+openmcl("openmcl") - #+lispworks("lispworks")) - (:file "attachments" :depends-on #+sbcl("sbcl") - #+allegro("acl") - #+cmu("cmucl") - #+clisp("clisp") - #+openmcl("openmcl") - #+lispworks("lispworks")))) + :version "20070904.1" + :depends-on (:usocket #-allegro :cl-base64) + :components ((:file "cl-smtp" :depends-on ("attachments")) + (:file "attachments"))) --- /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.lisp 2006/04/04 13:04:40 1.5 +++ /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.lisp 2007/09/04 18:54:06 1.6 @@ -18,15 +18,10 @@ (in-package :cl-smtp) -(defparameter *debug* nil) (defparameter *x-mailer* (format nil "(~A ~A)" (lisp-implementation-type) (lisp-implementation-version))) -(defmacro print-debug (str) - `(when *debug* - (print ,str))) - (defun check-arg (arg name) (cond ((or (stringp arg) @@ -83,7 +78,7 @@ (defun send-smtp (host from to subject message &key (port 25) cc bcc reply-to extra-headers display-name authentication attachments buffer-size) - (let ((sock (socket-stream (make-smtp-socket host port))) + (let ((sock (usocket:socket-stream (usocket:socket-connect host port))) (boundary (make-random-boundary))) (unwind-protect (progn @@ -153,7 +148,7 @@ (error "wrong response from smtp server: ~A" msgstr))) (cond (authentication - (write-to-smtp sock (format nil "EHLO ~A" (get-host-name))) + (write-to-smtp sock (format nil "EHLO ~A" (usocket::get-host-name))) (multiple-value-bind (code msgstr) (read-from-smtp sock) (when (/= code 250) @@ -189,7 +184,7 @@ (error "authentication ~A is not supported in cl-smtp" (car authentication))))) (t - (write-to-smtp sock (format nil "HELO ~A" (get-host-name))) + (write-to-smtp sock (format nil "HELO ~A" (usocket::get-host-name))) (multiple-value-bind (code msgstr) (read-from-smtp sock) (when (/= code 250) @@ -201,8 +196,7 @@ (write-to-smtp sock (format nil "RCPT TO:<~A>" to)) (multiple-value-bind (code msgstr) (read-from-smtp sock) - (when (/= code 250) - + (when (/= code 250) (error "in RCPT TO command: ~A" msgstr)))))

1 0

[cl-smtp-cvs] CVS cl-smtp
by jidzikowski 24 May '06

24 May '06

Update of /project/cl-smtp/cvsroot/cl-smtp In directory clnet:/tmp/cvs-serv4965 Modified Files: README Log Message: attachments and buffer-size keyword add to send-email doc --- /project/cl-smtp/cvsroot/cl-smtp/README 2006/04/04 13:04:40 1.4 +++ /project/cl-smtp/cvsroot/cl-smtp/README 2006/05/24 10:46:22 1.5 @@ -17,7 +17,8 @@ ------------------------------------------------ (cl-smtp:send-email host from to subject message - &key (port 25) cc bcc reply-to extra-headers authentication) + &key (port 25) cc bcc reply-to extra-headers authentication + attachments (buffer-size 256)) Arguments: - host (String) : hostname or ip-adress of the smtpserver

1 0

[cl-smtp-cvs] CVS cl-smtp
by jidzikowski 04 Apr '06

04 Apr '06

Update of /project/cl-smtp/cvsroot/cl-smtp In directory clnet:/tmp/cvs-serv10601 Modified Files: CHANGELOG README cl-smtp.asd cl-smtp.lisp Added Files: attachments.lisp Log Message: add support for send attachments, thanks Brian Sorg for the implementation new keywords: attachments and buffer-size added to send-email / send-smtp ---------------------------------------------------------------------- --- /project/cl-smtp/cvsroot/cl-smtp/CHANGELOG 2005/12/20 14:37:51 1.4 +++ /project/cl-smtp/cvsroot/cl-smtp/CHANGELOG 2006/04/04 13:04:40 1.5 @@ -1,3 +1,9 @@ +Version 20060404.1 +2006-04-04 +"ADD" support for attachment, thanks Brian Sorg for the implementation +Added attachments.lisp +Change cl-smtp.asd cl-smtp.lisp README + Version 20051220.1 2005-12-20 "ADD" win32 support for clisp --- /project/cl-smtp/cvsroot/cl-smtp/README 2005/12/20 14:37:52 1.3 +++ /project/cl-smtp/cvsroot/cl-smtp/README 2006/04/04 13:04:40 1.4 @@ -2,7 +2,9 @@ CL-SMTP is a simple lisp smtp client. It works in ACL, SBCL, CMUCL, OPENMCL, LISPWORKS and CLISP. -new with authentication support for PLAIN and LOGIN authentication method +new with support for send attachments, thanks Brian Sorg for the implementation + +with authentication support for PLAIN and LOGIN authentication method used CL-BASE64 package @@ -32,6 +34,12 @@ - authentication (Cons) : list with 3 elements (:method "username" "password") method is a keyword :plain or :login + - attachments (String or Pathname: attachments to send + Cons of String/Pathnames) + - buffer-size (Number default 256): controls how much of a attachment file + is read on each loop before encoding + and transmitting the contents, + the number is interpretted in KB Returns nil or error with message --- /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.asd 2005/12/20 14:44:06 1.5 +++ /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.asd 2006/04/04 13:04:40 1.6 @@ -26,7 +26,7 @@ (in-package :cl-smtp) (asdf:defsystem :cl-smtp - :version "20051220.1" + :version "20060404.1" :depends-on #-allegro (:cl-base64) #+allegro () @@ -42,4 +42,10 @@ #+cmu("cmucl") #+clisp("clisp") #+openmcl("openmcl") + #+lispworks("lispworks")) + (:file "attachments" :depends-on #+sbcl("sbcl") + #+allegro("acl") + #+cmu("cmucl") + #+clisp("clisp") + #+openmcl("openmcl") #+lispworks("lispworks")))) --- /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.lisp 2005/12/20 14:37:52 1.4 +++ /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.lisp 2006/04/04 13:04:40 1.5 @@ -29,7 +29,8 @@ (defun check-arg (arg name) (cond - ((stringp arg) + ((or (stringp arg) + (pathnamep arg)) (list arg)) ((listp arg) arg) @@ -65,19 +66,25 @@ (defun send-email (host from to subject message &key (port 25) cc bcc reply-to extra-headers - display-name authentication) + display-name authentication + attachments (buffer-size 256)) (send-smtp host from (check-arg to "to") subject (mask-dot message) :port port :cc (check-arg cc "cc") :bcc (check-arg bcc "bcc") :reply-to reply-to :extra-headers extra-headers :display-name display-name - :authentication authentication)) + :authentication authentication + :attachments (check-arg attachments "attachments") + :buffer-size (if (numberp buffer-size) + buffer-size + 256))) (defun send-smtp (host from to subject message &key (port 25) cc bcc reply-to extra-headers - display-name authentication) - (let ((sock (socket-stream (make-smtp-socket host port)))) + display-name authentication attachments buffer-size) + (let ((sock (socket-stream (make-smtp-socket host port))) + (boundary (make-random-boundary))) (unwind-protect (progn (open-smtp-connection sock :authentication authentication) @@ -111,10 +118,19 @@ (dolist (l extra-headers) (write-to-smtp sock (format nil "~A: ~{~a~^,~}" (car l) (rest l))))) - (write-to-smtp sock "Mime-Version: 1.0") + (write-to-smtp sock "Mime-Version: 1.0") + (when attachments + (generate-multipart-header sock boundary)) (write-char #\Return sock) (write-char #\NewLine sock) + (when attachments + (setq message (wrap-message-with-multipart-dividers + message boundary))) (write-to-smtp sock message) + (when attachments + (dolist (attachment attachments) + (send-attachment sock attachment boundary buffer-size)) + (send-attachments-end-marker sock boundary)) (write-char #\. sock) (write-char #\Return sock) (write-char #\NewLine sock) --- /project/cl-smtp/cvsroot/cl-smtp/attachments.lisp 2006/04/04 13:04:40 NONE +++ /project/cl-smtp/cvsroot/cl-smtp/attachments.lisp 2006/04/04 13:04:40 1.1 ;;; -*- mode: Lisp -*- ;;; This file is part of CL-SMTP, the Lisp SMTP Client ;;; Copyright (C) 2004/2005 Jan Idzikowski ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the Lisp Lesser General Public License ;;; (http://opensource.franz.com/preamble.html) known as the LLGPL. ;;; This library is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; Lisp Lesser GNU General Public License for more details. ;;; File: attachments.lisp ;;; Description: encoding and transmitting login to include a mime attachment ;;; ;;; Contributed by Brian Sorg ;;; ;;; Thanks to David Cooper for make-random-boundary ;;; (in-package :cl-smtp) ;;; Addition to allow for sending mime attachments along with the smtp message ;;---- Initialize array of possible boundary characters to make start of attachments (defparameter *boundary-chars* (let* ((chars (list #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)) (arr (make-array (length chars)))) (dotimes (i (length chars) arr) (setf (aref arr i) (pop chars))))) (defun make-random-boundary (&optional (length 50) (boundary-chars *boundary-chars*)) (let ((boundary (make-string length)) (chars-length (length boundary-chars))) (dotimes (i length boundary) (setf (aref boundary i) (svref *boundary-chars* (random chars-length)))))) (defun generate-multipart-header (sock boundary) (write-to-smtp sock (format nil "Content-type: multipart/mixed;~%~tBoundary=\"~a\"" boundary))) (defun wrap-message-with-multipart-dividers (message boundary) (concatenate 'string (format nil "--~a~%" boundary) (format nil "Content-type: text/plain~%") (format nil "Content-Disposition: inline~%") (format nil "~%") message (format nil "~%"))) (defun send-attachment (sock attachment boundary buffer-size) (print-debug (format nil "Sending attachment: ~a" attachment)) (when (probe-file attachment) (let ((name (file-namestring attachment))) (send-attachment-header sock boundary name) (base64-encode-file attachment sock :buffer-size buffer-size) ))) (defun send-attachment-header (sock boundary name) (write-to-smtp sock (format nil "~%--~a~%Content-type: application/octet-stream;~%~tname=\"~a\"~%Content-Transfer-Encoding: base64~%Content-Disposition: attachment; filename=\"~a\"~%" boundary name name))) (defun send-attachments-end-marker (sock boundary) (write-to-smtp sock (format nil "~%--~a--~%" boundary))) (defun base64-encode-file (file-in sock &key (buffer-size 256) ;; in KB (wrap-at-column 76)) (let* ((max-buffer-size (* buffer-size 1024)) (byte-count 0) (buffer (make-array max-buffer-size :element-type '(unsigned-byte 8)))) (when (probe-file file-in) ;;-- open filein --------- (with-open-file (strm-in file-in :element-type '(unsigned-byte 8)) (loop (setq byte-count 0) ;; read a portion of the file into the buffer (setq byte-count (dotimes (i max-buffer-size max-buffer-size) (let ((bchar (read-byte strm-in nil 'EOF))) (if (eql bchar 'EOF) (return i) (setf (aref buffer i) bchar))))) (print-debug (format nil "~%** Byte Count ~a~%" byte-count)) ;; encode the buffer and write out to stream (cl-base64:usb8-array-to-base64-stream (if (< byte-count max-buffer-size) (trimmed-buffer byte-count buffer) buffer) sock :columns wrap-at-column) (force-output sock) ;;-- when finished reading exit do loop (when (< byte-count max-buffer-size) (return))))))) (defun trimmed-buffer (byte-count buffer) "Creates an array the length of byte-count and copies contents of buffer into it. Needed in Lispworks, Lispworks initialized all elements of the buffer array when it was made, allegro doesn't seem to have this behavior" (let ((trimmed-buffer (make-array byte-count :element-type '(unsigned-byte 8)))) (dotimes (i byte-count trimmed-buffer) (setf (aref trimmed-buffer i) (aref buffer i)))))

1 0

[cl-smtp-cvs] CVS update: cl-smtp/cl-smtp.asd
by jidzikowski＠common-lisp.net 20 Dec '05

20 Dec '05

Update of /project/cl-smtp/cvsroot/cl-smtp In directory common-lisp.net:/tmp/cvs-serv16007 Modified Files: cl-smtp.asd Log Message: cl-base64 not load in allegro Date: Tue Dec 20 15:44:13 2005 Author: jidzikowski Index: cl-smtp/cl-smtp.asd diff -u cl-smtp/cl-smtp.asd:1.4 cl-smtp/cl-smtp.asd:1.5 --- cl-smtp/cl-smtp.asd:1.4 Tue Dec 20 15:37:52 2005 +++ cl-smtp/cl-smtp.asd Tue Dec 20 15:44:06 2005 @@ -28,7 +28,8 @@ (asdf:defsystem :cl-smtp :version "20051220.1" :depends-on - (:cl-base64) + #-allegro (:cl-base64) + #+allegro () :components (#+sbcl(:file "sbcl") #+allegro(:file "acl")

1 0

[cl-smtp-cvs] CVS update: cl-smtp/CHANGELOG cl-smtp/README cl-smtp/cl-smtp.asd cl-smtp/cl-smtp.lisp cl-smtp/clisp.lisp
by jidzikowski＠common-lisp.net 20 Dec '05

20 Dec '05

Update of /project/cl-smtp/cvsroot/cl-smtp In directory common-lisp.net:/tmp/cvs-serv15472 Modified Files: CHANGELOG README cl-smtp.asd cl-smtp.lisp clisp.lisp Log Message: add win32 support for clisp, remove :cl-smtp-authentication, always use CL-BASE64 Date: Tue Dec 20 15:37:54 2005 Author: jidzikowski Index: cl-smtp/CHANGELOG diff -u cl-smtp/CHANGELOG:1.3 cl-smtp/CHANGELOG:1.4 --- cl-smtp/CHANGELOG:1.3 Sun Dec 11 21:45:54 2005 +++ cl-smtp/CHANGELOG Tue Dec 20 15:37:51 2005 @@ -1,6 +1,13 @@ +Version 20051220.1 +2005-12-20 +"ADD" win32 support for clisp +"REMOVE" :cl-smtp-authentication +"CHANGE" always use CL-BASE64 package +Change cl-smtp.asd, cl-smtp.lisp, clisp.lisp, README, CHANGELOG + Version 20051211.1 2005-12-11 -add :cl-smtp-authentication for reader macro, that you can use cl-smtp with and +"ADD" :cl-smtp-authentication for reader macro, that you can use cl-smtp with and without authentication support Change cl-smtp.asd, cl-smtp.lisp, README, CHANGELOG Index: cl-smtp/README diff -u cl-smtp/README:1.2 cl-smtp/README:1.3 --- cl-smtp/README:1.2 Sun Dec 11 21:45:54 2005 +++ cl-smtp/README Tue Dec 20 15:37:52 2005 @@ -2,18 +2,14 @@ CL-SMTP is a simple lisp smtp client. It works in ACL, SBCL, CMUCL, OPENMCL, LISPWORKS and CLISP. -new with authentication support for PLAIn and LOGIN authentication method +new with authentication support for PLAIN and LOGIN authentication method + +used CL-BASE64 package See INSTALL for prerequisites and build details. To use cl-smtp: -(asdf:operate 'asdf:load-op 'cl-smtp) - -For use cl-smtp with authentication support you need cl-base64 package and -add :cl-smtp-authentication to features - -(push :cl-smtp-authentication *features*) (asdf:operate 'asdf:load-op 'cl-smtp) ------------------------------------------------ Index: cl-smtp/cl-smtp.asd diff -u cl-smtp/cl-smtp.asd:1.3 cl-smtp/cl-smtp.asd:1.4 --- cl-smtp/cl-smtp.asd:1.3 Sun Dec 11 21:45:54 2005 +++ cl-smtp/cl-smtp.asd Tue Dec 20 15:37:52 2005 @@ -26,12 +26,9 @@ (in-package :cl-smtp) (asdf:defsystem :cl-smtp - :version "20051211.1" + :version "20051220.1" :depends-on - #+(and cl-smtp-authentication (not allegro)) (:cl-base64) - #-cl-smtp-authentication - () :components (#+sbcl(:file "sbcl") #+allegro(:file "acl") Index: cl-smtp/cl-smtp.lisp diff -u cl-smtp/cl-smtp.lisp:1.3 cl-smtp/cl-smtp.lisp:1.4 --- cl-smtp/cl-smtp.lisp:1.3 Sun Dec 11 21:45:54 2005 +++ cl-smtp/cl-smtp.lisp Tue Dec 20 15:37:52 2005 @@ -59,9 +59,8 @@ (defun string-to-base64-string (str) (declare (ignorable str)) - #+(and cl-smtp-authentication allegro) (excl:string-to-base64-string str) - #+(and cl-smtp-authentication (not allegro)) - (cl-base64:string-to-base64-string str)) + #+allegro (excl:string-to-base64-string str) + #-allegro (cl-base64:string-to-base64-string str)) (defun send-email (host from to subject message @@ -78,9 +77,6 @@ (defun send-smtp (host from to subject message &key (port 25) cc bcc reply-to extra-headers display-name authentication) - #-cl-smtp-authentication - (when authentication - (error "cl-smtp was not compiled with authentication support, push :cl-smtp-authentication to *features* bevor load cl-smtp.asd")) (let ((sock (socket-stream (make-smtp-socket host port)))) (unwind-protect (progn Index: cl-smtp/clisp.lisp diff -u cl-smtp/clisp.lisp:1.1.1.1 cl-smtp/clisp.lisp:1.2 --- cl-smtp/clisp.lisp:1.1.1.1 Tue Nov 1 19:34:57 2005 +++ cl-smtp/clisp.lisp Tue Dec 20 15:37:52 2005 @@ -20,7 +20,10 @@ (defun make-smtp-socket (host port) (handler-case - (socket:socket-connect port host :element-type 'character) + (socket:socket-connect port host :element-type 'character + :external-format + (ext:make-encoding :charset charset:utf-8 + :line-terminator :unix)) (serious-condition (e) (error "could not create client socket:~A" e)))) @@ -28,4 +31,8 @@ socket) (defun get-host-name () - (linux:gethostname 256)) + #+linux(linux:gethostname 256) + #-linux(let ((str (machine-instance))) + (if (position #\Space str) + (subseq str 0 (position #\Space str)) + str)))

1 0