iCorrect to follow the new alert declaration - reed-alert - Lightweight agentless alerting system for server	Err	bitreich.org	70
hgit clone git://bitreich.org/reed-alert/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/reed-alert/	URL:git://bitreich.org/reed-alert/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/reed-alert/	bitreich.org	70
1Log	/scm/reed-alert/log.gph	bitreich.org	70
1Files	/scm/reed-alert/files.gph	bitreich.org	70
1Refs	/scm/reed-alert/refs.gph	bitreich.org	70
1Tags	/scm/reed-alert/tag	bitreich.org	70
1README	/scm/reed-alert/file/README.gph	bitreich.org	70
1LICENSE	/scm/reed-alert/file/LICENSE.gph	bitreich.org	70
i---	Err	bitreich.org	70
1commit 01a3f1cc34988cd7ad739d41186c4362ede1fdf8	/scm/reed-alert/commit/01a3f1cc34988cd7ad739d41186c4362ede1fdf8.gph	bitreich.org	70
1parent 439acf53f4c8be2665c3459055a57b3d03656fd8	/scm/reed-alert/commit/439acf53f4c8be2665c3459055a57b3d03656fd8.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Wed, 10 Jan 2018 20:17:50 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
iCorrect to follow the new alert declaration	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M config.lisp.sample                  |      15 +++++++--------	Err	bitreich.org	70
i  M example.lisp                        |      27 ++++++++++-----------------	Err	bitreich.org	70
i	Err	bitreich.org	70
i2 files changed, 17 insertions(+), 25 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/config.lisp.sample b/config.lisp.sample	/scm/reed-alert/file/config.lisp.sample.gph	bitreich.org	70
i@@ -1,15 +1,14 @@	Err	bitreich.org	70
i-(defvar *alerts*	Err	bitreich.org	70
i-  (list	Err	bitreich.org	70
i-   '(mail ("echo -n '" + "Problem with " function _ date _ params"' | mail -s alarm mail@isp.net"))	Err	bitreich.org	70
i-   '(sms ("/home/user/sms.sh '" date _ function _  params _ hostname "'"))	Err	bitreich.org	70
i-   '(available ("REMINDER" function params date hostname desc level os newline _ space result))	Err	bitreich.org	70
i-   '(void nil)))	Err	bitreich.org	70
i-	Err	bitreich.org	70
i (load "functions.lisp")	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+(alert mail "echo -n 'Problem with %function% %date% %params%' | mail -s alarm mail@isp.net")	Err	bitreich.org	70
i+(alert sms  "/home/user/sms.sh '%date% %function% %params% %hostname%")	Err	bitreich.org	70
i+(alert available-variables "REMINDER : %function% %params% %date% %hostname% %desc% %level% %os% %newline% %result%")	Err	bitreich.org	70
i+(alert void "")	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+	Err	bitreich.org	70
i ;; this is a comment	Err	bitreich.org	70
i ; this is also a comment	Err	bitreich.org	70
i-(=> mail disk-usage   (:path "/"    :limit 90))	Err	bitreich.org	70
i+(=> mail disk-usage (:path "/" :limit 90))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (=> mail service (:name "dovecot"))	Err	bitreich.org	70
i (=> mail service (:name "httpd"))	Err	bitreich.org	70
1diff --git a/example.lisp b/example.lisp	/scm/reed-alert/file/example.lisp.gph	bitreich.org	70
i@@ -1,16 +1,12 @@	Err	bitreich.org	70
i-(defvar *alerts*	Err	bitreich.org	70
i-  (list	Err	bitreich.org	70
i-   '(dont-use-it ("REMINDER" function params date hostname desc level os newline _ space result))	Err	bitreich.org	70
i-   '(void nil)	Err	bitreich.org	70
i-   '(mail nil)	Err	bitreich.org	70
i-   '(sms ("echo -n '" date _ function " CRITICAL " hostname "' | curl http://somewebservice";))	Err	bitreich.org	70
i-   '(mail ("echo -n '" date _ hostname " had problem on " function newline params _ " values " result newline	Err	bitreich.org	70
i-           desc "' | mail -s '[Error] " function  " - " hostname "' foo@bar.com"))	Err	bitreich.org	70
i-   '(with-plus ("echo -n '" + date + _ + hostname + " had problem on " + function + newline + params + newline	Err	bitreich.org	70
i-                + desc + "' | mail -s '[Error] " + function +  " - " + hostname + "' foo@bar.com"))))	Err	bitreich.org	70
i+(load "functions.lisp")	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+(alert dont-use-it "REMINDER %function% %params% %date% %hostname% %desc% %level% %os% %newline% _ %space% %result%")	Err	bitreich.org	70
i+(alert void "")	Err	bitreich.org	70
i+(alert mail "")	Err	bitreich.org	70
i+(alert sms "echo -n '%date% %function% CRITICAL on %hostname%' | curl http://somewebservice";)	Err	bitreich.org	70
i+;(alert mail "echo -n '%date% %hostname% had problem on %function% %newline% %params% values %result% %newline%	Err	bitreich.org	70
i+;                      %desc%' | mail -s '[Error] %function% - %hostname%' foo@bar.com")	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-(load "functions.lisp")	Err	bitreich.org	70
i 	Err	bitreich.org	70
i ;; check if used percent :path partition is more than :limit	Err	bitreich.org	70
i (=> mail disk-usage   (:path "/"    :limit 90))	Err	bitreich.org	70
i@@ -52,14 +48,11 @@	Err	bitreich.org	70
i (=> void command (:command "echo hello")) ;; success	Err	bitreich.org	70
i (=> void command (:command "ls /non-existent-file")) ;; fail	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-(load "probes-extended.lisp")	Err	bitreich.org	70
i-	Err	bitreich.org	70
i ;; check if web page :url answer under :limit	Err	bitreich.org	70
i-(=> void http-response-time (:url "http://google.fr/"; :limit 10))	Err	bitreich.org	70
i+(=> void command (:command "curl -m 10 http://google.fr/";))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i ;; check if the web page :url contains the text regex :pattern	Err	bitreich.org	70
i-(=> void http-text-present  (:url "http://google.fr/"; :pattern "html"))	Err	bitreich.org	70
i-(=> void http-text-present  (:url "http://google.fr/"; :pattern "hello")) ;; error	Err	bitreich.org	70
i-	Err	bitreich.org	70
i+(=> void command  (:command "curl http://google.fr | grep html"))	Err	bitreich.org	70
i+(=> void command  (:command "curl http://google.fr | grep hello")) ;; error	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (quit)	Err	bitreich.org	70
.