Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
x0r
cl-smtp
Commits
3edb8d58
Commit
3edb8d58
authored
Dec 20, 2005
by
Jan Idzikowski
Browse files
add win32 support for clisp, remove :cl-smtp-authentication,
always use CL-BASE64
parent
ba8dec75
Changes
5
Hide whitespace changes
Inline
Side-by-side
CHANGELOG
View file @
3edb8d58
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
...
...
README
View file @
3edb8d58
...
...
@@ -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
...
...
cl-smtp.asd
View file @
3edb8d58
...
...
@@ -26,12 +26,9 @@
(
in-package
:cl-smtp
)
(
asdf:defsystem
:cl-smtp
:version
"200512
11
.1"
:version
"200512
20
.1"
:depends-on
#+
(
and
cl-smtp-authentication
(
not
allegro
))
(
:cl-base64
)
#-
cl-smtp-authentication
()
:components
(
#+
sbcl
(
:file
"sbcl"
)
#+
allegro
(
:file
"acl"
)
...
...
cl-smtp.lisp
View file @
3edb8d58
...
...
@@ -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
...
...
clisp.lisp
View file @
3edb8d58
...
...
@@ -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
)))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment