newlisp 监控Linux进程 一

之前我的newlisp 监控redmine中描述了监控redmine进程的方法，今天更进一步，添加一个配置文件，里面描述了要监控的进程list，这样每次逐个检查本机的进程.

先来实现个简单的检查，一个函数check-proces，接受一个字符串，用来检查进程是否存在

#!/usr/bin/newlisp

(define (check-process filter-str)
  (set 'r (exec (append "ps -def | grep " filter-str)))
  (set 'l (length r))
  (> l 3))


(if (check-process "dispatch")
    (println "redmine is alive")
  (println "redmine is dead"))
(exit)

好，添加一个配置文件叫做filter.lsp, 下面的filters是一个list，里面每个元素也是一个list，并且分两部分，一是用来检查进程的字符串，二是要检查进程的有意义的名称，可以用于写日志。

(set 'filters (list '("dispatch" "redmine")))    

然后之前的process.lsp内容修改为：

#!/usr/bin/newlisp

(load "/opt/detector/filter.lsp")

(define (check-process filter-str)
  (set 'r (exec (append "ps -def | grep " filter-str)))
  (set 'l (length r))
  (= 3 l))

(dolist (sub-list filters)
  (if (check-process (first sub-list))
      (println (append (sub-list 1) " is alive"))
    (println (append (sub-list 1) " is dead"))))

(exit)

ok, 再进一步，写日志, 添加了add-log函数

#!/usr/bin/newlisp

(set 'cur-path "/opt/detector")
(load (append cur-path "/filter.lsp"))

(define (check-process filter-str)
  (set 'r (exec (append "ps -def | grep " filter-str)))
  (set 'l (length r))
  (= 3 l))

(define (add-log msg)
  (println msg)
  (append-file (append cur-path "/process.log") (append "\n" (string (now 480)) " "))
  (append-file (append cur-path "/process.log") (append  ": " msg))
  )

(dolist (sub-list filters)
  (if (check-process (first sub-list))
      (add-log (append (sub-list 1) " is alive\n"))
    (add-log (append (sub-list 1) " is dead\n"))))

(exit)