154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
-
-
+
+
|
(open-run-close tasks:server-set-interface-port
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)
;; (start-server bind-address: ipaddrstr port: portnum)
(start-server port: portnum)
(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
;;======================================================================
|