Update of /project/cl-smtp/cvsroot/cl-smtp
In directory common-lisp.net:/tmp/cvs-serv14910
Modified Files:
CHANGELOG README cl-smtp.asd cl-smtp.lisp
Log Message:
add :cl-smtp-authentication for reader macro
Date: Sun Dec 11 21:45:54 2005
Author: jidzikowski
Index: cl-smtp/CHANGELOG
diff -u cl-smtp/CHANGELOG:1.2 cl-smtp/CHANGELOG:1.3
--- cl-smtp/CHANGELOG:1.2 Sat Dec 10 22:00:10 2005
+++ cl-smtp/CHANGELOG Sun Dec 11 21:45:54 2005
@@ -1,8 +1,15 @@
+Version 20051211.1
+2005-12-11
+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
+
Version 20051210.1
2005-12-10
"ADD" key authentication for smtp authentication: '(:plain "username" "password")
or '(:login "username" "password")
add dependency to CL-BASE64 except allegro
+Change cl-smtp.asd, cl-smtp.lisp, CHANGELOG
Version 20050729.1
2005-07-29
Index: cl-smtp/README
diff -u cl-smtp/README:1.1.1.1 cl-smtp/README:1.2
--- cl-smtp/README:1.1.1.1 Tue Nov 1 19:34:57 2005
+++ cl-smtp/README Sun Dec 11 21:45:54 2005
@@ -2,14 +2,24 @@
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
+
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)
+
+------------------------------------------------
+
(cl-smtp:send-email host from to subject message
- &key (port 25) cc bcc reply-to extra-headers)
+ &key (port 25) cc bcc reply-to extra-headers authentication)
Arguments:
- host (String) : hostname or ip-adress of the smtpserver
@@ -21,8 +31,11 @@
- cc (String or Cons of Strings) : email adress carbon copy
- bcc (String or Cons of Strings): email adress blind carbon copy
- reply-to (String) : email adress
- - diplayname (String) : diplayname of the sender
+ - displayname (String) : displayname of the sender
- extra-headers (Cons) : extra headers as alist
+ - authentication (Cons) : list with 3 elements
+ (:method "username" "password")
+ method is a keyword :plain or :login
Returns nil or error with message
@@ -36,4 +49,4 @@
(setf cl-smtp::*x-mailer* "my x-mailer string)
If you find bugs or want to send patches for enhancements, by email to
-Jan Idzikowski <ji(a)neumond.net>.
+Jan Idzikowski <jidzikowski(a)common-lisp.net>
Index: cl-smtp/cl-smtp.asd
diff -u cl-smtp/cl-smtp.asd:1.2 cl-smtp/cl-smtp.asd:1.3
--- cl-smtp/cl-smtp.asd:1.2 Sat Dec 10 22:00:10 2005
+++ cl-smtp/cl-smtp.asd Sun Dec 11 21:45:54 2005
@@ -26,9 +26,12 @@
(in-package :cl-smtp)
(asdf:defsystem :cl-smtp
- :version "20051210.1"
- :depends-on
- (#-allegro :cl-base64)
+ :version "20051211.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.2 cl-smtp/cl-smtp.lisp:1.3
--- cl-smtp/cl-smtp.lisp:1.2 Sat Dec 10 22:00:10 2005
+++ cl-smtp/cl-smtp.lisp Sun Dec 11 21:45:54 2005
@@ -58,8 +58,10 @@
resultstr))
(defun string-to-base64-string (str)
- #+allegro (excl:string-to-base64-string str)
- #-allegro (cl-base64: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))
(defun send-email (host from to subject message
@@ -76,6 +78,9 @@
(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
