162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
|
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
|
+
+
-
+
|
tasks:open-db
server-id
ipaddrstr portnum)
(debug:print 1 "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 (configf:lookup *configdat* "server" "hostname") ;; this is a hint to bind directly
(start-server port: portnum bind-address: (configf:lookup *configdat* "server" "hostname"))
(start-server port: portnum)
(start-server port: portnum))
;; (portlogger:open-run-close portlogger:set-port portnum "released")
(open-run-close tasks:server-force-clean-run-record tasks:open-db run-id ipaddrstr portnum " http-transport:try-start-server")
(debug:print 1 "INFO: server has been stopped")))
;;======================================================================
;; S E R V E R U T I L I T I E S
;;======================================================================
|