Overview
| Comment: | Missed a conversion from setup-for-run to launch:setup-for-run |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
36ce1881c0bf9ed6789431ec50538899 |
| User & Date: | matt on 2014-07-23 00:59:54 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-07-23
| ||
| 09:59 | Several fixes for merge caused issues. made loadrunner more agressive check-in: d55a2c061d user: mrwellan tags: v1.60 | |
| 00:59 | Missed a conversion from setup-for-run to launch:setup-for-run check-in: 36ce1881c0 user: matt tags: v1.60 | |
| 00:54 | Added launch to uses in server.scm, more tweaks to fdktestqa configs check-in: 89ac157423 user: matt tags: v1.60 | |
Changes
Modified server.scm from [52a8bf55cd] to [02580cc00b].
| ︙ | ︙ | |||
147 148 149 150 151 152 153 | ;; called in megatest.scm, host-port is string hostname:port ;; (define (server:ping run-id host:port) (let* ((host-port (let ((slst (string-split host:port ":"))) (if (eq? (length slst) 2) (list (car slst)(string->number (cadr slst))) #f))) | | | 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 |
;; called in megatest.scm, host-port is string hostname:port
;;
(define (server:ping run-id host:port)
(let* ((host-port (let ((slst (string-split host:port ":")))
(if (eq? (length slst) 2)
(list (car slst)(string->number (cadr slst)))
#f)))
(toppath (launch:setup-for-run))
(server-db-dat (if (not host-port)(open-run-close tasks:get-server tasks:open-db run-id) #f)))
(if (not run-id)
(begin
(debug:print 0 "ERROR: must specify run-id when doing ping, -run-id n")
(print "ERROR: No run-id")
(exit 1))
(if (and (not host-port)
|
| ︙ | ︙ |