Differences From Artifact [034ef23efd]:
- File db.scm — part of check-in [7a5200221d] at 2013-01-15 23:10:49 on branch http-transport — Added few more working calls (user: matt, size: 81985) [annotate] [blame] [check-ins using]
To Artifact [2a22e51a7a]:
- File db.scm — part of check-in [d294210580] at 2013-01-25 23:55:50 on branch http-transport — Got http-server running clean against test1 (user: matt, size: 81979) [annotate] [blame] [check-ins using]
︙ | ︙ | |||
1315 1316 1317 1318 1319 1320 1321 | (server:reply return-address qry-sig #t 1)) ;; (length data))) ((set-verbosity) (set! *verbosity* (car params)) (server:reply return-address qry-sig #t '(#t *verbosity*))) ((killserver) (debug:print 0 "WARNING: Server going down in 15 seconds by user request!") (open-run-close tasks:server-deregister tasks:open-db | | | | 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 | (server:reply return-address qry-sig #t 1)) ;; (length data))) ((set-verbosity) (set! *verbosity* (car params)) (server:reply return-address qry-sig #t '(#t *verbosity*))) ((killserver) (debug:print 0 "WARNING: Server going down in 15 seconds by user request!") (open-run-close tasks:server-deregister tasks:open-db (car *runremote*) pullport: (cadr *runremote*)) (thread-start! (make-thread (lambda ()(thread-sleep! 15)(exit)))) (server:reply return-address qry-sig #t '(#t "exit process started"))) (else ;; not a command, i.e. is a query (debug:print 0 "ERROR: Unrecognised query/command " stmt-key) (server:reply pubsock return-address qry-sig #f 'failed)))) (else (debug:print-info 11 "Executing " stmt-key " for " params) |
︙ | ︙ |