Overview
Comment: | wip |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.6584-ck5 |
Files: | files | file ages | folders |
SHA1: |
84869b5b12b493b29f2003bb2613ad7b |
User & Date: | matt on 2021-05-16 23:26:24 |
Other Links: | branch diff | manifest | tags |
Context
2021-05-17
| ||
08:11 | Moved servermod and http-transportmod contents into rmtmod. Might move all server stuff back into servermod but will completely get rid of http-transportmod. check-in: 05dfd049da user: matt tags: v1.6584-ck5 | |
2021-05-16
| ||
23:26 | wip check-in: 84869b5b12 user: matt tags: v1.6584-ck5 | |
23:22 | wip check-in: 58cf8acf44 user: matt tags: v1.6584-ck5 | |
Changes
Modified http-transportmod.scm from [8ac0292156] to [832aeb3c32].
︙ | |||
664 665 666 667 668 669 670 | 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 | - + + + + + + + + + + + + + + + + + + + + + | (server-timeout (server:expiration-timeout)) (server-log-file (args:get-arg "-log"))) ;; always set when we are a server (let loop ((count 0) (server-state 'available) (bad-sync-count 0) (start-time (current-milliseconds))) |
︙ |
Modified rmtmod.scm from [93f26ad84f] to [328bbe0bf6].
︙ | |||
648 649 650 651 652 653 654 | 648 649 650 651 652 653 654 655 656 657 658 659 660 661 | - | (define (rmt:register-run keyvals runname state status user contour) ;; first register in main.db (thus the #f) (let* ((run-id (rmt:send-receive 'register-run #f (list keyvals runname state status user contour)))) ;; now register in the run db itself (rmt:send-receive 'register-run run-id (list keyvals runname state status user contour)) run-id)) |
︙ |