Overview
| Comment: | Remove specific interface from http server start. I'm pretty sure that should never have been there. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.7001-multi-db-rb01 |
| Files: | files | file ages | folders |
| SHA1: |
2204e62bd51f0f5b7b88289729e19dc2 |
| User & Date: | matt on 2022-04-05 19:26:45 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-04-05
| ||
| 20:29 | Lots of db adjustments made check-in: 162676ba8d user: matt tags: v1.7001-multi-db-rb01 | |
| 19:26 | Remove specific interface from http server start. I'm pretty sure that should never have been there. check-in: 2204e62bd5 user: matt tags: v1.7001-multi-db-rb01 | |
| 17:24 | Merged fork check-in: b14c77207c user: matt tags: v1.7001-multi-db-rb01 | |
Changes
Modified http-transport.scm from [3300e19a72] to [bab35e8343].
| ︙ | ︙ | |||
169 170 171 172 173 174 175 |
;; any error in following steps will result in a retry
(set! *server-info* (list ipaddrstr portnum))
(debug:print 0 *default-log-port* "INFO: Trying to start server on " ipaddrstr ":" portnum)
;; This starts the spiffy server
;; NEED WAY TO SET IP TO #f TO BIND ALL
;; (start-server bind-address: ipaddrstr port: portnum)
(if config-hostname ;; this is a hint to bind directly
| | | | | 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 |
;; any error in following steps will result in a retry
(set! *server-info* (list ipaddrstr portnum))
(debug:print 0 *default-log-port* "INFO: Trying to start server on " ipaddrstr ":" portnum)
;; This starts the spiffy server
;; NEED WAY TO SET IP TO #f TO BIND ALL
;; (start-server bind-address: ipaddrstr port: portnum)
(if config-hostname ;; this is a hint to bind directly
(start-server port: portnum) ;; bind-address: (if (equal? config-hostname "-")
;; ipaddrstr
;; config-hostname))
(start-server port: portnum))
(portlogger:open-run-close portlogger:set-port portnum "released")
(debug:print 1 *default-log-port* "INFO: server has been stopped"))))
;;======================================================================
;; S E R V E R U T I L I T I E S
;;======================================================================
|
| ︙ | ︙ |