isupport services running check - 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 40f1c64c97fbe921f2c45392b3280ab12b4b77c9	/scm/reed-alert/commit/40f1c64c97fbe921f2c45392b3280ab12b4b77c9.gph	bitreich.org	70
1parent 71df6de766a87c6455bf293247d4dac72ff556e4	/scm/reed-alert/commit/71df6de766a87c6455bf293247d4dac72ff556e4.gph	bitreich.org	70
hAuthor: solene rapenne <solene@dataswamp.org>	URL:mailto:solene@dataswamp.org	bitreich.org	70
iDate:   Thu, 26 Jan 2017 17:38:06 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
isupport services running check	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M example.lisp                        |       7 ++++++-	Err	bitreich.org	70
i  M probes.lisp                         |       8 ++++++++	Err	bitreich.org	70
i	Err	bitreich.org	70
i2 files changed, 14 insertions(+), 1 deletion(-)	Err	bitreich.org	70
i---	Err	bitreich.org	70
1diff --git a/example.lisp b/example.lisp	/scm/reed-alert/file/example.lisp.gph	bitreich.org	70
i@@ -33,6 +33,11 @@	Err	bitreich.org	70
i (=> mail number-of-processes (:limit 200))	Err	bitreich.org	70
i (=> mail number-of-processes (:limit 1)) ;; failure	Err	bitreich.org	70
i 	Err	bitreich.org	70
i+;; check if service is running	Err	bitreich.org	70
i+(=> mail service (:name "httpd"))	Err	bitreich.org	70
i+(=> mail service (:name "ospfd"))   ;; failure : not started	Err	bitreich.org	70
i+(=> mail service (:name "unknown")) ;; failure : not known	Err	bitreich.org	70
i+	Err	bitreich.org	70
i ;; check if load average on (1/5/15) minutes is more than :limit	Err	bitreich.org	70
i (=> mail load-average-1  (:limit 4))	Err	bitreich.org	70
i ;;(=> mail load-average-5  (:limit 2))	Err	bitreich.org	70
i@@ -52,7 +57,7 @@	Err	bitreich.org	70
i ;; check if web page :url answer under :limit	Err	bitreich.org	70
i (=> void http-response-time (:url "http://google.fr/"; :limit 10))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i-;; check if the web page :url contains the text :pattern	Err	bitreich.org	70
i+;; check if the web page :url contains the text regex :pattern	Err	bitreich.org	70
i (=> void http-text-present  (:url "http://google.fr/"; :pattern "html"))	Err	bitreich.org	70
i (=> void http-text-present  (:url "http://google.fr/"; :pattern "hello")) ;; error	Err	bitreich.org	70
i 	Err	bitreich.org	70
1diff --git a/probes.lisp b/probes.lisp	/scm/reed-alert/file/probes.lisp.gph	bitreich.org	70
i@@ -18,6 +18,14 @@	Err	bitreich.org	70
i      (list nil "file not found")))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (create-probe	Err	bitreich.org	70
i+ service	Err	bitreich.org	70
i+ (command-return-code	Err	bitreich.org	70
i+  #+openbsd	Err	bitreich.org	70
i+  (list "rcctl" "check" (getf params :name))	Err	bitreich.org	70
i+  #+(or freebsd linux)	Err	bitreich.org	70
i+  (list "service" (getf params :name) "status")))	Err	bitreich.org	70
i+	Err	bitreich.org	70
i+(create-probe	Err	bitreich.org	70
i  pid-running	Err	bitreich.org	70
i  (if (probe-file (getf params :path))	Err	bitreich.org	70
i      (let ((pid-number (with-open-file (stream (getf params :path)) (read-line stream))))	Err	bitreich.org	70
.