syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Log port number in SMTP driver startup/shutdown messages

This commit is contained in:
Tony Garnock-Jones 2017-02-21 15:12:47 -05:00
parent d2bd2cd63e
commit 1bfc4bbdad
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/syndicate/drivers/smtp.rkt
View File

@ -64,9 +64,9 @@
(during/spawn (smtp-account-config $id $host $port $user $password $ssl-mode)
#:name (list 'smtp-account id)
(on-start
(log-syndicate/drivers/smtp-info "~v starting: ~s ~s ~s" id host user ssl-mode))
(log-syndicate/drivers/smtp-info "~v starting: ~a:~a ~s ~s" id host port user ssl-mode))
(on-stop
(log-syndicate/drivers/smtp-info "~v stopping: ~s ~s ~s" id host user ssl-mode))
(log-syndicate/drivers/smtp-info "~v stopping: ~a:~a ~s ~s" id host port user ssl-mode))
(assert (smtp-account id))
(on (message (smtp-delivery id $delivery-id $from $to $header $lines))
(with-handlers [(exn:fail?