@@ -30,10 +30,15 @@
     ((get-run-info)                 (let ((res (apply db:get-run-info db params)))
 				      (list (vector-ref res 0)
 					    (vector->list (vector-ref res 1)))))
     ((register-run)                 (apply db:register-run db params))
     ((login)                        (apply db:login db params))
+    ((general-call)                 (let ((stmtname   (car params))
+					  (realparams (cdr params)))
+				      (db:general-call db stmtname realparams)))
+    ((set-tests-state-status)       (apply db:set-state-status db params))
+    ((get-tests-for-run)            (map vector->list (apply db:get-tests-for-run db params)))
     (else
      (list "ERROR" 0))))
 
 ;; http-server  send-response
 ;;                 api:process-request
@@ -44,13 +49,17 @@
 (define (api:process-request db $) ;; the $ is the request vars proc
   (let* ((cmd     ($ 'cmd))
 	 (paramsj ($ 'params))
 	 (params  (rmt:json-str->dat paramsj))
 	 (res     (api:execute-requests db cmd params)))
+
+    ;; This can be here but needs controls to ensure it doesn't run more than every 4 seconds
+    (db:sync-to *inmemdb* *db*)
+    
     (rmt:dat->json-str
      (if (or (string? res)
 	     (list?   res)
 	     (number? res)
 	     (boolean? res))
 	 res 
 	 (list "ERROR" 1 cmd params res)))))