git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/doldaconnect@1083
959494ce-11ee-0310-bf91-
de5d638817bd
)
)
)
- (if (not dc-server) (set! dc-server (getenv "DCSERVER")))
- (if (not dc-server) (set! dc-server "localhost"))
(if (not log-dir) (set! log-dir (string-append (getenv "HOME") "/dc/chatlog")))
(dc-c&l #t dc-server #t)
(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)