用newlisp管理windows下的nginx

我写了一个nginx.lsp文件，可以通过传递参数来进行Nginx进程管理。

使用方法

1. 从nginx站点下载windows版本的程序，加压后，将newlisp.lsp文件复制到该目录。

2. 确保windows的system32目录下有newlisp.exe程序。

3. 运行程序, 目前支持5个参数

newlisp nginx.lsp start|stop|monitor|reload|view

比如下面用view来观察进程：

c:\newlisp nginx.lsp view

Image Name                     PID Session Name        Session#    Mem Usage
========================= ======== ================ =========== ============
nginx.exe                     8048 Console                    1      6,716 K
nginx.exe                     4512 Console                    1      6,988 K
nginx.exe                     1684 Console                    1      6,836 K
nginx.exe                     4652 Console                    1      7,132 K
nginx.exe                     6512 Console                    1      6,816 K
nginx.exe                     6868 Console                    1      7,152 K

可以用stop参数关闭所有nginx进程。

具体实现代码如下：

;; parse argument as one of the following
;; start|stop|reload|monitor|view

(define (start)
  (process "start.bat")
  )

(define (kill-process e)
  (if (regex "^nginx.exe" e)
      (begin
	(set 'pid ((regex "^nginx.exe[ ]+([0123456789]+)" e) 3))
	(exec (append "Taskkill /PID " pid " /F")))))

(define (handle-element e)
  (if (regex "^nginx.exe" e)
      (set 'h true)))

(define (check-nginx-process)
  (set 'cmd "tasklist /fi \"imagename eq nginx.exe\"")
  (set 'result (exec cmd))
  (set 'h nil)
  (dolist (str result)
	  (handle-element str))
  )

(define (kill-nginx-processes)
  (set 'cmd "tasklist /fi \"imagename eq nginx.exe\"")
  (set 'result (exec cmd))
  (set 'h nil)
  (dolist (str result)
	  (kill-process str))
  )

(define (view)
  (set 'cmd "tasklist /fi \"imagename eq nginx.exe\"")
  (set 'result (exec cmd))
  (dolist (str result)
	  (println str))
  )

(define (stop)
  (set 'cmd "tasklist /fi \"imagename eq nginx.exe\"")
  (set 'result (exec cmd))
  
  (check-nginx-process)
  (if h
      (begin
	(println "stoping nginx now ...")
	(exec "nginx -s stop")
	(check-nginx-process)
	(if h
	    (begin
	      (println "kill nginx processes ...")
	      (kill-nginx-processes)
	      )))
      (println "do nothing because nginx is stopped"))
  )

(define (reload)
  (exec "nginx -s reload")
  )

(define (monitor)
  (while true
	 (begin
	   (sleep 10000)
	   (println "check nginx process at 10 seconds")
	   (check-nginx-process)
	   (unless h
		   (begin
		     (println "nginx is stopped, start it now ...")
		     (start))
		   (println "nginx process is alive")
		   )
	   )
	 )
  )

(define (main-fun)
  (set 'action ((main-args) 2))
  (unless action
	  (begin
	    (println "please pass one of the arguments: start|stop|reload|monitor|view")
	    (exit)))
  (if (= "start" action)
     (start))

  (if (= "stop" action)
     (stop))

  (if (= "reload" action)
     (reload))

  (if (= "monitor" action)
     (monitor))

  (if (= "view" action)
      (view))
  )

(main-fun)
(exit)