932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
|
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
|
-
+
|
(let* ((run-id (args:get-arg-number "-run-id"))
(tl (launch:setup)))
(case (rmt:transport-mode)
((http)(http-transport:launch))
((tcp)
(debug:print 0 *default-log-port* "INFO: Running using tcp method.")
(if run-id
(tt:start-server tl (dbmod:run-id->dbfname run-id) api:dispatch-request)
(tt:start-server tl run-id (dbmod:run-id->dbfname run-id) api:dispatch-request)
(begin
(debug:print 0 *default-log-port* "ERROR: transport mode is tcp - -run-id is required.")
(exit 1))))
(else (debug:print 0 *default-log-port* "ERROR: rmt:transport-mode value not recognised "(rmt:transport-mode))))
(set! *didsomething* #t)))
;; The adjutant is a bit different, it does NOT run (launch:setup) as it is not necessarily tied to
|