Overview
Comment: | Added missing params to cdb:login |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | monitor-cleanup |
Files: | files | file ages | folders |
SHA1: |
91eb08102492f48b6bbda6005c940c1e |
User & Date: | matt on 2012-10-31 01:02:23 |
Other Links: | branch diff | manifest | tags |
Context
2012-10-31
| ||
14:31 | Got remote login with client signature and login key working check-in: 05e3308da2 user: mrwellan tags: monitor-cleanup | |
01:02 | Added missing params to cdb:login check-in: 91eb081024 user: matt tags: monitor-cleanup | |
00:43 | Partial implemenation of safe login/logout of clients check-in: ab3476f990 user: matt tags: monitor-cleanup | |
Changes
Modified server.scm from [abd8ee763d] to [9f74515034].
︙ | |||
161 162 163 164 165 166 167 168 169 170 171 172 173 174 | 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 | + | zmq-socket)))) (define (server:client-logout zmq-socket) (and (socket? zmq-socket) (cdb:logout zmq-socket *toppath* *my-client-signature*) (close-socket zmq-socket))) ;;; IS THIS NEEDED? (define (server:client-setup) (if (not *toppath*)(setup-for-run)) (let* ((hostinfo (open-run-close tasks:get-best-server tasks:open-db)) (zmq-socket (make-socket 'req))) (if hostinfo (begin (debug:print-info 2 "Setting up to connect to " hostinfo) |
︙ | |||
182 183 184 185 186 187 188 | 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 | - + | ;; (exit) ;; why forced exit? #f) ;; REPLACE WITH server:client-login ;; (let ((connect-ok #f) (conurl (server:make-server-url hostinfo))) (connect-socket zmq-socket conurl) |
︙ |