@@ -2151,22 +2151,10 @@ ;; ;;====================================================================== ;; ;; N A N O M S G C L I E N T ;; ;;====================================================================== ;; -;; (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 (common:send-dboard-main-changed) ;; (let* ((dashboard-ips (mddb:get-dashboards))) ;; (for-each