diff options
author | Christopher Baines <mail@cbaines.net> | 2023-05-05 19:19:31 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-05-05 20:17:52 +0100 |
commit | 093af3f90b986cb3f3dc387e307b6e08b09a1c9f (patch) | |
tree | f7866120ca7130062ebac798cfbc6813210178ab /guix-build-coordinator/agent-messaging | |
parent | ab4b35fe4cd998a22a6c678628ed23c28b2e3a50 (diff) | |
download | build-coordinator-093af3f90b986cb3f3dc387e307b6e08b09a1c9f.tar build-coordinator-093af3f90b986cb3f3dc387e307b6e08b09a1c9f.tar.gz |
Include system uptime in the agent status information
As I've found this useful in spotting systems which have problems.
Diffstat (limited to 'guix-build-coordinator/agent-messaging')
-rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 6 | ||||
-rw-r--r-- | guix-build-coordinator/agent-messaging/http/server.scm | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index a76fe90..d3e4fcd 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -247,7 +247,8 @@ . args) (apply - (lambda* (status #:key 1min-load-average (log default-log) + (lambda* (status #:key 1min-load-average system-uptime + (log default-log) initial-status-update?) (coordinator-http-request log @@ -260,6 +261,9 @@ `((load_average . (("1" . ,1min-load-average)))) '()) + ,@(if system-uptime + `((system_uptime . ,system-uptime)) + '()) ,@(if initial-status-update? `((initial_status_update . #t)) '())))) diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm index d2f4e2d..0ca97a6 100644 --- a/guix-build-coordinator/agent-messaging/http/server.scm +++ b/guix-build-coordinator/agent-messaging/http/server.scm @@ -260,12 +260,14 @@ port. Also, the port used can be changed by passing the --port option.\n" (1min-load-average (and=> (assoc-ref json-body "load_average") (lambda (load-average) (assoc-ref load-average "1")))) + (system-uptime (assoc-ref json-body "system_uptime")) (processor-count (assoc-ref json-body "processor_count")) (initial-status-update (eq? #t (assoc-ref json-body "initial_status_update")))) (update-agent-status build-coordinator uuid status 1min-load-average + system-uptime processor-count #:initial-status-update? initial-status-update)) |