@@ -1347,13 +1347,13 @@ (if (> trynum 0) (begin (thread-sleep! 2) (common:get-homehost trynum: (- trynum 1))) `(#f . #f))) - ((and (not (configf:lookup *configdat* "server" "require-homehost")) + #;((and (configf:lookup *configdat* "server" "no-homehost") (not (file-exists? hhf))) - `(#f . #f)) ;; NEW METHOD, DO NOT USE A HOMEHOST + `(#f . #f)) ;; NEW METHOD, DO NOT USE A HOMEHOST - nope, not doing it this way. (else (let* ((currhost (get-host-name)) (bestadrs (server:get-best-guess-address currhost)) ;; first look in config, then look in file .homehost, create it if not found (homehost (or (configf:lookup *configdat* "server" "homehost" ) @@ -1386,11 +1386,11 @@ `(#f . #f)))))) (at-home (or (equal? homehost currhost) (equal? homehost bestadrs)))) (set! *home-host* (cons homehost at-home)) (mutex-unlock! *homehost-mutex*) - *home-host*)))) + *home-host*))))) ;;====================================================================== ;; am I on the homehost? ;; (define (common:on-homehost?)