newlsip 检查磁盘分区使用情况

时间：2023-03-09 07:12:43
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)

相关文章