Overview
| Comment: | Servers now working again, including clean shutdown |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | multi-area |
| Files: | files | file ages | folders |
| SHA1: |
4d4bfbb125b12487bd99ed57a6afb312 |
| User & Date: | matt on 2015-04-06 01:09:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-04-06
| ||
| 03:24 | More and more fixes check-in: 907abdf090 user: matt tags: multi-area | |
| 01:09 | Servers now working again, including clean shutdown check-in: 4d4bfbb125 user: matt tags: multi-area | |
| 01:04 | Servers now working again check-in: 3f14d7d23e user: matt tags: multi-area | |
Changes
Modified http-transport.scm from [f7503f384b] to [114df4678b].
| ︙ | ︙ | |||
505 506 507 508 509 510 511 |
(set! *time-to-exit* #t)
(if *inmemdb* (db:sync-touched *inmemdb* area-dat *run-id* force-sync: #t))
;;
;; start_shutdown
;;
(tasks:server-set-state! (db:delay-if-busy tdbdat area-dat) server-id "shutting-down")
(portlogger:open-run-close
| | | | 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 |
(set! *time-to-exit* #t)
(if *inmemdb* (db:sync-touched *inmemdb* area-dat *run-id* force-sync: #t))
;;
;; start_shutdown
;;
(tasks:server-set-state! (db:delay-if-busy tdbdat area-dat) server-id "shutting-down")
(portlogger:open-run-close
(lambda (db port value)
(portlogger:set-port db port value))
area-dat port "released")
(thread-sleep! 5)
(debug:print-info 0 "Max cached queries was " *max-cache-size*)
(debug:print-info 0 "Number of cached writes " *number-of-writes*)
(debug:print-info 0 "Average cached write time "
(if (eq? *number-of-writes* 0)
"n/a (no writes)"
|
| ︙ | ︙ |