Overview
| Comment: | made the ERROR: dat= message a level 2, to avoid test failures |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.70 |
| Files: | files | file ages | folders |
| SHA1: |
acce1f234a250022a02c307ab1af48eb |
| User & Date: | mmgraham on 2023-07-17 19:26:39 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-07-20
| ||
| 16:11 | Added code to remove server files when stop-the-train is found. check-in: 196200bc41 user: mmgraham tags: v1.70 | |
|
2023-07-17
| ||
| 19:26 | made the ERROR: dat= message a level 2, to avoid test failures check-in: acce1f234a user: mmgraham tags: v1.70 | |
|
2023-06-27
| ||
| 18:45 | cherry picked 8ff6166610. Fixes the quote problem in PATH check-in: 2438268e0b user: mmgraham tags: v1.70, v1.7014 | |
Changes
Modified rmt.scm from [8bfadce4ad] to [cecfc0934e].
| ︙ | ︙ | |||
333 334 335 336 337 338 339 |
(debug:print-info 13 *default-log-port* "rmt:send-receive, case 9. conninfo=" conninfo " dat=" dat " runremote = " runremote)
(mutex-unlock! *rmt-mutex*)
(if success ;; success only tells us that the transport was
;; successful, have to examine the data to see if
;; there was a detected issue at the other end
(extras-transport-succeded *default-log-port* *rmt-mutex* attemptnum runremote res params rid cmd)
(begin
| | | 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 |
(debug:print-info 13 *default-log-port* "rmt:send-receive, case 9. conninfo=" conninfo " dat=" dat " runremote = " runremote)
(mutex-unlock! *rmt-mutex*)
(if success ;; success only tells us that the transport was
;; successful, have to examine the data to see if
;; there was a detected issue at the other end
(extras-transport-succeded *default-log-port* *rmt-mutex* attemptnum runremote res params rid cmd)
(begin
(debug:print-error 2 *default-log-port* " dat=" dat)
(extras-transport-failed *default-log-port* *rmt-mutex* attemptnum runremote cmd rid params))
)))
(define (rmt:print-db-stats)
(let ((fmtstr "~40a~7-d~9-d~20,2-f")) ;; "~20,2-f"
(debug:print 18 *default-log-port* "DB Stats\n========")
(debug:print 18 *default-log-port* (format #f "~40a~8a~10a~10a" "Cmd" "Count" "TotTime" "Avg"))
|
| ︙ | ︙ |