Megatest

Check-in [8a064fafa8]
Login
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: 8a064fafa84e954bce246d48865e783955a266a3
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
114




115
116
117
118
119
120
121
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")))
  (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