294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
|
(state (vector-ref server 7))
(mt-ver (vector-ref server 8))
(status (open-run-close tasks:server-alive? tasks:open-db #f hostname: hostname port: port))
(killed #f)
(zmq-socket (if status (server:client-connect hostname port) #f)))
;; no need to login as status of #t indicates we are connecting to correct
;; server
(if (or (not status) ;; no point in keeping dead records in the db
(and khost-port ;; kill by host/port
(equal? hostname (car khost-port))
(equal? port (string->number (cadr khost-port)))))
(tasks:kill-server status hostname port pid))
(if (and kpid
(equal? hostname (car khost-port))
(equal? kpid pid)) ;;; YEP, ALL WITH PID WILL BE KILLED!!!
(tasks:kill-server status hostname #f pid))
(format #t fmtstr id mt-ver pid hostname interface port start-time priority
(if status "alive" "dead"))))
servers)
(debug:print-info 1 "Done with listservers")
|
|
>
>
|
|
|
|
|
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
|
(state (vector-ref server 7))
(mt-ver (vector-ref server 8))
(status (open-run-close tasks:server-alive? tasks:open-db #f hostname: hostname port: port))
(killed #f)
(zmq-socket (if status (server:client-connect hostname port) #f)))
;; no need to login as status of #t indicates we are connecting to correct
;; server
(if (not status) ;; no point in keeping dead records in the db
(open-run-close tasks:server-deregister tasks:open-db hostname port: port pid: pid))
(if (and khost-port ;; kill by host/port
(equal? hostname (car khost-port))
(equal? port (string->number (cadr khost-port))))
(tasks:kill-server status hostname port pid))
(if (and kpid
(equal? hostname (get-host-name))
(equal? kpid pid)) ;;; YEP, ALL WITH PID WILL BE KILLED!!!
(tasks:kill-server status hostname #f pid))
(format #t fmtstr id mt-ver pid hostname interface port start-time priority
(if status "alive" "dead"))))
servers)
(debug:print-info 1 "Done with listservers")
|