graphite-links

(ql:quickload "cl-graphite")
(ql:quickload "cl-arrows")

(use-package :cl-graphite)
(use-package :cl-arrows)

(cl-graphite:with-server "https://graphite.cat.pdx.edu:8080"
  (write-string (cl-graphite::redmine-link-list
                  ("Graphite server health"
                   ((:target (-> "carbon.agents.*.cpuUsage"
                                 (scale 1500)
                                 (alpha 0.3)
                                 (alias "Cpu usage with silly scaling")))
                    (:target (-> "carbon.agents.*.updateOperations"
                                 (alpha 0.5)
                                 (color "gray")))
                    (:target (-> "carbon.agents.*.committedPoints"
                                 (alpha 0.5)
                                 (color "blue")))
                    (:target (-> "carbon.agents.*.cache.size"
                                 (alpha 0.5)
                                 (color "orange")))
                    (:target (-> "carbon.agents.*.metricsReceived"
                                 (color "green")))
                    (:target (-> "carbon.agents.*.cache.overflow"
                                 (color "red")))
                    (:y-max 175000)
                    (:width 600)
                    (:height 400)
                    (:from "-7days")))
                  ("All boxes short-term load"
                   ((:target (-> "collectd.*.load.load.shortterm"
                                 (exclude "(ece_pdx_edu|cat_pdx_edu)")
                                 (most-deviant 10)
                                 (sort-by-maxima)))
                    (:from "-1hours")
                    (:width 800)
                    (:height 1400)
                    (:line-mode :connected)
                    (:hide-legend nil)))
                  ("Boxes under constant load"
                   ((:target (-> "collectd.*_pdx_edu.load.load.shortterm"
                                 (average-above 1)
                                 (sort-by-maxima)))
                    (:width 600)
                    (:height 400)
                    (:last "-1days")
                    (:line-mode :connected)
                    (:hide-legend nil)))
                  ("Boxes with the most outbound network traffic"
                   ((:target (-> "collectd.*_pdx_edu.interface-*.if_packets.tx"
                                 (highest-current 10)
                                 (sort-by-maxima)))
                    (:width 800)
                    (:height 800)
                    (:hide-legend nil)))
                  ("Boxes with several blocked processes"
                   ((:target (-> "collectd.*.processes.ps_state-blocked"
                                 (current-above 2)
                                 (sort-by-maxima)))
                    (:width 600)
                    (:height 400)
                    (:line-mode :connected)
                    (:hide-legend nil)
                    (:from "-1hours")))
                  ("Crazy health check"
                   ((:target (-> "collectd.*.entropy.*"))
                    (:width 600)
                    (:height 400)
                    (:from "-7days")))
                  ("IRC Health"
                   ((:target "irc.connected_clients")
                    (:width 600)
                    (:height 400)
                    (:line-mode :connected)
                    (:hide-legend nil)
                    (:from "-7days")))
                  ("Swapping"
                   ((:target (-> "collectd.*.swap.swap-used"
                                 (highest-current 10)
                                 (sort-by-maxima)
                                 (current-above 50)))
                    (:line-mode :connected)
                    (:width 600)
                    (:height 400)
                    (:hide-legend nil))))))
(exit)