|
|
test.lisp - reed-alert - Lightweight agentless alerting system for server |
|
|
 |
git clone git://bitreich.org/reed-alert/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/reed-alert/ (git://bitreich.org) |
|
|
 |
Log |
|
|
|
Files |
|
|
|
Refs |
|
|
|
Tags |
|
|
|
README |
|
|
|
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") |
|