Differences From Artifact [7029eb2f68]:
- File api.scm — part of check-in [259b439f94] at 2021-02-14 20:26:08 on branch v1.65-real — More minor fixes and cleanup. (user: matt, size: 21684) [annotate] [blame] [check-ins using]
- File attic/api.scm — part of check-in [101ee7c52b] at 2021-03-06 04:39:46 on branch v1.65-real-chicken-5 — Try a grounds-up switch to chicken-5 (user: matt, size: 21684) [annotate] [blame] [check-ins using]
To Artifact [913dee30b8]:
- File api.scm (unpublished)— part of check-in [74a5cd0abb] at 2021-02-26 07:53:35 on branch v1.65-diet2-cm1 — Merged in latest From: 14db3c2571c703c23f8b627c1d3ca06d22870c57 User: matt (user: matt, size: 21747) [annotate] [blame] [check-ins using]
| ︙ | |||
376 377 378 379 380 381 382 383 384 385 386 387 388 389 | 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 | + |
;; http-server send-response
;; api:process-request
;; db:*
;;
;; NB// Runs on the server as part of the server loop
;;
(define (api:process-request dbstruct $) ;; the $ is the request vars proc
(debug:print 4 *default-log-port* "server-id:" *server-id*)
(debug:print 4 *default-log-port* "server-id:" *server-id*)
(let* ((cmd ($ 'cmd))
(paramsj ($ 'params))
(key ($ 'key))
(params (db:string->obj paramsj transport: 'http))) ;; incoming data from the POST (or is it a GET?)
(debug:print 4 *default-log-port* "cmd:" cmd " with params " params "key " key)
(if (equal? key *server-id*)
|
| ︙ |