(email-log-report) ( service word-names -- )

Vocabulary

logging.insomniac

Inputs

service	an object
word-names	an object

Outputs

None

Definition

USING: accessors io.streams.string logging.analysis namespaces
smtp ;

IN: logging.insomniac

:: (email-log-report) ( service word-names -- )
    <email>
    [ service word-names analyze-log-file ] with-string-writer
    >>body insomniac-recipients get >>to
    insomniac-sender get >>from service email-subject >>subject
    send-email ;