Commit 3edb8d58 authored by Jan Idzikowski's avatar Jan Idzikowski
Browse files

add win32 support for clisp, remove :cl-smtp-authentication,

always use CL-BASE64
parent ba8dec75
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
......
......@@ -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 authentication support for PLAIN and LOGIN authentication method
used CL-BASE64 package
See INSTALL for prerequisites and build details.
......@@ -10,12 +12,6 @@ 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
......
......@@ -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")
......
......@@ -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
......
......@@ -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)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment