Overview
| Comment: | fixed fork |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
cee0c64e1491bcf0d8bfe0802d6a6f43 |
| 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 |
(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"))
(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/*")))))
)
)
| > > | 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 | (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) | | | 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!)
#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))
|
| ︙ | ︙ |