test.lisp - 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
---
test.lisp (1238B)
---
1 (setf *tries* 2)
2 (setf *reminder* 5)
3
4 (alert notification "echo '%state% %function% %params% %result% %date%'")
5
6 ;; check for /tmp/ disk usage
7 ;; create a big file to increase size
8 (=> notification disk-usage :path "/tmp" :limit 5 :reminder 2)
9 (=> notification disk-usage :path "/" :limit 1 :reminder 2)
10 (=> notification disk-usage :path "/" :limit 1 :reminder 2)
11 (=> notification disk-usage :path "/" :limit 1 :reminder 2)
12 (=> notification disk-usage :path "/" :limit 1 :reminder 2)
13 (=> notification disk-usage :path "/" :limit 1 :reminder 2)
14 (=> notification disk-usage :path "/" :limit 1 :reminder 2)
15
16 (and
17 (=> notification disk-usage :path "/" :limit 99 :reminder 2 :desc "always OK")
18 (=> notification disk-usage :path "/" :limit 1 :reminder 2 :desc "always error")
19 (=> notification disk-usage :path "/" :limit 1 :reminder 2 :desc "always error, should not be displayed"))
20
21
22 (or
23 (=> notification disk-usage :path "/" :limit 1 :reminder 2 :desc "always error, should be followed by always ok")
24 (=> notification disk-usage :path "/" :limit 99 :reminder 2 :desc "always OK"))
25
26 (=> notification write-to-file :path "/tmp/hello.txt")
27 (=> notification write-to-file :path "/tmp/hello2.txt" :text "hi")