Overview
| Comment: | Remove short circuit for no homehost in common:get-homehost |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.7001-multi-db-nohome |
| Files: | files | file ages | folders |
| SHA1: |
760892c0d7a282c9eea6019d82a8f9cc |
| User & Date: | matt on 2022-05-15 04:52:01 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-05-15
| ||
| 05:06 | Merging the v1.7001-multi-db-nohome branch into single commit to rebase forward Closed-Leaf check-in: f5e182b504 user: matt tags: v1.7001-multi-db-nohome-for-rebase | |
| 04:52 | Remove short circuit for no homehost in common:get-homehost Closed-Leaf check-in: 760892c0d7 user: matt tags: v1.7001-multi-db-nohome | |
|
2022-05-09
| ||
| 19:43 | common:get-homehost returns '(#f . #f) if there is no homehost file. check-in: 4db396b0c0 user: matt tags: v1.7001-multi-db-nohome | |
Changes
Modified common.scm from [142d49dbae] to [3b9840f92c].
| ︙ | ︙ | |||
1345 1346 1347 1348 1349 1350 1351 |
(mutex-unlock! *homehost-mutex*)
(launch:setup) ;; safely mutexed now
(if (> trynum 0)
(begin
(thread-sleep! 2)
(common:get-homehost trynum: (- trynum 1)))
`(#f . #f)))
| | | | 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361 |
(mutex-unlock! *homehost-mutex*)
(launch:setup) ;; safely mutexed now
(if (> trynum 0)
(begin
(thread-sleep! 2)
(common:get-homehost trynum: (- trynum 1)))
`(#f . #f)))
#;((and (configf:lookup *configdat* "server" "no-homehost")
(not (file-exists? hhf)))
`(#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" )
(handle-exceptions
exn
|
| ︙ | ︙ | |||
1384 1385 1386 1387 1388 1389 1390 | (mutex-unlock! *homehost-mutex*) (car (common:get-homehost)))) `(#f . #f)))))) (at-home (or (equal? homehost currhost) (equal? homehost bestadrs)))) (set! *home-host* (cons homehost at-home)) (mutex-unlock! *homehost-mutex*) | | | 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 1394 1395 1396 1397 1398 |
(mutex-unlock! *homehost-mutex*)
(car (common:get-homehost))))
`(#f . #f))))))
(at-home (or (equal? homehost currhost)
(equal? homehost bestadrs))))
(set! *home-host* (cons homehost at-home))
(mutex-unlock! *homehost-mutex*)
*home-host*)))))
;;======================================================================
;; am I on the homehost?
;;
(define (common:on-homehost?)
(let ((hh (common:get-homehost)))
(if hh
|
| ︙ | ︙ |