i[DEV] Move functions from probes to funcs - 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 8a7e81410bf964feeecd139d551ddd143f730e58	/scm/reed-alert/commit/8a7e81410bf964feeecd139d551ddd143f730e58.gph	bitreich.org	70
1parent 9b5e9bd4a8ff642b8a7408fc0f3e3dec11aa613d	/scm/reed-alert/commit/9b5e9bd4a8ff642b8a7408fc0f3e3dec11aa613d.gph	bitreich.org	70
hAuthor: solene rapenne <solene@dataswamp.org>	URL:mailto:solene@dataswamp.org	bitreich.org	70
iDate:   Fri, 14 Oct 2016 14:20:36 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
i[DEV] Move functions from probes to funcs	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M functions.lisp                      |      17 ++++++++++++++++-	Err	bitreich.org	70
i  M probes.lisp                         |      13 -------------	Err	bitreich.org	70
i	Err	bitreich.org	70
i2 files changed, 16 insertions(+), 14 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@@ -1,5 +1,5 @@	Err	bitreich.org	70
i (require 'asdf)	Err	bitreich.org	70
i-(load "probes.lisp")	Err	bitreich.org	70
i+	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@@ -9,6 +9,19 @@	Err	bitreich.org	70
i (defparameter *green* (color 1 32))	Err	bitreich.org	70
i (defparameter *yellow* (color 0 33))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+(defmacro create-probe(name &body code)	Err	bitreich.org	70
i+  `(progn (defun ,name(params) ,@code)))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+(defun get-file-size(path)	Err	bitreich.org	70
i+  (with-open-file (stream path)	Err	bitreich.org	70
i+    (and stream (file-length path))))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+(defun command-return-code(command)	Err	bitreich.org	70
i+  (let ((code (nth-value 2 (uiop:run-program command :ignore-error-status t))))	Err	bitreich.org	70
i+    (if (= 0 code)	Err	bitreich.org	70
i+        t	Err	bitreich.org	70
i+        (list nil (format nil "return code = ~a" code)))))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i (defun trigger-alert(level function params result)	Err	bitreich.org	70
i   (format nil "~{~a~}"	Err	bitreich.org	70
i           (mapcar #'(lambda(x)	Err	bitreich.org	70
i@@ -48,3 +61,5 @@	Err	bitreich.org	70
i              (format t " => ~aerror~a~%" *red* *white*)	Err	bitreich.org	70
i              (uiop:run-program (trigger-alert ',level ',fonction ',params (cadr result)) :output t)	Err	bitreich.org	70
i              nil)))))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+(load "probes.lisp")	Err	bitreich.org	70
1diff --git a/probes.lisp b/probes.lisp	/scm/reed-alert/file/probes.lisp.gph	bitreich.org	70
i@@ -1,16 +1,3 @@	Err	bitreich.org	70
i-(defmacro create-probe(name &body code)	Err	bitreich.org	70
i-  `(progn (defun ,name(params) ,@code)))	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-(defun get-file-size(path)	Err	bitreich.org	70
i-  (with-open-file (stream path)	Err	bitreich.org	70
i-    (and stream (file-length path))))	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-(defun command-return-code(command)	Err	bitreich.org	70
i-  (let ((code (nth-value 2 (uiop:run-program command :ignore-error-status t))))	Err	bitreich.org	70
i-    (if (= 0 code)	Err	bitreich.org	70
i-        t	Err	bitreich.org	70
i-        (list nil (format nil "return code = ~a" code)))))	Err	bitreich.org	70
i-	Err	bitreich.org	70
i (create-probe	Err	bitreich.org	70
i  file-exists	Err	bitreich.org	70
i  (let ((result (probe-file (getf params :path))))	Err	bitreich.org	70
.