Overview
| Comment: | sixyfivek is running pretty good |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.70-nohomehost |
| Files: | files | file ages | folders |
| SHA1: |
d1ac2665ef99cc83e17ae069c0efb569 |
| User & Date: | matt on 2022-11-22 02:57:47 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-11-22
| ||
| 06:36 | Remove case 6 from rmt:send-receive. This was pinging the server constantly and opening addtional connections that don't appear to being closed. Also, just let the connection die, it should retry. check-in: 08646db430 user: matt tags: v1.70-nohomehost | |
| 02:57 | sixyfivek is running pretty good check-in: d1ac2665ef user: matt tags: v1.70-nohomehost | |
|
2022-11-21
| ||
| 22:20 | Server usage in dashboard mostly working check-in: 3ce83ed77c user: matt tags: v1.70-nohomehost | |
Changes
Modified client.scm from [e699a8b092] to [6f5dc4a64f].
| ︙ | ︙ | |||
92 93 94 95 96 97 98 |
;; through them searching for a good one.
;;
(let* ((server-dat (server:choose-server areapath 'best))
(runremote (or area-dat *runremote*)))
(if (not server-dat) ;; no server found
(client:setup-http-baby areapath remaining-tries: (- remaining-tries 1))
(match server-dat
| | | 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 |
;; through them searching for a good one.
;;
(let* ((server-dat (server:choose-server areapath 'best))
(runremote (or area-dat *runremote*)))
(if (not server-dat) ;; no server found
(client:setup-http-baby areapath remaining-tries: (- remaining-tries 1))
(match server-dat
((host port start-time server-id pid)
(debug:print-info 4 *default-log-port* "client:setup server-dat=" server-dat ", remaining-tries=" remaining-tries)
(if (and (not area-dat)
(not *runremote*))
(begin
(set! *runremote* (make-remote))
(let* ((server-info (remote-server-info *runremote*)))
(if server-info
|
| ︙ | ︙ |
Modified server.scm from [816ebbf5c4] to [787d7f0596].
| ︙ | ︙ | |||
426 427 428 429 430 431 432 |
(create-directory servinfodir))
(let* ((allfiles (glob (conc servinfodir"/*")))
(res (make-hash-table)))
(for-each
(lambda (f)
(let* ((hostport (pathname-strip-directory f))
(serverdat (server:logf-get-start-info f)))
| > > > | > > > | 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 |
(create-directory servinfodir))
(let* ((allfiles (glob (conc servinfodir"/*")))
(res (make-hash-table)))
(for-each
(lambda (f)
(let* ((hostport (pathname-strip-directory f))
(serverdat (server:logf-get-start-info f)))
(match serverdat
((host port start server-id pid)
(if (and host port start server-id pid)
(hash-table-set! res hostport serverdat)
(debug:print-info 0 *default-log-port* "bad server info for "f": "serverdat)))
(else
(debug:print-info 0 *default-log-port* "bad server info for "f": "serverdat)))))
allfiles)
res)))
;; oldest server alive determines host then choose random of youngest
;; five servers on that host
;;
;; mode:
|
| ︙ | ︙ | |||
462 463 464 465 466 467 468 | (oldest-dat (hash-table-ref serversdat oldest)) (host (list-ref oldest-dat 0)) (all-valid (filter (lambda (x) (equal? host (list-ref (hash-table-ref serversdat x) 0))) by-time-asc)) (best-five (lambda () (if (> (length all-valid) 5) | < < | > | > | | 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 | (oldest-dat (hash-table-ref serversdat oldest)) (host (list-ref oldest-dat 0)) (all-valid (filter (lambda (x) (equal? host (list-ref (hash-table-ref serversdat x) 0))) by-time-asc)) (best-five (lambda () (if (> (length all-valid) 5) (take all-valid 5) all-valid))) (names->dats (lambda (names) (map (lambda (x) (hash-table-ref serversdat x)) names))) (am-home? (lambda () (let* ((currhost (get-host-name)) (bestadrs (server:get-best-guess-address currhost))) (or (equal? host currhost) (equal? host bestadrs)))))) (case mode ((info) (print "oldest: "oldest-dat", selected host: "host", all-valid: "all-valid) (print "youngest: "(hash-table-ref serversdat (car all-valid)))) ((home) host) ((homehost) (cons host (am-home?))) ;; shut up old code ((home?) (am-home?)) ((best-five)(names->dats (best-five))) ((all-valid)(names->dats all-valid)) ((best) (let* ((best-five (best-five)) (len (length best-five))) (hash-table-ref serversdat (list-ref best-five (random len))))) (else (debug:print 0 *default-log-port* "ERROR: invalid command "mode) #f))) (begin (server:run areapath) (thread-sleep! 3) |
| ︙ | ︙ |