Overview
| Comment: | should be resetting the connection struct when connection is failed to make |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
333f542a2e90c0628c0a853d4583b890 |
| User & Date: | matt on 2017-03-28 01:01:39 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-03-28
| ||
| 01:50 | Bits of refactoring to simplify rmt.scm check-in: 2158d4a3b0 user: matt tags: v1.64 | |
| 01:01 | should be resetting the connection struct when connection is failed to make check-in: 333f542a2e user: matt tags: v1.64 | |
| 00:35 | Improved reliability but now have issue with connection. check-in: 45da129709 user: matt tags: v1.64 | |
Changes
Modified launch.scm from [57b9002fc8] to [057f425cdb].
| ︙ | ︙ | |||
478 479 480 481 482 483 484 | (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) | > | > > | 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)) )) (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)) |
| ︙ | ︙ |