steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

logging.insomniac: clean up more

db4
Slava Pestov 2010-10-02 18:18:54 -07:00
parent b79c801b3c
commit 7fc552dd6c
1 changed files with 8 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
basis/logging/insomniac/insomniac.factor
View File

@ -2,30 +2,25 @@
! See http://factorcode.org/license.txt for BSD license.
USING: logging.analysis logging.server logging smtp kernel
io.files io.streams.string namespaces make timers assocs
io.encodings.utf8 accessors calendar sequences ;
io.encodings.utf8 accessors calendar sequences locals ;
QUALIFIED: io.sockets
IN: logging.insomniac
SYMBOL: insomniac-sender
SYMBOL: insomniac-recipients
: ?analyze-log ( service word-names -- string/f )
[ analyze-log-file ] with-string-writer ;
: email-subject ( service -- string )
[
"Log analysis for " % % " on " % io.sockets:host-name %
] "" make ;
: (email-log-report) ( service word-names -- )
dupd ?analyze-log [ drop ] [
<email>
swap >>body
insomniac-recipients get >>to
insomniac-sender get >>from
swap email-subject >>subject
send-email
] if-empty ;
:: (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 ;
\ (email-log-report) NOTICE add-error-logging