1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
|
;; Server? Start up here.
;;
(if (args:get-arg "-server")
(if (not (args:get-arg "-db"))
(debug:print 0 *default-log-port* "ERROR: -db required to start server")
(let ((tl (launch:setup))
(dbname (args:get-arg "-db"))) ;; transport-type (string->symbol (or (args:get-arg "-transport") "http"))))
(rmt:launch dbname)
(set! *didsomething* #t))))
;; The adjutant is a bit different, it does NOT run (launch:setup) as it is not necessarily tied to
;; a specific Megatest area. Detail are being hashed out and this may change.
;;
(if (args:get-arg "-adjutant")
(begin
|
|
|
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
|
;; Server? Start up here.
;;
(if (args:get-arg "-server")
(if (not (args:get-arg "-db"))
(debug:print 0 *default-log-port* "ERROR: -db required to start server")
(let ((tl (launch:setup))
(dbname (args:get-arg "-db"))) ;; transport-type (string->symbol (or (args:get-arg "-transport") "http"))))
(rmt:server-launch dbname)
(set! *didsomething* #t))))
;; The adjutant is a bit different, it does NOT run (launch:setup) as it is not necessarily tied to
;; a specific Megatest area. Detail are being hashed out and this may change.
;;
(if (args:get-arg "-adjutant")
(begin
|