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 |
zmq-socket))))
(define (server:client-logout zmq-socket)
(and (socket? zmq-socket)
(cdb:logout zmq-socket *toppath* *my-client-signature*)
(close-socket zmq-socket)))
(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)
| > | 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 | ;; (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) | | | 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) (set! connect-ok (cdb:login zmq-socket *toppath* *my-client-signature*)) (if connect-ok (begin (debug:print-info 2 "Logged in and connected to " conurl) (set! *runremote* zmq-socket) #t) (begin (debug:print-info 2 "Failed to login or connect to " conurl) |
| ︙ | ︙ |