42 lines
1.2 KiB
Factor
Executable File
42 lines
1.2 KiB
Factor
Executable File
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: logging.analysis logging.server logging smtp kernel
|
|
io.files io.streams.string namespaces alarms assocs
|
|
io.encodings.utf8 accessors calendar qualified ;
|
|
QUALIFIED: io.sockets
|
|
IN: logging.insomniac
|
|
|
|
SYMBOL: insomniac-sender
|
|
SYMBOL: insomniac-recipients
|
|
|
|
: ?analyze-log ( service word-names -- string/f )
|
|
>r log-path 1 log# dup exists? [
|
|
utf8 file-lines r> [ analyze-log ] with-string-writer
|
|
] [
|
|
r> 2drop f
|
|
] if ;
|
|
|
|
: email-subject ( service -- string )
|
|
[
|
|
"[INSOMNIAC] " % % " on " % io.sockets:host-name %
|
|
] "" make ;
|
|
|
|
: (email-log-report) ( service word-names -- )
|
|
dupd ?analyze-log dup [
|
|
<email>
|
|
swap >>body
|
|
insomniac-recipients get >>to
|
|
insomniac-sender get >>from
|
|
swap email-subject >>subject
|
|
send-email
|
|
] [ 2drop ] if ;
|
|
|
|
\ (email-log-report) NOTICE add-error-logging
|
|
|
|
: email-log-report ( service word-names -- )
|
|
"logging.insomniac" [ (email-log-report) ] with-logging ;
|
|
|
|
: schedule-insomniac ( service word-names -- )
|
|
[ [ email-log-report ] assoc-each rotate-logs ] 2curry
|
|
1 days every drop ;
|