Overview
| Comment: | Missing change |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v1.81-multi-server |
| Files: | files | file ages | folders |
| SHA1: |
25cae1c008472f9aeedcaf5bfe488d8e |
| User & Date: | mrwellan on 2024-07-03 19:08:57 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-07-03
| ||
| 19:08 | Missing change Leaf check-in: 25cae1c008 user: mrwellan tags: v1.81-multi-server | |
| 19:06 | Multi-servers working. Needs polish but the machine didn't overload on > 10 parallel runs of sixtyfivek check-in: 16d75bb8f1 user: matt tags: v1.81-multi-server | |
Changes
Modified tcp-transportmod.scm from [a9eba46ae1] to [1ca825cede].
| ︙ | ︙ | |||
755 756 757 758 759 760 761 |
(lambda ()
(print "SERVER STARTED: "host":"port" AT "(current-seconds)" server-id: "serv-id" pid: "(current-process-id)" dbfname: "dbfname)))
(let loop ((count 0))
(if (not (file-exists? servinf))
(begin
(debug:print 0 *default-log-port* "WARNING: file "servinf" was created but it doesn't show up on disk! We'll try again.")
(thread-sleep! 1)
| | > | 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 |
(lambda ()
(print "SERVER STARTED: "host":"port" AT "(current-seconds)" server-id: "serv-id" pid: "(current-process-id)" dbfname: "dbfname)))
(let loop ((count 0))
(if (not (file-exists? servinf))
(begin
(debug:print 0 *default-log-port* "WARNING: file "servinf" was created but it doesn't show up on disk! We'll try again.")
(thread-sleep! 1)
(if (> count 10)
(debug:print 0 *default-log-port* "WARNING: file "servinf" was not created.")
(loop (+ count 1))))))
serv-id))
;; find valid server
;; get servers listed, last part of name must match :<dbfname>
;; if more than one, wait one second and look again
;; future: ping oldest, if alive remove other :<dbfname> files
|
| ︙ | ︙ |