Overview
Comment: | Fixed server lock. Noticed sync running from dashboard only - seems wrong. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.80 |
Files: | files | file ages | folders |
SHA1: |
ac41427eb2f8bfe8ff6dfec886e89be5 |
User & Date: | matt on 2023-05-13 00:00:51 |
Other Links: | branch diff | manifest | tags |
Context
2023-05-13
| ||
00:27 | Turned off sync when direct-to-db mode 'none is used check-in: 49befe770d user: matt tags: v1.80 | |
00:00 | Fixed server lock. Noticed sync running from dashboard only - seems wrong. check-in: ac41427eb2 user: matt tags: v1.80 | |
2023-05-11
| ||
12:12 | Gate running the megatest syncer by existance of lock file. check-in: 12c06b6095 user: matt tags: v1.80 | |
Changes
Modified dbfile.scm from [27150153ec] to [5aff2586ce].
︙ | |||
539 540 541 542 543 544 545 | 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 | - - + + - - - + - + + + + + + + + + + + + + + + + + + + + + | (sqlite3:with-transaction db (lambda () (condition-case (let* ((curr-val (db:no-sync-get/default db keyname #f))) (if curr-val (match (db:extract-time-identifier curr-val) ;; result->timestamp, identifier |
︙ |
Modified tcp-transportmod.scm from [f16326ea6c] to [8dca985e36].
︙ | |||
515 516 517 518 519 520 521 | 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 | - + - - - - + + + + - + - | (let* ((servers (tt:get-server-info-sorted ttdat dbfname)) (ok (cond ((null? servers) #f) ;; not ok ((equal? (list-ref (car servers) 6) ;; compare the servinfofile (tt-servinf-file ttdat)) (let* ((res (if db-locked-in #t |
︙ |