iSeparate desc from params in the output - 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 5d2fda3df3c639f75191ede0f4180f7992f90c79 /scm/reed-alert/commit/5d2fda3df3c639f75191ede0f4180f7992f90c79.gph bitreich.org 70 1parent fd80ed68f6fbb92860af43c7bb0542c5e90022fe /scm/reed-alert/commit/fd80ed68f6fbb92860af43c7bb0542c5e90022fe.gph bitreich.org 70 hAuthor: Solene Rapenne URL:mailto:solene@perso.pw bitreich.org 70 iDate: Thu, 11 Jul 2019 09:24:28 +0200 Err bitreich.org 70 i Err bitreich.org 70 iSeparate desc from params in the output Err bitreich.org 70 i Err bitreich.org 70 iDiffstat: Err bitreich.org 70 i M extras/output2html.sh | 14 ++++++++++---- Err bitreich.org 70 i M functions.lisp | 16 ++++++++++++++-- Err bitreich.org 70 i Err bitreich.org 70 i2 files changed, 24 insertions(+), 6 deletions(-) Err bitreich.org 70 i--- Err bitreich.org 70 1diff --git a/extras/output2html.sh b/extras/output2html.sh /scm/reed-alert/file/extras/output2html.sh.gph bitreich.org 70 i@@ -4,9 +4,11 @@ awk -F'\t' \ Err bitreich.org 70 i -v alert=1 \ Err bitreich.org 70 i -v check=1 \ Err bitreich.org 70 i -v params=1 \ Err bitreich.org 70 i+ -v desc=1 \ Err bitreich.org 70 i -v previousstate=1 \ Err bitreich.org 70 i -v currentstate=1 \ Err bitreich.org 70 i- -v triggerstate=1 ' Err bitreich.org 70 i+ -v triggerstate=1 \ Err bitreich.org 70 i+ -v count=1 ' Err bitreich.org 70 i Err bitreich.org 70 i BEGIN { Err bitreich.org 70 i print "" Err bitreich.org 70 i@@ -16,9 +18,11 @@ BEGIN { Err bitreich.org 70 i if(alert) { print "Alert" } Err bitreich.org 70 i if(check) { print "check" } Err bitreich.org 70 i if(params) { print "params" } Err bitreich.org 70 i+ if(desc) { print "description" } Err bitreich.org 70 i if(previousstate) { print "previous-state" } Err bitreich.org 70 i if(currentstate) { print "current-state" } Err bitreich.org 70 i if(triggerstate) { print "trigger-state" } Err bitreich.org 70 i+ if(count) { print "count" } Err bitreich.org 70 i print "" Err bitreich.org 70 i } Err bitreich.org 70 i Err bitreich.org 70 i@@ -27,9 +31,11 @@ BEGIN { Err bitreich.org 70 i if(alert) { print ""$1"" } Err bitreich.org 70 i if(check) { print ""$2"" } Err bitreich.org 70 i if(params) { print ""$3"" } Err bitreich.org 70 i- if(previousstate) { print ""$4"" } Err bitreich.org 70 i- if(currentstate) { print ""$5"" } Err bitreich.org 70 i- if(triggerstate) { print ""$6"" } Err bitreich.org 70 i+ if(desc) { print ""$4"" } Err bitreich.org 70 i+ if(previousstate) { print ""$5"" } Err bitreich.org 70 i+ if(currentstate) { print ""$6"" } Err bitreich.org 70 i+ if(triggerstate) { print ""$7"" } Err bitreich.org 70 i+ if(count) { print ""$8"" } Err bitreich.org 70 i print "" Err bitreich.org 70 i 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@@ -148,8 +148,20 @@ 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- (format t "~a ~A ~A ~A ~A ~A ~A~%" Err bitreich.org 70 i- level fonction (format nil "~{~A ~}" params) Err bitreich.org 70 i+ (format t "~a ~A ~A ~A ~A ~A ~A ~A~%" Err bitreich.org 70 i+ level fonction Err bitreich.org 70 i+ (let ((desc-pos (position :desc params))) Err bitreich.org 70 i+ (if desc-pos Err bitreich.org 70 i+ (remove nil Err bitreich.org 70 i+ (loop for i in params Err bitreich.org 70 i+ counting t into j Err bitreich.org 70 i+ collect Err bitreich.org 70 i+ (when (not (or Err bitreich.org 70 i+ (= j (+ 1 desc-pos)) Err bitreich.org 70 i+ (= j (+ 2 desc-pos)))) Err bitreich.org 70 i+ i))) Err bitreich.org 70 i+ params)) Err bitreich.org 70 i+ (getf params :desc "") Err bitreich.org 70 i (if previous-state "SUCCESS" "ERROR") Err bitreich.org 70 i (if current-state "SUCCESS" "ERROR") Err bitreich.org 70 i trigger-state Err bitreich.org 70 .