@@ -1,5 +1,7 @@
+
+
 ;;======================================================================
 ;; Copyright 2006-2013, Matthew Welland.
 ;; 
 ;; This file is part of Megatest.
 ;; 
@@ -377,26 +379,34 @@
 ;;
 ;; NB// Runs on the server as part of the server loop
 ;;
 (define (api:process-request dbstruct $) ;; the $ is the request vars proc
   (set! *api-process-request-count* (+ *api-process-request-count* 1))
+  (debug:print 4 *default-log-port* "server-id:"  *server-id*)
   (let* ((cmd     ($ 'cmd))
 	 (paramsj ($ 'params))
-	 (params  (db:string->obj paramsj transport: 'http)) ;; incoming data from the POST (or is it a GET?)
-	 (resdat  (api:execute-requests dbstruct (vector cmd params))) ;; process the request, resdat = #( flag result )
-	 (success (vector-ref resdat 0))
-	 (res     (vector-ref resdat 1))) ;; (vector flag payload), get the payload, ignore the flag (why?)
-    (if (not success)
-	(debug:print 0 *default-log-port* "ERROR: success flag is #f for " cmd " with params " params))
-    (if (> *api-process-request-count* *max-api-process-requests*)
-	(set! *max-api-process-requests* *api-process-request-count*))
-    (set! *api-process-request-count* (- *api-process-request-count* 1))
-    ;; This can be here but needs controls to ensure it doesn't run more than every 4 seconds
-    ;; (rmt:dat->json-str
-    ;;  (if (or (string? res)
-    ;;          (list?   res)
-    ;;          (number? res)
-    ;;          (boolean? res))
-    ;;      res 
-    ;;      (list "ERROR, not string, list, number or boolean" 1 cmd params res)))))
-    (db:obj->string res transport: 'http)))
+         (key     ($ 'key))   
+	 (params  (db:string->obj paramsj transport: 'http))) ;; incoming data from the POST (or is it a GET?)
+    (debug:print 4 *default-log-port* "cmd:" cmd " with params " params "key " key)
+    (if (equal? key *server-id*)
+	(let* ((resdat  (api:execute-requests dbstruct (vector cmd params))) ;; process the request, resdat = #( flag result )
+	       (success (vector-ref resdat 0))
+	       (res     (vector-ref resdat 1))) ;; (vector flag payload), get the payload, ignore the flag (why?)
+	  (debug:print 4 *default-log-port* "res:" res)
+	  (if (not success)
+	      (debug:print 0 *default-log-port* "ERROR: success flag is #f for " cmd " with params " params))
+	  (if (> *api-process-request-count* *max-api-process-requests*)
+	      (set! *max-api-process-requests* *api-process-request-count*))
+	  (set! *api-process-request-count* (- *api-process-request-count* 1))
+	  ;; This can be here but needs controls to ensure it doesn't run more than every 4 seconds
+	  ;; (rmt:dat->json-str
+	  ;;  (if (or (string? res)
+	  ;;          (list?   res)
+	  ;;          (number? res)
+	  ;;          (boolean? res))
+	  ;;      res 
+	  ;;      (list "ERROR, not string, list, number or boolean" 1 cmd params res)))))
+	  (db:obj->string res transport: 'http))
+	(begin
+	  (debug:print 0 *default-log-port*   "Server refused to process request. Sever id mismatch. recived " key " expected:  " *server-id* ".\nOther arguments recived: cmd=" cmd " params = " params) 
+	  (db:obj->string (conc "Server refused to process request server-id mismatch: " key ", " *server-id*) transport: 'http)))))