diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2020-09-14 14:25:23 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-09-14 14:32:12 +0200 |
| commit | cf11b73db00678b45b70108768138d0fb74d9506 (patch) | |
| tree | 998e8ce315d63ee373a4c50fc1b21a74f6287dc3 /bin | |
| parent | 43ed85479fda05bf966328ff2a60a3c33eabca38 (diff) | |
| download | cuirass-cf11b73db00678b45b70108768138d0fb74d9506.tar cuirass-cf11b73db00678b45b70108768138d0fb74d9506.tar.gz | |
Add metrics support.
* Makefile.am: Add "upgrade-11.sql", "chart.js" and "metrics.js".
* bin/cuirass.in (main): Add 'metrics fiber.
* src/cuirass/http.scm (%file-white-list): Add "js/chart.js".
(url-handler): Add "/metrics" route.
* src/cuirass/metrics.scm: New file.
* src/cuirass/templates.scm (html-page): Add a "Global metrics" sub-menu to
"Status" dropdown menu.
(make-line-chart, global-metrics-content): New procedures.
* src/schema.sql (Metrics): New table.
* src/sql/upgrade-11.sql: New file.
* src/static/js/chart.js: New file.
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/cuirass.in | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/bin/cuirass.in b/bin/cuirass.in index c4bcfaa..9c856fc 100644 --- a/bin/cuirass.in +++ b/bin/cuirass.in @@ -29,6 +29,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (use-modules (cuirass) (cuirass ui) (cuirass logging) + (cuirass metrics) (cuirass utils) (guix ui) ((guix build utils) #:select (mkdir-p)) @@ -183,11 +184,20 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (lambda () (while #t (process-specs (db-get-specifications)) - (log-message "next evaluation in ~a seconds" interval) + (log-message + "next evaluation in ~a seconds" interval) (sleep interval))))) (spawn-fiber (essential-task + 'metrics exit-channel + (lambda () + (while #t + (db-update-metrics) + (sleep 3600))))) + + (spawn-fiber + (essential-task 'monitor exit-channel (lambda () (while #t |