Overview
| Comment: | Added comment re. hostname fail |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
e94161ccb3b4ccb86cc2ad69f51ba752 |
| User & Date: | matt on 2015-04-24 08:48:26 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-04-28
| ||
| 23:43 | Removed call to rmt:update-db-stats, it was causing a problem in waiver processing check-in: 27c316be9d user: matt tags: v1.60 | |
|
2015-04-24
| ||
| 08:48 | Added comment re. hostname fail check-in: e94161ccb3 user: matt tags: v1.60 | |
|
2015-04-23
| ||
| 10:21 | Bumped wait for launched jobs to 10hours check-in: 21d29f9f89 user: mrwellan tags: v1.60 | |
Changes
Modified http-transport.scm from [e2a8a6ff8e] to [bbdcef7659].
| ︙ | ︙ | |||
51 52 53 54 55 56 57 58 59 60 61 62 63 64 |
(define (server:get-best-guess-address hostname)
(let ((res #f))
(for-each
(lambda (adr)
(if (not (eq? (u8vector-ref adr 0) 127))
(set! res adr)))
(vector->list (hostinfo-addresses (hostname->hostinfo hostname))))
(string-intersperse
(map number->string
(u8vector->list
(if res res (hostname->ip hostname)))) ".")))
(define (http-transport:run hostn run-id server-id)
| > | 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 |
(define (server:get-best-guess-address hostname)
(let ((res #f))
(for-each
(lambda (adr)
(if (not (eq? (u8vector-ref adr 0) 127))
(set! res adr)))
;; NOTE: This can fail when there is no mention of the host in /etc/hosts. FIXME
(vector->list (hostinfo-addresses (hostname->hostinfo hostname))))
(string-intersperse
(map number->string
(u8vector->list
(if res res (hostname->ip hostname)))) ".")))
(define (http-transport:run hostn run-id server-id)
|
| ︙ | ︙ |