165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
|
;;
;; need two threads, one a 5 second timer
;;
(match res
((status errmsg result meta)
(if (equal? result server-id)
(begin
(debug:print 0 *default-log-port* "Ping to "host":"port" successful.")
#t) ;; then we are good
(begin
(debug:print 0 *default-log-port* "WARNING: server-id does not match, expected: "server-id", got: "result)
#f)))
(else
;; (debug:print 0 *default-log-port* "res not in form (status errmsg result meta), got: "res)
#f))))
|
|
|
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
|
;;
;; need two threads, one a 5 second timer
;;
(match res
((status errmsg result meta)
(if (equal? result server-id)
(begin
;; (debug:print 0 *default-log-port* "Ping to "host":"port" successful.")
#t) ;; then we are good
(begin
(debug:print 0 *default-log-port* "WARNING: server-id does not match, expected: "server-id", got: "result)
#f)))
(else
;; (debug:print 0 *default-log-port* "res not in form (status errmsg result meta), got: "res)
#f))))
|