478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
|
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
|
+
-
+
+
+
|
(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)
(set! *runremote* #f))
(remote-conndat-set! *runremote* #f))
;; (remote-conndat-set! *runremote* #f))
))
(begin
(set! *runremote* #f)
(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)))
(begin
(set! *runremote* #f)
(debug:print-info 0 *default-log-port* "received no homehost information. Please report this to support as it should not happen.")
(set! needcare #t)))))
(if needcare ;; due to very slow NFS we will do a brute force mkdir to ensure that the directory inode it truly available on this host
(let ((logdir (conc top-path "/logs"))) ;; we'll try to create this directory
(handle-exceptions
exn
(debug:print 0 *default-log-port* "Failed to create directory " logdir " expect problems, message: " ((condition-property-accessor 'exn 'message) exn))
|