reed-alert/example.lisp

(load "functions.lisp")

(alert dont-use-it "REMINDER %function% %params% %date% %hostname% %desc% %level% %os% %newline% _ %space% %result%")
(alert void "")
(alert mail "")
(alert sms "echo -n '%date% %function% CRITICAL on %hostname%' | curl http://somewebservice")
;(alert mail "echo -n '%date% %hostname% had problem on %function% %newline% %params% values %result% %newline%
;	              %desc%' | mail -s '[Error] %function% - %hostname%' foo@bar.com")


;; check if used percent :path partition is more than :limit
(=> mail disk-usage   (:path "/"    :limit 90))
(=> mail disk-usage   (:path "/usr" :limit 85))
(=> mail disk-usage   (:path "/tmp" :limit 1)) ;; failure

;; check if :path file exists
(=> mail file-exists  (:path "/bsd.rd" :desc "OpenBSD kernel /bsd.rd"))
(=> void file-exists  (:path "/non-existant-file")) ;; failure file not found

;; check if :path file exists and has been updated since :limit minutes
(=> void file-updated (:path "/var/log/messages" :limit 400))
(=> mail file-updated (:path "/bsd.rd"           :limit 1 :desc "OpenBSD kernel")) ;; failure

;; check if :path pid file process is running
(=> mail pid-running  (:path "/var/run/xdm.pid" :desc "XDM pid"))
(=> mail pid-running  (:path "/home/user/test.pid")) ;; failure

;; check if number of processes on the system is more than :limit
(=> mail number-of-processes (:limit 200))
(=> mail number-of-processes (:limit 1)) ;; failure

;; check if service is running
(=> mail service (:name "httpd"))
(=> mail service (:name "ospfd"))   ;; failure : not started
(=> mail service (:name "unknown")) ;; failure : not known

;; check if load average on (1/5/15) minutes is more than :limit
(=> mail load-average-1  (:limit 4))
;;(=> mail load-average-5  (:limit 2))
;;(=> mail load-average-15 (:limit 1))
(=> mail load-average-1  (:limit 0.2)) ;; should trigger error

;; check if :host host is reachable
;;(=> mail ping (:host "8.8.8.8"      :desc "Google DNS"))
;;(=> void ping (:host "127.40.30.21" :desc "Certainly not used address")) ;; fail time out

;; check if :command command return 0 (success) or something else (error)
(=> void command (:command "echo hello")) ;; success
(=> void command (:command "ls /non-existent-file")) ;; fail

;; check if web page :url answer under :limit
(=> void command (:command "curl -m 10 http://google.fr/"))

;; check if the web page :url contains the text regex :pattern
(=> void command  (:command "curl http://google.fr/ | grep html"))
(=> void command  (:command "curl http://google.fr/ | grep hello")) ;; error

(quit)