Overview
| Comment: | More implemented on zmq conversion |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | switch-to-zmq |
| Files: | files | file ages | folders |
| SHA1: |
dcef80627ca210abb2b7ef8b3648159c |
| User & Date: | matt on 2012-10-23 02:16:22 |
| Other Links: | branch diff | manifest | tags |
Context
|
2012-10-23
| ||
| 17:04 | zmq almost working check-in: aaae486378 user: mrwellan tags: switch-to-zmq | |
| 02:16 | More implemented on zmq conversion check-in: dcef80627c user: matt tags: switch-to-zmq | |
| 00:13 | Start of conversion to zmq check-in: dc9fc1c7d4 user: matt tags: switch-to-zmq | |
Changes
Modified db.scm from [b22def0785] to [b6d8d17947].
| ︙ | ︙ | |||
1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 | ((login) ;; login checks that the megatest path matches (if (null? remparam) #f ;; no path - fail! (let ((calling-path (car remparam))) (if (equal? calling-path *toppath*) #t ;; path matches - pass! Should vet the caller at this time ... #f)))) ;; else fail to login (else (mutex-lock! *incoming-mutex*) (set! *last-db-access* (current-seconds)) (set! *incoming-data* (cons (vector qry-name (current-milliseconds) params) | > > | 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 | ((login) ;; login checks that the megatest path matches (if (null? remparam) #f ;; no path - fail! (let ((calling-path (car remparam))) (if (equal? calling-path *toppath*) #t ;; path matches - pass! Should vet the caller at this time ... #f)))) ;; else fail to login ((flush) ( (else (mutex-lock! *incoming-mutex*) (set! *last-db-access* (current-seconds)) (set! *incoming-data* (cons (vector qry-name (current-milliseconds) params) |
| ︙ | ︙ |
Modified server.scm from [855d362c2a] to [f7a906dbfb].
| ︙ | ︙ | |||
125 126 127 128 129 130 131 | (debug:print-info 2 "Setting up to connect to " hostinfo) (handle-exceptions exn (begin (debug:print 0 "ERROR: Failed to open a connection to the server at host: " host " port: " port) (debug:print 0 " EXCEPTION: " ((condition-property-accessor 'exn 'message) exn)) (set! *runremote* #f)) | | | | | 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 | (debug:print-info 2 "Setting up to connect to " hostinfo) (handle-exceptions exn (begin (debug:print 0 "ERROR: Failed to open a connection to the server at host: " host " port: " port) (debug:print 0 " EXCEPTION: " ((condition-property-accessor 'exn 'message) exn)) (set! *runremote* #f)) (if (and (connect-socket zmq-socket hostinfo) (cdb:client-call zmq-socket 'login #t *toppath*)) (begin (debug:print-info 2 "Logged in and connected to " host ":" port) (set! *runremote* zmq-socket)) (begin (debug:print-info 2 "Failed to login or connect to " host ":" port) (set! *runremote* #f))))) (debug:print-info 2 "no server available"))))) |