84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
(let* ((curr-host (get-host-name))
(target-host (configf:lookup *configdat* "server" "homehost" ))
(logfile (conc *toppath* "/db/" run-id ".log"))
(cmdln (conc (common:get-megatest-exe)
" -server " (or target-host "-") " -run-id " run-id " >> " logfile " 2>&1 &")))
(debug:print 0 "INFO: Starting server (" cmdln ") as none running ...")
(push-directory *toppath*)
(if (and target-host (not (equal? target-host curr-host)))
(begin
(debug:print-info 0 "Starting server on " target-host ", logfile is " logfile)
(setenv "TARGETHOST" target-host)
(setenv "TARGETHOST_LOGF" logfile)
(system (conc "nbfake " cmdln)))
(system cmdln))
(pop-directory)))
|
>
|
|
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
(let* ((curr-host (get-host-name))
(target-host (configf:lookup *configdat* "server" "homehost" ))
(logfile (conc *toppath* "/db/" run-id ".log"))
(cmdln (conc (common:get-megatest-exe)
" -server " (or target-host "-") " -run-id " run-id " >> " logfile " 2>&1 &")))
(debug:print 0 "INFO: Starting server (" cmdln ") as none running ...")
(push-directory *toppath*)
;; host.domain.tld match host?
(if (and target-host (not (string-match (conc "("curr-host "|" curr-host"\\..*)") target-host)))
(begin
(debug:print-info 0 "Starting server on " target-host ", logfile is " logfile)
(setenv "TARGETHOST" target-host)
(setenv "TARGETHOST_LOGF" logfile)
(system (conc "nbfake " cmdln)))
(system cmdln))
(pop-directory)))
|