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 <solene@perso.pw> 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 "<html>" Err bitreich.org 70
i@@ -16,9 +18,11 @@ BEGIN { Err bitreich.org 70
i if(alert) { print "<th>Alert</th>" } Err bitreich.org 70
i if(check) { print "<th>check</th>" } Err bitreich.org 70
i if(params) { print "<th>params</th>" } Err bitreich.org 70
i+ if(desc) { print "<th>description</th>" } Err bitreich.org 70
i if(previousstate) { print "<th>previous-state</th>" } Err bitreich.org 70
i if(currentstate) { print "<th>current-state</th>" } Err bitreich.org 70
i if(triggerstate) { print "<th>trigger-state</th>" } Err bitreich.org 70
i+ if(count) { print "<th>count</th>" } Err bitreich.org 70
i print "</tr></thead><tbody>" 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 "<td>"$1"</td>" } Err bitreich.org 70
i if(check) { print "<td>"$2"</td>" } Err bitreich.org 70
i if(params) { print "<td>"$3"</td>" } Err bitreich.org 70
i- if(previousstate) { print "<td>"$4"</td>" } Err bitreich.org 70
i- if(currentstate) { print "<td>"$5"</td>" } Err bitreich.org 70
i- if(triggerstate) { print "<td>"$6"</td>" } Err bitreich.org 70
i+ if(desc) { print "<td>"$4"</td>" } Err bitreich.org 70
i+ if(previousstate) { print "<td>"$5"</td>" } Err bitreich.org 70
i+ if(currentstate) { print "<td>"$6"</td>" } Err bitreich.org 70
i+ if(triggerstate) { print "<td>"$7"</td>" } Err bitreich.org 70
i+ if(count) { print "<td>"$8"</td>" } Err bitreich.org 70
i print "</tr>" 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
.
Response:
text/plain