From e61dbf19f6f2b45135933a1553a5d7faf2003028 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 21 Feb 2017 15:01:11 -0500 Subject: [PATCH] Allow specification of port number in smtp config stanza in webchat example --- examples/webchat/server/config.rkt | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/examples/webchat/server/config.rkt b/examples/webchat/server/config.rkt index bb6b7bd..1cd4255 100644 --- a/examples/webchat/server/config.rkt +++ b/examples/webchat/server/config.rkt @@ -46,4 +46,9 @@ (reloader-mixin* module-path)) (during (config _ (list 'smtp $h $u $p $m)) - (assert (smtp-account-config 'smtp-service h #:user u #:password p #:ssl-mode m)))) + (match h + [(regexp #px"(.*):(.*)" (list _ host port)) + (assert (smtp-account-config 'smtp-service host #:port (string->number port) + #:user u #:password p #:ssl-mode m))] + [_ + (assert (smtp-account-config 'smtp-service h #:user u #:password p #:ssl-mode m))])))