Overview
| Comment: | fixed bad call |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v2.001 |
| Files: | files | file ages | folders |
| SHA1: |
7d2dde810d4c95d8bcf293dd7ea09b5e |
| User & Date: | matt on 2021-12-18 14:47:00 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-12-18
| ||
| 17:53 | fixed bad call check-in: 90f865fbd4 user: matt tags: v2.001 | |
| 14:47 | fixed bad call check-in: 7d2dde810d user: matt tags: v2.001 | |
| 14:33 | wip check-in: c74886dad6 user: matt tags: v2.001 | |
Changes
Modified rmtmod.scm from [4f98cc6cc5] to [bd4f6715fb].
| ︙ | ︙ | |||
2230 2231 2232 2233 2234 2235 2236 | (servdat-status-set! *server-info* 'have-interface-and-db) (let* ((serv-info (rmt:get-server-info *toppath* dbname))) (match serv-info ((host port servkey pid ipaddr apath dbpath) (if (not (server-ready? host port servkey)) (begin (debug:print-info 0 *default-log-port* "Server registered but not alive. Removing and trying again.") | | | 2230 2231 2232 2233 2234 2235 2236 2237 2238 2239 2240 2241 2242 2243 2244 | (servdat-status-set! *server-info* 'have-interface-and-db) (let* ((serv-info (rmt:get-server-info *toppath* dbname))) (match serv-info ((host port servkey pid ipaddr apath dbpath) (if (not (server-ready? host port servkey)) (begin (debug:print-info 0 *default-log-port* "Server registered but not alive. Removing and trying again.") (rmt:deregister-server remdat apath host port servkey dbpath) ;; servkey pid ipaddr apath dbpath) (loop (+ count 1) bad-sync-count start-time)))) (else (debug:print 0 *default-log-port* "We are not the server for "dbname", exiting. Server info is: "serv-info) (exit))))))) (debug:print 0 *default-log-port* "SERVER: running, db "dbname" opened, megatest version: " (common:get-full-version)) |
| ︙ | ︙ |