iBetter launcher experience - 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 ddc902f5463b33bb032bf0ddb441f6975e9dcc66	/scm/reed-alert/commit/ddc902f5463b33bb032bf0ddb441f6975e9dcc66.gph	bitreich.org	70
1parent 8e5ebef8af4853fc4b0559235bfa0216622f13b5	/scm/reed-alert/commit/8e5ebef8af4853fc4b0559235bfa0216622f13b5.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Wed, 24 Oct 2018 07:55:33 +0200	Err	bitreich.org	70
i	Err	bitreich.org	70
iBetter launcher experience	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M functions.lisp                      |       7 +++++--	Err	bitreich.org	70
i  M reed-alert.in                       |      26 +++++++++++++++++++-------	Err	bitreich.org	70
i	Err	bitreich.org	70
i2 files changed, 24 insertions(+), 9 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,4 +1,6 @@	Err	bitreich.org	70
i-(require 'asdf)	Err	bitreich.org	70
i+;;; let's hide the loading	Err	bitreich.org	70
i+(let ((*standard-output* (make-broadcast-stream)))	Err	bitreich.org	70
i+    (require 'asdf))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defparameter *tries* 3)	Err	bitreich.org	70
i (defparameter *alerts* '())	Err	bitreich.org	70
i@@ -139,5 +141,6 @@	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+;; abort when using ctrl+c instead of dropping to debugger	Err	bitreich.org	70
i #+ecl	Err	bitreich.org	70
i-(ext:set-signal-handler ext:+sigint+ nil)	Err	bitreich.org	70
i+(ext:set-signal-handler ext:+sigint+ #'quit)	Err	bitreich.org	70
1diff --git a/reed-alert.in b/reed-alert.in	/scm/reed-alert/file/reed-alert.in.gph	bitreich.org	70
i@@ -3,20 +3,22 @@	Err	bitreich.org	70
i REEDDIR=	Err	bitreich.org	70
i 	Err	bitreich.org	70
i # check for ecl	Err	bitreich.org	70
i-type ecl 2>/dev/null	Err	bitreich.org	70
i+type ecl 2>&1 >/dev/null	Err	bitreich.org	70
i if [ $? -eq 0 ]	Err	bitreich.org	70
i then	Err	bitreich.org	70
i         LISP="ecl"	Err	bitreich.org	70
i+        PARAMS="--norc"	Err	bitreich.org	70
i         LOADPARAM="-load"	Err	bitreich.org	70
i         SHELLPARAM="-shell"	Err	bitreich.org	70
i else	Err	bitreich.org	70
i         # check for sbcl if ecl not in PATH	Err	bitreich.org	70
i-        type sbcl 2>/dev/null	Err	bitreich.org	70
i+        type sbcl 2>&1 >/dev/null	Err	bitreich.org	70
i         if [ $? -eq 0 ]	Err	bitreich.org	70
i         then	Err	bitreich.org	70
i                 LISP="sbcl"	Err	bitreich.org	70
i-                LOADPARAM="--load"	Err	bitreich.org	70
i-                SHELLPARAM="--shell"	Err	bitreich.org	70
i+                PARAMS="--noinform --no-userinit"	Err	bitreich.org	70
i+                LOADPARAM="--script"	Err	bitreich.org	70
i+                SHELLPARAM="--script"	Err	bitreich.org	70
i         else	Err	bitreich.org	70
i                 echo "ecl or sbcl not found in PATH."	Err	bitreich.org	70
i                 echo "you need at least one of them to use reed-alert"	Err	bitreich.org	70
i@@ -24,6 +26,16 @@ else	Err	bitreich.org	70
i         fi	Err	bitreich.org	70
i fi	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-$LISP $LOADPARAM $REEDDIR/functions.lisp \	Err	bitreich.org	70
i-      $LOADPARAM $REEDDIR/probes.lisp \	Err	bitreich.org	70
i-      $SHELLPARAM $1	Err	bitreich.org	70
i+if [ $# -eq 0 ]	Err	bitreich.org	70
i+then	Err	bitreich.org	70
i+        echo "usage: $0 filename"	Err	bitreich.org	70
i+        exit 2	Err	bitreich.org	70
i+fi	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+# prevent interpreter output when loading files	Err	bitreich.org	70
i+$LISP $PARAMS --eval \	Err	bitreich.org	70
i+"(let ((*standard-output* (make-broadcast-stream)))	Err	bitreich.org	70
i+   (require 'asdf)	Err	bitreich.org	70
i+   (load \"$REEDDIR/functions.lisp\")	Err	bitreich.org	70
i+   (load \"$REEDDIR/probes.lisp\"))" \	Err	bitreich.org	70
i+   $SHELLPARAM $1	Err	bitreich.org	70
.