Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

29 lines (25 sloc) 1.124 kB
(defpackage :test-grid-server
(:nicknames :tg-server)
(:use :cl)
(:export :start))
(in-package :tg-server)
(defclass tg-acceptor (hunchentoot:easy-acceptor)
((smtp-password :type string
:initarg :smtp-password
:accessor smtp-password
:initform (error ":smtp-password is required"))))
(hunchentoot:define-easy-handler (send-notification :uri "/send-notification")
(subject body)
(cl-smtp:send-email "smtp.gmail.com"
"cl.test.grid@gmail.com"
"cl-test-grid-notifications@googlegroups.com"
subject
body
:authentication (list :login
"cl.test.grid@gmail.com"
(smtp-password hunchentoot:*acceptor*))
:ssl t))
(defun start (&key port smtp-password)
(hunchentoot:start (make-instance 'tg-acceptor
:port port
:smtp-password smtp-password)))
Jump to Line
Something went wrong with that request. Please try again.