Overview
| Comment: | updated server start message |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80-revolution |
| Files: | files | file ages | folders |
| SHA1: |
624848550598a8b653f38c158db8de30 |
| User & Date: | mmgraham on 2024-01-18 23:10:05 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-01-19
| ||
| 08:53 | fixed-fork check-in: 1e9f9c66b3 user: mrwellan tags: v1.80-revolution | |
|
2024-01-18
| ||
| 23:10 | updated server start message check-in: 6248485505 user: mmgraham tags: v1.80-revolution | |
| 23:07 | updated formatting for server stats check-in: 635eff7ce3 user: mmgraham tags: v1.80-revolution | |
Changes
Modified megatest.scm from [02fbabd339] to [5f91080744].
| ︙ | ︙ | |||
970 971 972 973 974 975 976 |
(let* (;; (run-id (args:get-arg "-run-id"))
(dbfname (args:get-arg "-db"))
(tl (launch:setup))
(keys (keys:config-get-fields *configdat*)))
(case (rmt:transport-mode)
((tcp)
(let* ((timeout (server:expiration-timeout)))
| | | 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 |
(let* (;; (run-id (args:get-arg "-run-id"))
(dbfname (args:get-arg "-db"))
(tl (launch:setup))
(keys (keys:config-get-fields *configdat*)))
(case (rmt:transport-mode)
((tcp)
(let* ((timeout (server:expiration-timeout)))
(debug:print 0 *default-log-port* "INFO: megatest -server starting on " (get-host-name) " for " dbfname " using tcp method with timeout of "timeout)
(tt-server-timeout-param timeout)
(thread-start! (make-thread api:print-db-stats "print-db-stats"))
(if dbfname
(tt:start-server tl #f dbfname api:tcp-dispatch-request-make-handler keys)
(begin
(debug:print 0 *default-log-port* "ERROR: transport mode is tcp - -db is required.")
(exit 1)))))
|
| ︙ | ︙ |