|
|
|
|
; author: Thomas Hintz
|
|
|
|
|
; email: t@thintz.com
|
|
|
|
|
; license: bsd
|
|
|
|
|
|
|
|
|
|
; Copyright (c) 2012, Thomas Hintz
|
|
|
|
|
; All rights reserved.
|
|
|
|
|
|
|
|
|
|
; Redistribution and use in source and binary forms, with or without
|
|
|
|
|
; modification, are permitted provided that the following conditions are met:
|
|
|
|
|
; * Redistributions of source code must retain the above copyright
|
|
|
|
|
; notice, this list of conditions and the following disclaimer.
|
|
|
|
|
; * Redistributions in binary form must reproduce the above copyright
|
|
|
|
|
; notice, this list of conditions and the following disclaimer in the
|
|
|
|
|
; documentation and/or other materials provided with the distribution.
|
|
|
|
|
; * Neither the name of the <organization> nor the
|
|
|
|
|
; names of its contributors may be used to endorse or promote products
|
|
|
|
|
; derived from this software without specific prior written permission.
|
|
|
|
|
|
|
|
|
|
; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
|
|
|
|
|
; ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
|
|
|
|
|
; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
|
|
|
|
; DISCLAIMED. IN NO EVENT SHALL THOMAS HINTZ BE LIABLE FOR ANY
|
|
|
|
|
; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
|
|
|
|
|
; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
|
|
|
|
|
; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
|
|
|
|
|
; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
|
|
|
; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
|
|
|
|
; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
|
|
|
|
|
|
(module send-grid
|
|
|
|
|
(;; params
|
|
|
|
|
api-user api-key
|
|
|
|
|
|
|
|
|
|
;; procs
|
|
|
|
|
send-mail)
|
|
|
|
|
|
|
|
|
|
(import scheme chicken)
|
|
|
|
|
(use http-client uri-common intarweb json srfi-1 srfi-18)
|
|
|
|
|
|
|
|
|
|
(define api-user (make-parameter ""))
|
|
|
|
|
(define api-key (make-parameter ""))
|
|
|
|
|
|
|
|
|
|
(define (rest-action url method parameters)
|
|
|
|
|
(vector->list (with-input-from-request
|
|
|
|
|
(make-request method: method uri: (uri-reference url)) parameters json-read)))
|
|
|
|
|
|
|
|
|
|
(define (send-mail #!key (subject #f) (text #f) (html #f) (from #f) (from-name #f) (to #f) (reply-to #f) (api-user (api-user)) (api-key (api-key)))
|
|
|
|
|
(if (and subject (or text html) from from-name to reply-to)
|
|
|
|
|
(rest-action "https://sendgrid.com/api/mail.send.json" 'POST
|
|
|
|
|
`((api_user . ,api-user)
|
|
|
|
|
(api_key . ,api-key)
|
|
|
|
|
(subject . ,subject)
|
|
|
|
|
(to . ,to)
|
|
|
|
|
(replyto . ,reply-to)
|
|
|
|
|
,(if html `(html . ,html) `(text . ,text))
|
|
|
|
|
(from . ,from)
|
|
|
|
|
(fromname . ,from-name)))
|
|
|
|
|
(abort "All parameters are required for successfully sending mail.")))
|
|
|
|
|
)
|
