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