Megatest

Check-in [91eb081024]
Login
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: 91eb08102492f48b6bbda6005c940c1e5e4eb953
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
189

190
191
192
193
194
195
196
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))
	     (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)