(begin (set-cdr! (assq hub connlist) (car ir))
(logf "~a state syn (~a)" (cadr hub) (car ir)))
(begin (set! connlist (delq (assq hub connlist) connlist))
+ (set! statelist (cons (list hub (current-time) 10) statelist))
(logf "~a failed (~a)" (cadr hub) (cdr (assq 'code er))))))))))))
hublist))
(define (hubmgr-main args)
(let ((dc-server #f))
- (if (not dc-server) (set! dc-server (getenv "DCSERVER")))
- (if (not dc-server) (set! dc-server "localhost"))
-
(set! hublist (read-hl))
(logf "read ~a hubs" (length hublist))
(dc-c&l #t dc-server #t)