[DEV] Move functions from probes to funcs - reed-alert - Lightweight agentless alerting system for server (HTM) git clone git://bitreich.org/reed-alert/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/reed-alert/ (DIR) Log (DIR) Files (DIR) Refs (DIR) Tags (DIR) README (DIR) LICENSE --- (DIR) commit 8a7e81410bf964feeecd139d551ddd143f730e58 (DIR) parent 9b5e9bd4a8ff642b8a7408fc0f3e3dec11aa613d (HTM) Author: solene rapenne <solene@dataswamp.org> Date: Fri, 14 Oct 2016 14:20:36 +0200 [DEV] Move functions from probes to funcs Diffstat: M functions.lisp | 17 ++++++++++++++++- M probes.lisp | 13 ------------- 2 files changed, 16 insertions(+), 14 deletions(-) --- (DIR) diff --git a/functions.lisp b/functions.lisp @@ -1,5 +1,5 @@ (require 'asdf) -(load "probes.lisp") + (defun color(num1 num2) (format nil "~a[~a;~am" #\Escape num1 num2)) @@ -9,6 +9,19 @@ (defparameter *green* (color 1 32)) (defparameter *yellow* (color 0 33)) +(defmacro create-probe(name &body code) + `(progn (defun ,name(params) ,@code))) + +(defun get-file-size(path) + (with-open-file (stream path) + (and stream (file-length path)))) + +(defun command-return-code(command) + (let ((code (nth-value 2 (uiop:run-program command :ignore-error-status t)))) + (if (= 0 code) + t + (list nil (format nil "return code = ~a" code))))) + (defun trigger-alert(level function params result) (format nil "~{~a~}" (mapcar #'(lambda(x) @@ -48,3 +61,5 @@ (format t " => ~aerror~a~%" *red* *white*) (uiop:run-program (trigger-alert ',level ',fonction ',params (cadr result)) :output t) nil))))) + +(load "probes.lisp") (DIR) diff --git a/probes.lisp b/probes.lisp @@ -1,16 +1,3 @@ -(defmacro create-probe(name &body code) - `(progn (defun ,name(params) ,@code))) - -(defun get-file-size(path) - (with-open-file (stream path) - (and stream (file-length path)))) - -(defun command-return-code(command) - (let ((code (nth-value 2 (uiop:run-program command :ignore-error-status t)))) - (if (= 0 code) - t - (list nil (format nil "return code = ~a" code))))) - (create-probe file-exists (let ((result (probe-file (getf params :path))))