newlsip 检查磁盘分区使用情况

主要还是用df -k这个命令，然后将输出结果全部逐行解析，最后调用REST API，发送给服务器保存。

参考代码：

 

#!/usr/bin/newlisp



(set 'cur-path "/opt/detector")

(load (append cur-path "/config.lsp"))

(define (add-log msg)

  (println msg)

  (append-file (append cur-path "/disk.log") (append "\n" (string (now 480)) " "))

  (append-file (append cur-path "/disk.log") (append  ": " msg))

  )



(define (process-record record)

  (add-log record)

  (set 'l (parse record))

  (set 'type (last l))

  (set 'a (int (l 1)))

  (set 'b (int (l 2)))

  (if (and a b)

      (begin

       (set 'll (div b a))

       ;;  (add-log (format "%lld,%lld,%f" a b ll))                                                                                                                              

       (set 'data (format "ip=%s&hostName=%s&type=fs_%s&values=%lld|%f" ip host_name type (date-value) ll))

       (add-log data)

       (set 'r3 (post-url (format "http://%s/wind_tunnel/api/post/data" server) data))

       (add-log r3))))



(define (check-disk)

  (set 'r (exec "df -k"))

  (pop r)

  (dolist (x r)

    (process-record x)))



(check-disk)



(exit)