diff --git a/echo-client.rkt b/echo-client.rkt index 1c55853..d043624 100644 --- a/echo-client.rkt +++ b/echo-client.rkt @@ -14,7 +14,7 @@ (set! server-entry-name name)]) (define L (default-logbook)) -(define E (standard-logbook-entry L "minimart" "external-latency" #:name server-entry-name)) +(define E (logbook-entry L "minimart" server-entry-name "external-latency")) (define Tgrowth (logbook-table E "client-grow-times" #:column-spec '(initial-count secs/connection connections/sec diff --git a/echo-server.rkt b/echo-server.rkt index 16d7f88..3ad4ea5 100644 --- a/echo-server.rkt +++ b/echo-server.rkt @@ -17,7 +17,7 @@ (set! server-entry-name name)]) (define L (default-logbook)) -(define E (standard-logbook-entry L "minimart" "external-latency" #:name server-entry-name)) +(define E (logbook-entry L "minimart" server-entry-name "external-latency")) (define Tmem (logbook-table E "server-memory-use" #:column-spec '(time-seconds memory-use))) (define Tconn (logbook-table E "server-connections" #:column-spec '(time-seconds connection-count))) diff --git a/external-latency.rkt b/external-latency.rkt index 65c579a..c5a601a 100644 --- a/external-latency.rkt +++ b/external-latency.rkt @@ -4,7 +4,9 @@ (require racket/system) (require logbook) -(define entry-name (standard-logbook-entry-name)) +(define L (default-logbook)) +(define E (standard-logbook-entry L "minimart" "external-latency")) +(define entry-name (logbook-entry-name E)) (define (start-bg command) (match-define (list #f #f pid #f control)