i[Fix] Alert triggered one cycle later - 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 f21b8c0e4e6021c7db52f98fb76953096bbc2793	/scm/reed-alert/commit/f21b8c0e4e6021c7db52f98fb76953096bbc2793.gph	bitreich.org	70
1parent 0b600b142b7d503226b44ff7f58188df569898a9	/scm/reed-alert/commit/0b600b142b7d503226b44ff7f58188df569898a9.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Thu, 25 Jan 2018 19:36:03 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
i[Fix] Alert triggered one cycle later	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M functions.lisp                      |      28 +++++++++++++---------------	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 13 insertions(+), 15 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/functions.lisp b/functions.lisp	/scm/reed-alert/file/functions.lisp.gph	bitreich.org	70
i@@ -99,7 +99,6 @@	Err	bitreich.org	70
i                       0	Err	bitreich.org	70
i                       (with-open-file (stream filepath :direction :input)	Err	bitreich.org	70
i                         (parse-integer (read-line stream 0 nil)))))	Err	bitreich.org	70
i-           (trigger-now?   (= tries (getf params :try *tries*)))	Err	bitreich.org	70
i            (triggered-before? (>= tries (getf params :try *tries*))))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i       ;; if result is a list then the check had fail a return both nil and the error value	Err	bitreich.org	70
i@@ -109,7 +108,7 @@	Err	bitreich.org	70
i 	Err	bitreich.org	70
i             ;; we delete the file with previous states	Err	bitreich.org	70
i             (when (probe-file filepath)	Err	bitreich.org	70
i-                 (delete-file filepath))	Err	bitreich.org	70
i+              (delete-file filepath))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i             ;; it was a failure and then it's back to normal state	Err	bitreich.org	70
i             (if triggered-before?	Err	bitreich.org	70
i@@ -122,18 +121,17 @@	Err	bitreich.org	70
i             ;; in any case we return t because it's ok	Err	bitreich.org	70
i             t)	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-        (progn	Err	bitreich.org	70
i-          (format t " => ~aerror (~a failure(s) before)~a~a~%" *red* tries *white* (if trigger-now? " NOTIFIED" ""))	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-          ;; more error than limit, send alert once	Err	bitreich.org	70
i-          (when trigger-now?	Err	bitreich.org	70
i-            (uiop:run-program (trigger-alert level fonction params (cadr result) 'error) :output t))	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-          ;; increment the number of tries by 1	Err	bitreich.org	70
i-          (with-open-file (stream-out filepath :direction :output	Err	bitreich.org	70
i-                                      :if-exists :supersede)	Err	bitreich.org	70
i-            (format stream-out "~a~%~a~%" (+ 1 tries) params))	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-          nil)))))	Err	bitreich.org	70
i+          ;; failure handling	Err	bitreich.org	70
i+          (let ((trigger-now? (= (+ 1 tries) (getf params :try *tries*)))) ; we add +1 because it's failing right now	Err	bitreich.org	70
i+            (format t " => ~aerror (~a failure(s) before)~a~a~%" *red* tries *white* (if trigger-now? " NOTIFIED" ""))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+            ;; more error than limit, send alert once	Err	bitreich.org	70
i+            (when trigger-now?	Err	bitreich.org	70
i+              (uiop:run-program (trigger-alert level fonction params (cadr result) 'error) :output t))	Err	bitreich.org	70
i+            ;; increment the number of tries by 1	Err	bitreich.org	70
i+            (with-open-file (stream-out filepath :direction :output	Err	bitreich.org	70
i+                                        :if-exists :supersede)	Err	bitreich.org	70
i+              (format stream-out "~a~%~a~%" (+ 1 tries) params))	Err	bitreich.org	70
i+            nil)))))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (load "probes.lisp")	Err	bitreich.org	70
.