Overview
| Comment: | add command to telemetry packet |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-telemetry |
| Files: | files | file ages | folders |
| SHA1: |
98f55eb235042a9bfb03955a17f26977 |
| User & Date: | bjbarcla on 2019-02-13 18:34:48 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-02-13
| ||
| 19:03 | ensured telemetry logging does not happen if no mention in megatest.config check-in: c4fac28c5c user: bjbarcla tags: v1.65-telemetry | |
| 18:34 | add command to telemetry packet check-in: 98f55eb235 user: bjbarcla tags: v1.65-telemetry | |
| 18:28 | added telemetry-daemon check-in: 610250e3f0 user: bjbarcla tags: v1.65-telemetry | |
Changes
Modified common.scm from [2f4d86191c] to [58f629c39e].
| ︙ | ︙ | |||
3089 3090 3091 3092 3093 3094 3095 |
(host (or (get-environment-variable "HOST") "unknown"))
(start (conc "[megatest "event"]"))
(toppath (or *toppath* "/dev/null"))
(payload-serialized
(base64:base64-encode
(z3:encode-buffer
(with-output-to-string (lambda () (pp payload))))))
| | | 3089 3090 3091 3092 3093 3094 3095 3096 3097 3098 3099 3100 3101 3102 3103 |
(host (or (get-environment-variable "HOST") "unknown"))
(start (conc "[megatest "event"]"))
(toppath (or *toppath* "/dev/null"))
(payload-serialized
(base64:base64-encode
(z3:encode-buffer
(with-output-to-string (lambda () (pp payload))))))
(msg (conc user":"host":"start":"(current-process-id)":"(car (argv))":"
toppath":"payload-serialized)))
(udp-send *common:telemetry-log-socket* msg)))))
(define (common:telemetry-log-close)
(when (and (eq? *common:telemetry-log-state* 'open) *common:telemetry-log-socket*)
(handle-exceptions
exn
|
| ︙ | ︙ |