blob: 77c99577079e42eb4e73360d009892357ff6a395 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
;;; my-uptime.el --- calculates uptime for SLOs
;;; Commentary:
;; Calculate how much downtime is allowed for different period of time
;; based on a given SLO.
;;; Code:
(defconst my-uptime/buffer-name "*slo-calculator*")
(defconst my-uptime/seconds-per-hour 3600
"Number of seconds in an hour.")
(defconst my-uptime/seconds-per-day (* my-uptime/seconds-per-hour 24)
"Number of seconds in a day.")
(defconst my-uptime/seconds-per-week (* my-uptime/seconds-per-day 7)
"Number of seconds in a week.")
(defconst my-uptime/seconds-per-month (* my-uptime/seconds-per-day 30)
"Number of seconds in a month.")
(defconst my-uptime/seconds-per-quarter (* my-uptime/seconds-per-month 3)
"Number of seconds in a quarter.")
(defconst my-uptime/seconds-per-year (* my-uptime/seconds-per-month 12)
"Number of seconds in a year.")
(defun my/uptime-is (slo)
"Return the amount of allowed downtime for a given SLO."
(interactive "nSLO:")
(let* ((slo (cond ((< slo 0) 0)
((> slo 100) 100)
(t slo)))
(allowed (/ (- (* 100 100) (* slo 100.0)) (* 100 100))))
(my/uptime--message allowed slo)))
(defun my/uptime--message (seconds slo)
"Insert buffer text with allowed downtime based on SECONDS (derived from SLO)."
(let ((inhibit-read-only t)
(buffer-undo-list t))
(pop-to-buffer my-uptime/buffer-name)
(erase-buffer)
(insert (format "calculated allowed downtime for %s%% availability.\n" slo))
(insert
(format "daily: %s\n" (format-seconds "%H %M %S" (seconds-to-time (* my-uptime/seconds-per-day seconds)))))
(insert
(format "weekly: %s\n" (format-seconds "%H %M %S" (seconds-to-time (* my-uptime/seconds-per-week seconds)))))
(insert
(format "monthly: %s\n" (format-seconds "%D %H %M %S" (seconds-to-time (* my-uptime/seconds-per-month seconds)))))
(insert
(format "quarterly: %s\n" (format-seconds "%D %H %M %S" (seconds-to-time (* my-uptime/seconds-per-quarter seconds)))))
(insert
(format "yearly: %s\n" (format-seconds "%D %H %M %S" (seconds-to-time (* my-uptime/seconds-per-year seconds))))))
(special-mode))
(provide 'my-uptime)
;;; my-uptime.el ends here
|
