extra/mason/email/email.factor

   1 ! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel namespaces accessors combinators make smtp
   4 debugger prettyprint io io.streams.string io.encodings.utf8
   5 io.files io.sockets
   6 mason.common mason.platform mason.config ;
   7 IN: mason.email
   8
   9 : prefix-subject ( str -- str' )
  10     [ "mason on " % platform % ": " % % ] "" make ;
  11
  12 : email-status ( body subject -- )
  13     <email>
  14         builder-from get >>from
  15         builder-recipients get >>to
  16         swap prefix-subject >>subject
  17         swap >>body
  18     send-email ;
  19
  20 : subject ( -- str )
  21     status get {
  22         { status-clean [ "clean" ] }
  23         { status-dirty [ "dirty" ] }
  24         { status-error [ "error" ] }
  25     } case ;
  26
  27 : email-report ( -- )
  28     "report" utf8 file-contents subject email-status ;
  29
  30 : email-error ( error callstack -- )
  31     [
  32         "Fatal error on " write host-name print nl
  33         [ error. ] [ callstack. ] bi*
  34     ] with-string-writer "fatal error"
  35     email-status ;