i[FIX] Load average wasn't working in some conditions - 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 84cc333bfe3d62aff0d2ff899f58b034ac2ca542	/scm/reed-alert/commit/84cc333bfe3d62aff0d2ff899f58b034ac2ca542.gph	bitreich.org	70
1parent 8a7e81410bf964feeecd139d551ddd143f730e58	/scm/reed-alert/commit/8a7e81410bf964feeecd139d551ddd143f730e58.gph	bitreich.org	70
hAuthor: solene rapenne <solene@dataswamp.org>	URL:mailto:solene@dataswamp.org	bitreich.org	70
iDate:   Fri, 14 Oct 2016 14:21:02 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
i[FIX] Load average wasn't working in some conditions	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M probes.lisp                         |      10 +++++-----	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 5 insertions(+), 5 deletions(-)	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@@ -40,28 +40,28 @@	Err	bitreich.org	70
i (defun system-load(time)	Err	bitreich.org	70
i   (read-from-string	Err	bitreich.org	70
i    (let ((command (concatenate 'string	Err	bitreich.org	70
i-                               "uptime | awk '{ print $"	Err	bitreich.org	70
i+                               "uptime | awk '{ print $(NF-"	Err	bitreich.org	70
i                                (princ-to-string time)	Err	bitreich.org	70
i-                               " }'")))	Err	bitreich.org	70
i+                               ") }'")))	Err	bitreich.org	70
i      (uiop:run-program command :output :string))))	Err	bitreich.org	70
i     	Err	bitreich.org	70
i (create-probe	Err	bitreich.org	70
i  load-average-1	Err	bitreich.org	70
i- (let ((load (system-load 10)))	Err	bitreich.org	70
i+ (let ((load (system-load 2)))	Err	bitreich.org	70
i    (if (< load (getf params :limit))	Err	bitreich.org	70
i        t	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  load-average-5	Err	bitreich.org	70
i- (let ((load (system-load 11)))	Err	bitreich.org	70
i+ (let ((load (system-load 1)))	Err	bitreich.org	70
i    (if (< load (getf params :limit))	Err	bitreich.org	70
i        t	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  load-average-15	Err	bitreich.org	70
i- (let ((load (system-load 12)))	Err	bitreich.org	70
i+ (let ((load (system-load 0)))	Err	bitreich.org	70
i    (if (< load (getf params :limit))	Err	bitreich.org	70
i        t	Err	bitreich.org	70
i        (list nil load))))	Err	bitreich.org	70
.