iAborting probes requiring external libraries - 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 eb64a97f9c6283cab21d9672be9c4c22ac27dcb0	/scm/reed-alert/commit/eb64a97f9c6283cab21d9672be9c4c22ac27dcb0.gph	bitreich.org	70
1parent eea696a8f9aba6dddc8af5fb7866508330d168e4	/scm/reed-alert/commit/eea696a8f9aba6dddc8af5fb7866508330d168e4.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Wed, 10 Jan 2018 18:49:03 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
iAborting probes requiring external libraries	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  D probes-extended.lisp                |      23 -----------------------	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 0 insertions(+), 23 deletions(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/probes-extended.lisp b/probes-extended.lisp	/scm/reed-alert/file/probes-extended.lisp.gph	bitreich.org	70
i@@ -1,23 +0,0 @@	Err	bitreich.org	70
i-(load "libraries/bundle.lisp")	Err	bitreich.org	70
i-(mapcar 'asdf:load-system '("drakma" "cl-ppcre"))	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-(create-probe	Err	bitreich.org	70
i- http-response-time	Err	bitreich.org	70
i- (let ((begin (get-universal-time)))	Err	bitreich.org	70
i-   (let ((result (ignore-errors	Err	bitreich.org	70
i-                   (drakma:http-request (getf params :url)))))	Err	bitreich.org	70
i-     (if result	Err	bitreich.org	70
i-         (let ((elapsed-time (- (get-universal-time) begin)))	Err	bitreich.org	70
i-           (if (< elapsed-time (getf params :limit))	Err	bitreich.org	70
i-               t	Err	bitreich.org	70
i-               (list nil elapsed-time)))	Err	bitreich.org	70
i-         (list nil "http connection failure")))))	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-(create-probe	Err	bitreich.org	70
i- http-text-present	Err	bitreich.org	70
i- (ignore-errors	Err	bitreich.org	70
i-   (let ((result (drakma:http-request (getf params :url))))	Err	bitreich.org	70
i-     (if (cl-ppcre:scan (getf params :pattern) result)	Err	bitreich.org	70
i-         t	Err	bitreich.org	70
i-         (list nil "pattern not found")))))	Err	bitreich.org	70
i-	Err	bitreich.org	70
.