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 |
(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)))
| | > > > > > > > > > > > > > > > > > > > > | 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)))
;; Use this opportunity to sync the tmp db to megatest.db NOTE: This conflicts with the watchdog syncing?
(if (not *dbstruct-db* )
(let ((watchdog (bdat-watchdog *bdat*)))
(debug:print 0 *default-log-port* "SERVER: dbprep")
(db:setup dbname) ;; sets *dbstruct-db* as side effect
;; NOW REGISTER THE SERVER in main.db
(debug:print 0 *default-log-port* "SERVER: running, megatest version: " (common:get-full-version)) ;; NOTE: the server is NOT yet marked as running in the log. We do that in the keep-running routine.
(if watchdog
(if (not (member (thread-state watchdog) '(ready running blocked sleeping dead)))
(begin
(debug:print-info 0 *default-log-port* "Starting watchdog thread (in state "(thread-state watchdog)")")
(thread-start! watchdog)))
(debug:print 0 *default-log-port* "ERROR: *watchdog* not setup, cannot start it."))))
|
| ︙ | ︙ |
Modified rmtmod.scm from [93f26ad84f] to [328bbe0bf6].
| ︙ | ︙ | |||
648 649 650 651 652 653 654 |
(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))
| < | 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))
(define (rmt:get-run-name-from-id run-id)
(rmt:send-receive 'get-run-name-from-id run-id (list run-id)))
(define (rmt:delete-run run-id)
(rmt:send-receive 'delete-run run-id (list run-id)))
(define (rmt:update-run-stats run-id stats)
|
| ︙ | ︙ |