Overview
| Comment: | Better message |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
c3879943f01decf347b216ac27ab95ad |
| User & Date: | mrwellan on 2023-03-02 19:19:57 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-03-02
| ||
| 21:32 | Improve some of the logic around servers check-in: 87813c75d2 user: mrwellan tags: v1.80 | |
| 19:19 | Better message check-in: c3879943f0 user: mrwellan tags: v1.80 | |
| 19:12 | Locking of db check-in: 494cb9b035 user: mrwellan tags: v1.80 | |
Changes
Modified tcp-transportmod.scm from [0f2615acc5] to [99ffeec5af].
| ︙ | ︙ | |||
377 378 379 380 381 382 383 | (debug:print-info 0 *default-log-port* "Keep running, I'm the top server.") (if db-locked-in #t (let* ((lockinfo (dbfile:with-no-sync-db nosyncdbpath (lambda (db) (db:no-sync-get-lock db dbfname)))) (success (car lockinfo))) | | > > > > > > | 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 | (debug:print-info 0 *default-log-port* "Keep running, I'm the top server.") (if db-locked-in #t (let* ((lockinfo (dbfile:with-no-sync-db nosyncdbpath (lambda (db) (db:no-sync-get-lock db dbfname)))) (success (car lockinfo))) (if success (begin (debug:print 0 *default-log-port* "Got server lock for "dbfname) #t) (begin (debug:print 0 *default-log-port* "Failed to get server lock for "dbfname) #f))))) (else (debug:print-info 0 *default-log-port* "I'm not the lead server: "servers) (let* ((leadsrv (car servers))) (match leadsrv ((host port startseconds server-id pid dbfname servinfofile) (if (tt:ping host port server-id) #f ;; not the server, but all good, want to exit |
| ︙ | ︙ |