Reenable auxiliary stats for racket-evt
This commit is contained in:
parent
1381164d32
commit
dcd9368c67
|
@ -6,25 +6,25 @@
|
|||
(require logbook)
|
||||
(require racket/cmdline)
|
||||
|
||||
;; (define server-entry-name #f)
|
||||
;; (define server-entry-type #f)
|
||||
(define server-entry-name #f)
|
||||
(define server-entry-type #f)
|
||||
|
||||
;; (command-line #:program "plain-racket-server-evt.rkt"
|
||||
;; #:once-each
|
||||
;; ["--logbook-entry-name" name
|
||||
;; "set logbook entry name to use when recording run statistics"
|
||||
;; (set! server-entry-name name)]
|
||||
;; ["--logbook-entry-type" type
|
||||
;; "set logbook entry type to use"
|
||||
;; (set! server-entry-type type)])
|
||||
(command-line #:program "plain-racket-server-evt.rkt"
|
||||
#:once-each
|
||||
["--logbook-entry-name" name
|
||||
"set logbook entry name to use when recording run statistics"
|
||||
(set! server-entry-name name)]
|
||||
["--logbook-entry-type" type
|
||||
"set logbook entry type to use"
|
||||
(set! server-entry-type type)])
|
||||
|
||||
;; (when (not server-entry-type)
|
||||
;; (error 'plain-racket-server "Please supply the --logbook-entry-type command-line argument."))
|
||||
(when (not server-entry-type)
|
||||
(error 'plain-racket-server "Please supply the --logbook-entry-type command-line argument."))
|
||||
|
||||
;; (define L (default-logbook))
|
||||
;; (define E (logbook-entry L "minimart" server-entry-name server-entry-type))
|
||||
;; (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)))
|
||||
(define L (default-logbook))
|
||||
(define E (logbook-entry L "minimart" server-entry-name server-entry-type))
|
||||
(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)))
|
||||
|
||||
(define connection-count 0)
|
||||
(define first-connection-seen? #f)
|
||||
|
@ -38,10 +38,10 @@
|
|||
(printf "~a connections\n" connection-count)
|
||||
(flush-output)
|
||||
(define now (current-inexact-milliseconds))
|
||||
;; (write-logbook-datum! Tmem (list (/ now 1000.0) (current-memory-use)))
|
||||
;; (write-logbook-datum! Tconn (list (/ now 1000.0) connection-count))
|
||||
(write-logbook-datum! Tmem (list (/ now 1000.0) (current-memory-use)))
|
||||
(write-logbook-datum! Tconn (list (/ now 1000.0) connection-count))
|
||||
(when (and first-connection-seen? (zero? connection-count))
|
||||
;; (close-logbook L)
|
||||
(close-logbook L)
|
||||
(exit 0))
|
||||
(loop)))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue