244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
|
(debug:print 0 *default-log-port* "remote: " remote)
(if (not mainconn)
(begin
(rmt:open-main-connection remote apath)
(thread-sleep! 1)
(rmt:general-open-connection remote apath dbname))
;; we have a connection to main, ask for contact info for dbname
(let* ((res (rmt:send-receive mainconn "querykeyhere" 'get-server `(,apath ,dbname))))
(print "rmt:general-open-connection got res="res)
res))))
;;======================================================================
;; Defaults to
|
|
|
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
|
(debug:print 0 *default-log-port* "remote: " remote)
(if (not mainconn)
(begin
(rmt:open-main-connection remote apath)
(thread-sleep! 1)
(rmt:general-open-connection remote apath dbname))
;; we have a connection to main, ask for contact info for dbname
(let* ((res (rmt:send-receive 'get-server #f `(,apath ,dbname))))
(print "rmt:general-open-connection got res="res)
res))))
;;======================================================================
;; Defaults to
|