Overview
| Comment: | Converting the server receive works. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | monitor-cleanup |
| Files: | files | file ages | folders |
| SHA1: |
ea995f8a7017f367ee072a0419f53f61 |
| User & Date: | matt on 2012-10-31 21:16:07 |
| Other Links: | branch diff | manifest | tags |
Context
|
2012-10-31
| ||
| 22:11 | Reverted dashboard to direct access. check-in: c474722d81 user: matt tags: monitor-cleanup | |
| 21:16 | Converting the server receive works. check-in: ea995f8a70 user: matt tags: monitor-cleanup | |
| 17:03 | Login/logout list and kill working nicely check-in: d24a0f4c43 user: mrwellan tags: monitor-cleanup | |
Changes
Modified server.scm from [2fc90a75bd] to [6908adafb0].
| ︙ | ︙ | |||
58 59 60 61 62 63 64 |
(begin
(debug:print-info 0 "Queue not flushed, waiting ...")
(loop)))))))
;; The heavy lifting
;;
(let loop ()
| | | 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 |
(begin
(debug:print-info 0 "Queue not flushed, waiting ...")
(loop)))))))
;; The heavy lifting
;;
(let loop ()
(let* ((rawmsg (receive-message* zmq-socket))
(params (db:string->obj rawmsg)) ;; (with-input-from-string rawmsg (lambda ()(deserialize))))
(res #f))
(debug:print-info 12 "server=> received params=" params)
(set! res (cdb:cached-access params))
(debug:print-info 12 "server=> processed res=" res)
(send-message zmq-socket (db:obj->string res))
(if (not *time-to-exit*)
|
| ︙ | ︙ |