Megatest

(define *db-api-call-time*    (make-hash-table)) ;; hash of command => (list of times)
;; no sync db
(define *no-sync-db*          #f)

;; SERVER
(define *my-client-signature* #f)
(define *transport-type*    'http)             ;; override with [server] transport http|rpc|nmsg
;; replaced by *rmt:remote*
;; (define *runremote*         #f)                ;; if set up for server communication this will hold <host port>
;; (define *max-cache-size*    0)
(define *logged-in-clients* (make-hash-table))
(define *server-id*         #f)
(define *server-info*       #f)  ;; good candidate for easily convert to non-global
;; (define *time-to-exit*      #f)
(define *server-run*        #t)
(define *run-id*            #f)

    ((abort) "ABORT")
    ((skip) "SKIP")
    (else "FAIL")))

(define (common:logpro-exit-code->test-status exit-code)
  (status-sym->string (common:logpro-exit-code->status-sym exit-code)))

;; REPLACED BY rmt:remote in rmtmod.scm
;;
;; (defstruct remote
;;   (hh-dat            #f) ;; (common:get-homehost)) ;; homehost record ( addr . hhflag )
;;   (server-url        #f) ;; (server:check-if-running *toppath*) #f))
;;   (server-id         #f)
;;   (server-info       #f) ;; (if *toppath* (server:check-if-running *toppath*) #f))
;;   (last-server-check 0)  ;; last time we checked to see if the server was alive
;;   (conndat           #f)
;;   ;; (transport         *transport-type*)
;;   (server-timeout    #f) ;; (server:expiration-timeout))
;;   (force-server      #f)
;;   (ro-mode           #f)  
;;   (ro-mode-checked   #f)) ;; flag that indicates we have checked for ro-mode

;; launching and hosts
(defstruct host
  (reachable    #f)
  (last-update  0)
  (last-used    0)
  (last-cpuload 1))