362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
|
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
|
+
+
-
-
-
-
+
+
+
+
|
(print "ERROR: No run-id")
(exit 1))
(if (not host-port)
(begin
(debug:print 0 "ERROR: argument to -ping is host:port, got " (args:get-arg "-ping"))
(print "ERROR: bad host:port")
(exit 1))
(begin
(print ((rpc:procedure 'testing (car host-port)(cadr host-port))))
(case (server:get-transport)
((http)(http:ping run-id host-port))
((rpc) ((rpc:procedure 'server:login (car host-port)(cadr host-port)) *toppath*)) ;; (rpc-transport:ping run-id (car host-port)(cadr host-port)))
(else (debug:print 0 "ERROR: No transport set")(exit)))))))
(case (server:get-transport)
((http)(http:ping run-id host-port))
((rpc) ((rpc:procedure 'server:login (car host-port)(cadr host-port)) *toppath*)) ;; (rpc-transport:ping run-id (car host-port)(cadr host-port)))
(else (debug:print 0 "ERROR: No transport set")(exit))))))))
;;======================================================================
;; Start the server - can be done in conjunction with -runall or -runtests (one day...)
;; we start the server if not running else start the client thread
;;======================================================================
(if (args:get-arg "-server")
|