i[FIX] Return value of disk-used was a disk-used string instead of the variable - 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 9b5e9bd4a8ff642b8a7408fc0f3e3dec11aa613d	/scm/reed-alert/commit/9b5e9bd4a8ff642b8a7408fc0f3e3dec11aa613d.gph	bitreich.org	70
1parent c3f594da02f5b2a394be84fc115677d22cf75fbf	/scm/reed-alert/commit/c3f594da02f5b2a394be84fc115677d22cf75fbf.gph	bitreich.org	70
hAuthor: solene rapenne <solene@dataswamp.org>	URL:mailto:solene@dataswamp.org	bitreich.org	70
iDate:   Mon, 10 Oct 2016 20:35:49 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
i[FIX] Return value of disk-used was a disk-used string instead of the variable	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M probes.lisp                         |      24 +++++++++++++++++++++++-	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 23 insertions(+), 1 deletion(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/probes.lisp b/probes.lisp	/scm/reed-alert/file/probes.lisp.gph	bitreich.org	70
i@@ -1,6 +1,10 @@	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@@ -44,7 +48,7 @@	Err	bitreich.org	70
i                      percent-character-pos))))	Err	bitreich.org	70
i        (if (< used-disk (getf params :limit))	Err	bitreich.org	70
i            t	Err	bitreich.org	70
i-           (list nil "used-disk"))))))	Err	bitreich.org	70
i+           (list nil used-disk))))))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun system-load(time)	Err	bitreich.org	70
i   (read-from-string	Err	bitreich.org	70
i@@ -76,6 +80,24 @@	Err	bitreich.org	70
i        (list nil load))))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (create-probe	Err	bitreich.org	70
i+ file-more-than	Err	bitreich.org	70
i+ (if (probe-file (getf params :path))	Err	bitreich.org	70
i+     (let ((result (get-file-size (getf params :path))))	Err	bitreich.org	70
i+       (if (< result (getf params :limit))	Err	bitreich.org	70
i+           t	Err	bitreich.org	70
i+           (list nil result)))	Err	bitreich.org	70
i+     "file not found"))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+(create-probe	Err	bitreich.org	70
i+ file-less-than	Err	bitreich.org	70
i+ (if (probe-file (getf params :path))	Err	bitreich.org	70
i+     (let ((result (get-file-size (getf params :path))))	Err	bitreich.org	70
i+       (if (> result (getf params :limit))	Err	bitreich.org	70
i+           t	Err	bitreich.org	70
i+           (list nil result)))	Err	bitreich.org	70
i+     "file not found"))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+(create-probe	Err	bitreich.org	70
i  command	Err	bitreich.org	70
i  (command-return-code (getf params :command)))	Err	bitreich.org	70
i 	Err	bitreich.org	70
.