Megatest

Check-in [cee0c64e14]
Login
Overview
Comment:fixed fork
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64
Files: files | file ages | folders
SHA1: cee0c64e1491bcf0d8bfe0802d6a6f43c5b75d71
User & Date: bjbarcla on 2017-07-17 15:57:27
Other Links: branch diff | manifest | tags
Context
2017-07-17
16:57
fixed logic bug preventing sync in some circumstances check-in: 19bab1edb4 user: bjbarcla tags: v1.64
15:57
fixed fork check-in: cee0c64e14 user: bjbarcla tags: v1.64
15:23
Modified http-client egg to lock it to 0.7.1 check-in: 10b1c290e6 user: jmoon18 tags: v1.64
15:02
removed close-idle-connections to be compatibile with good old http-client 0.7.1 check-in: 927f0b6053 user: bjbarcla tags: v1.64
Changes

Modified common.scm from [794fa31626] to [3fcd32c183].

43
44
45
46
47
48
49


50
51
52
53
54
55
56
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58







+
+







	      (debug:print-error 0 *default-log-port* "bad value for setenv, key=" key ", value=" val)
	    (setenv key val))
	  (debug:print-error 0 *default-log-port* "bad value for setenv, key=" key ", value=" val))))

(define home (getenv "HOME"))
(define user (getenv "USER"))


;; returns list of fd count, socket count
(define (get-file-descriptor-count #!key  (pid (current-process-id )))
  (list
    (length (glob (conc "/proc/" pid "/fd/*")))
    (length  (filter identity (map socket? (glob (conc "/proc/" pid "/fd/*")))))
  )
)

Modified http-transport.scm from [0a52055d0d] to [eebbc561d6].

304
305
306
307
308
309
310
311

312
313
314
315
316
317
318
304
305
306
307
308
309
310

311
312
313
314
315
316
317
318







-
+







	(let ((api-dat (http-transport:server-dat-get-api-uri server-dat)))
	  (handle-exceptions
	    exn
	    (begin
	      (print-call-chain *default-log-port*)
	      (debug:print-error 0 *default-log-port* " closing connection failed with error: " ((condition-property-accessor 'exn 'message) exn)))
	    (close-connection! api-dat)
            (close-idle-connections!)
            ;;(close-idle-connections!)
	    #t))
	#f)))


(define (make-http-transport:server-dat)(make-vector 6))
(define (http-transport:server-dat-get-iface         vec)    (vector-ref  vec 0))
(define (http-transport:server-dat-get-port          vec)    (vector-ref  vec 1))