5.6. AUTOMATED EMAIL
73
; SurveyMail.servlet
(servlet (email birthyear favcol)
(case email
((#null)
{Survey Input Form
Please enter the data listed below
[(trs(list(list {Your email address}{})(list {Your birthyear}{})(list {Your favorite color}{})))]
})
(else
(send mail request "tjhickey@cs.brandeis.edu" email
"survey results"
(list (java.util.Date.) email birthyear favcol))
;; and finally generate the survey confirmation
{email survey
Thanks [email]
for completing the survey
})))
Figure 5.5: An Email survey servlet