Overview
| Comment: | removed default setting of rmt:transport-mode in dashboard to tcp |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
bd0c02e52d3c9947847c56d4d0c3b150 |
| User & Date: | mmgraham on 2024-05-15 16:40:46 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-05-17
| ||
| 11:19 | Corrected dashboard sync direction and tmpadj from /dashboard to nothing check-in: df20d307c1 user: mmgraham tags: v1.80 | |
|
2024-05-15
| ||
| 16:40 | removed default setting of rmt:transport-mode in dashboard to tcp check-in: bd0c02e52d user: mmgraham tags: v1.80 | |
|
2024-05-14
| ||
| 16:46 | Changed version to 1.8032 check-in: 72cba60ca9 user: mmgraham tags: v1.80, v1.8032 | |
Changes
Modified dashboard.scm from [6ea3e152b3] to [023ac3626d].
| ︙ | ︙ | |||
70 71 72 73 74 75 76 77 78 79 80 81 82 83 |
(include "megatest-fossil-hash.scm")
(include "vg_records.scm")
;; set some parameters here - these need to be put in something that can be loaded from other
;; executables such as dashboard and mtutil
;;
(include "dashboard-transport-mode.scm")
(dbfile:db-init-proc db:initialize-main-db)
(set! rmtmod:send-receive rmt:send-receive)
(define help (conc
"Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest version " megatest-version
" license GPL, Copyright (C) Matt Welland 2012-2017
| > | 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 |
(include "megatest-fossil-hash.scm")
(include "vg_records.scm")
;; set some parameters here - these need to be put in something that can be loaded from other
;; executables such as dashboard and mtutil
;;
(include "dashboard-transport-mode.scm")
(dbfile:db-init-proc db:initialize-main-db)
(set! rmtmod:send-receive rmt:send-receive)
(define help (conc
"Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest version " megatest-version
" license GPL, Copyright (C) Matt Welland 2012-2017
|
| ︙ | ︙ | |||
116 117 118 119 120 121 122 |
)
args:arg-hash
0))
(if (args:get-arg "-mode")
(let* ((mode (string->symbol (args:get-arg "-mode"))))
(rmt:transport-mode mode))
| < | > | | 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 |
)
args:arg-hash
0))
(if (args:get-arg "-mode")
(let* ((mode (string->symbol (args:get-arg "-mode"))))
(rmt:transport-mode mode))
)
(if (args:get-arg "-test") ;; need to use tcp for test control panel -- Why? - Martin
(rmt:transport-mode 'tcp))
;; RA => Might require revert for filters
;; create a watch dog to move changes from lt/.db/*.db to megatest.db
;;
;;;(if (file-write-access? (conc *toppath* "/megatest.db"))
;;(debug:print-info 13 *default-log-port* "Before common:watchdog spawn")
|
| ︙ | ︙ |