[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))))