Aborting probes requiring external libraries - reed-alert - Lightweight agentless alerting system for server
HTML git clone git://bitreich.org/reed-alert/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/reed-alert/
DIR Log
DIR Files
DIR Refs
DIR Tags
DIR README
DIR LICENSE
---
DIR commit eb64a97f9c6283cab21d9672be9c4c22ac27dcb0
DIR parent eea696a8f9aba6dddc8af5fb7866508330d168e4
HTML Author: Solene Rapenne <solene@perso.pw>
Date: Wed, 10 Jan 2018 18:49:03 +0100
Aborting probes requiring external libraries
Diffstat:
D probes-extended.lisp | 23 -----------------------
1 file changed, 0 insertions(+), 23 deletions(-)
---
DIR diff --git a/probes-extended.lisp b/probes-extended.lisp
@@ -1,23 +0,0 @@
-(load "libraries/bundle.lisp")
-(mapcar 'asdf:load-system '("drakma" "cl-ppcre"))
-
-(create-probe
- http-response-time
- (let ((begin (get-universal-time)))
- (let ((result (ignore-errors
- (drakma:http-request (getf params :url)))))
- (if result
- (let ((elapsed-time (- (get-universal-time) begin)))
- (if (< elapsed-time (getf params :limit))
- t
- (list nil elapsed-time)))
- (list nil "http connection failure")))))
-
-(create-probe
- http-text-present
- (ignore-errors
- (let ((result (drakma:http-request (getf params :url))))
- (if (cl-ppcre:scan (getf params :pattern) result)
- t
- (list nil "pattern not found")))))
-