Overview
| Comment: | resurrected server:get-best-guess-address and moved it to server.scm |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-refactoring |
| Files: | files | file ages | folders |
| SHA1: |
81ccca92544d056ab0e3f4ce4dede0e6 |
| User & Date: | matt on 2017-05-07 07:42:10 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-05-07
| ||
| 08:49 | Merged in v1.64 and ran tests. All good. Closed-Leaf check-in: dec8d412cd user: matt tags: v1.65-refactoring | |
| 07:42 | resurrected server:get-best-guess-address and moved it to server.scm check-in: 81ccca9254 user: matt tags: v1.65-refactoring | |
|
2017-05-05
| ||
| 10:54 | Cleanup and refactor (currently broken) check-in: 10fff071cb user: mrwellan tags: v1.65-refactoring | |
Changes
Modified common.scm from [83b661ead6] to [73f4e4d22c].
| ︙ | ︙ | |||
2149 2150 2151 2152 2153 2154 2155 | ((equal? status "ABORT") "brown") (else "black"))) ;; ;;====================================================================== ;; ;; N A N O M S G C L I E N T ;; ;;====================================================================== ;; | < < < < < < < < < < < < | 2149 2150 2151 2152 2153 2154 2155 2156 2157 2158 2159 2160 2161 2162 | ((equal? status "ABORT") "brown") (else "black"))) ;; ;;====================================================================== ;; ;; N A N O M S G C L I E N T ;; ;;====================================================================== ;; ;; ;; ;; (define (common:send-dboard-main-changed) ;; (let* ((dashboard-ips (mddb:get-dashboards))) ;; (for-each ;; (lambda (ipadr) ;; (let* ((soc (common:open-nm-req (conc "tcp://" ipadr))) |
| ︙ | ︙ |
Modified server.scm from [457acddd59] to [6aae17427b].
| ︙ | ︙ | |||
430 431 432 433 434 435 436 | (string->number tmo)) (* 60 60 (string->number tmo)) ;; (* 3 24 60 60) ;; default to three days ;;(* 60 60 1) ;; default to one hour (* 60 5) ;; default to five minutes ))) | > > > > > > > > > > > > > | 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 |
(string->number tmo))
(* 60 60 (string->number tmo))
;; (* 3 24 60 60) ;; default to three days
;;(* 60 60 1) ;; default to one hour
(* 60 5) ;; default to five minutes
)))
(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)))) ".")))
|