Overview
| Comment: | Keep proxy support off unless enabled as client/use-http_proxy yes |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
8a064fafa84e954bce246d48865e7839 |
| User & Date: | matt on 2017-05-02 21:29:58 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-05-03
| ||
| 00:27 | Fix for contour field addition on running -cleanup-db check-in: 01ab9ebe8a user: matt tags: v1.64 | |
|
2017-05-02
| ||
| 21:29 | Keep proxy support off unless enabled as client/use-http_proxy yes check-in: 8a064fafa8 user: matt tags: v1.64 | |
| 14:08 | Added switch to allow running dashboard without using detachbox. -rh5.8 is the switch check-in: bfb8cd713d user: mrwellan tags: v1.64 | |
Changes
Modified http-transport.scm from [de2800221f] to [7956a49c89].
| ︙ | ︙ | |||
107 108 109 110 111 112 113 |
headers: '((content-type text/plain))))
(else (continue))))))))
(http-transport:try-start-server ipaddrstr start-port)))
;; This is recursively run by http-transport:run until sucessful
;;
(define (http-transport:try-start-server ipaddrstr portnum)
| | > > > | 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 |
headers: '((content-type text/plain))))
(else (continue))))))))
(http-transport:try-start-server ipaddrstr start-port)))
;; This is recursively run by http-transport:run until sucessful
;;
(define (http-transport:try-start-server ipaddrstr portnum)
(let ((config-hostname (configf:lookup *configdat* "server" "hostname"))
(config-use-proxy (equal? (configf:lookup *configdat* "client" "use-http_proxy") "yes")))
(if (not config-use-proxy)
(determine-proxy (constantly #f)))
(debug:print-info 0 *default-log-port* "http-transport:try-start-server time=" (seconds->time-string (current-seconds)) " ipaddrsstr=" ipaddrstr " portnum=" portnum " config-hostname=" config-hostname)
(handle-exceptions
exn
(begin
(print-error-message exn)
(if (< portnum 64000)
(begin
|
| ︙ | ︙ |