476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
|
ping-res)
;; (begin ;; let ((url (http-transport:server-dat-make-url start-res)))
(begin
(remote-conndat-set! *runremote* start-res)
;; (remote-server-url-set! *runremote* url)
;; (if (server:ping url)
(debug:print-info 0 *default-log-port* "connected to " host ":" port " using CMDINFO data."))
;; (begin
;; (debug:print-info 0 *default-log-port* "have CMDINFO data but failed to connect to " url)
;; (remote-conndat-set! *runremote* #f)
;; (remote-server-url-set! *runremote* #f))))
(debug:print-info 0 *default-log-port* "received " host ":" port " for url but could not connect.")
))
(begin
(debug:print-info 0 *default-log-port* (if host-port
(conc "received invalid host-port information " host-port)
"no host-port information received"))
;; potential for bad situation if simultaneous starting of hundreds of jobs on servers, set needcare.
(set! needcare #t)))
|
|
|
|
<
<
|
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
|
ping-res)
;; (begin ;; let ((url (http-transport:server-dat-make-url start-res)))
(begin
(remote-conndat-set! *runremote* start-res)
;; (remote-server-url-set! *runremote* url)
;; (if (server:ping url)
(debug:print-info 0 *default-log-port* "connected to " host ":" port " using CMDINFO data."))
(begin
(debug:print-info 0 *default-log-port* "have CMDINFO data but failed to connect to " host ":" port)
(remote-conndat-set! *runremote* #f))
))
(begin
(debug:print-info 0 *default-log-port* (if host-port
(conc "received invalid host-port information " host-port)
"no host-port information received"))
;; potential for bad situation if simultaneous starting of hundreds of jobs on servers, set needcare.
(set! needcare #t)))
|