1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
|
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
|
+
+
-
+
|
(list #f (conc "Login failed due to mismatch paths: " calling-path ", " *toppath*))))))
((logout)
(if (and (> (length remparam) 1)
(eq? *toppath* (car remparam))
(hash-table-ref/default *logged-in-clients* (cadr remparam) #f))
#t
#f))
((numclients)
(length (hash-table-keys *logged-in-clients*)))
((flush)
(db:write-cached-data)
#t)
((immediate)
(db:write-cached-data)
(if (not (null? remparam))
(apply (car remparam) (cdr remparam))
"ERROR"))
((killserver)
(db:write-cached-data)
;; (db:write-cached-data)
(debug:print-info 0 "Remotely killed server on host " (get-host-name) " pid " (current-process-id))
(set! *time-to-exit* #t)
#t)
((set-verbosity)
(set! *verbosity* (caddr params))
*verbosity*)
((get-verbosity)
|
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
|
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
|
+
+
+
|
(define (cdb:login zmq-socket keyval signature)
(cdb:client-call zmq-socket 'login #t keyval signature))
(define (cdb:logout zmq-socket keyval signature)
(cdb:client-call zmq-socket 'logout #t keyval signature))
(define (cdb:num-clients zmq-socket)
(cdb:client-call zmq-socket 'numclients #t))
(define (cdb:test-set-status-state zmqsocket test-id status state msg)
(if msg
(cdb:client-call zmqsocket 'state-status-msg #t state status msg test-id)
(cdb:client-call zmqsocket 'state-status #t state status test-id))) ;; run-id test-name item-path minutes cpuload diskfree tmpfree)
(define (cdb:test-rollup-test_data-pass-fail zmqsocket test-id)
(cdb:client-call zmqsocket 'test_data-pf-rollup #t test-id test-id test-id test-id))
|