iAdd a macro strcat for more readability of (concatenate 'string &body) Use ~/.reed-alert/states instead of $PWD/states/ for saving states - 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 64185e6f15946e6842a082578a778184a99a3abd	/scm/reed-alert/commit/64185e6f15946e6842a082578a778184a99a3abd.gph	bitreich.org	70
1parent 0657e70c7767a58c22ebdbe34c0a18420555b017	/scm/reed-alert/commit/0657e70c7767a58c22ebdbe34c0a18420555b017.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Sun, 21 Oct 2018 21:38:46 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
iAdd a macro strcat for more readability of (concatenate 'string &body)	Err	bitreich.org	70
iUse ~/.reed-alert/states instead of $PWD/states/ for saving states	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M functions.lisp                      |      11 ++++++++---	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 8 insertions(+), 3 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@@ -2,7 +2,8 @@	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defparameter *tries* 3)	Err	bitreich.org	70
i (defparameter *alerts* '())	Err	bitreich.org	70
i-(ensure-directories-exist "states/")	Err	bitreich.org	70
i+(defparameter *states-dir* "~/.reed-alert/states/")	Err	bitreich.org	70
i+(ensure-directories-exist *states-dir*)	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun color(num1 num2)	Err	bitreich.org	70
i   (format nil "~a[~a;~am" #\Escape num1 num2))	Err	bitreich.org	70
i@@ -57,7 +58,11 @@	Err	bitreich.org	70
i   `(progn	Err	bitreich.org	70
i      (defparameter ,name ',name)	Err	bitreich.org	70
i      (push (list ',name ,string)	Err	bitreich.org	70
i-                *alerts*)))	Err	bitreich.org	70
i+           *alerts*)))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+(defmacro strcat(&body body)	Err	bitreich.org	70
i+  `(progn	Err	bitreich.org	70
i+     (concatenate 'string ,@body)))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun trigger-alert(level function params result state)	Err	bitreich.org	70
i   (let* ((notifier-command (assoc level *alerts*))	Err	bitreich.org	70
i@@ -91,7 +96,7 @@	Err	bitreich.org	70
i   (let* ((hash (fnv-hash (format nil "~{~a~}" (remove-if #'symbolp params))))	Err	bitreich.org	70
i          (result (funcall fonction params))	Err	bitreich.org	70
i          (filename (format nil "~a-~a-~a" level fonction hash))	Err	bitreich.org	70
i-         (filepath (format nil "states/~a" filename)))	Err	bitreich.org	70
i+         (filepath (format nil "~a/~a" *states-dir* filename)))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i     ;; we open the file to read the number of tries	Err	bitreich.org	70
i     ;; if no fail then we have 0 try	Err	bitreich.org	70
.