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)