Index: http-transportmod.scm
==================================================================
--- http-transportmod.scm
+++ http-transportmod.scm
@@ -103,10 +103,13 @@
   port
   uuid
   dbfile
   )
 
+(define (servdat->url sdat)
+  (conc (srvdat-host sdat)":"(srvdat-port srvdat)))
+
 (define (http-transport:make-server-url hostport)
   (if (not hostport)
       #f
       (conc "http://" (car hostport) ":" (cadr hostport))))
 
@@ -290,10 +293,69 @@
 
 (define (http-transport:inc-requests-and-prep-to-close-all-connections)
   (mutex-lock! *http-mutex*)
   (set! *http-requests-in-progress* (+ 1 *http-requests-in-progress*)))
 
+;; serverdat contains uuid to be used for connection validation
+;;
+;; TODO: translate http-transport:client-connect to use servdat
+;;
+(define (http-transport:basic-send-receive serverdat cmd params #!key (numretries 3))
+  (let* ((fullurl    (servdat->url serverdat))
+	 (res        #f)
+	 (success    #t)
+         (server-id  (servdat-uuid serverdat)))
+       ;; set up the http-client here
+    (max-retry-attempts 1)
+    ;; consider all requests indempotent
+    (retry-request? (lambda (request)
+		      #f))
+    ;; send the data and get the response extract the needed info from
+    ;; the http data and process and return it.
+    (let* ((send-recieve (lambda ()
+			   (set! res
+				 (vector
+				  #t ;; success
+				  (with-input-from-request
+				   fullurl 
+				   (list (cons 'key server-id)
+					 (cons 'cmd cmd)
+					 (cons 'params sparams))
+				   read)))))
+	      (time-out     (lambda ()
+			      (thread-sleep! 45)
+			      (debug:print 0 *default-log-port* "WARNING: send-receive took more than 45 seconds!!")
+			      #f))
+	      (th1 (make-thread send-recieve "with-input-from-request"))
+	      (th2 (make-thread time-out     "time out")))
+	 (thread-start! th1)
+	 (thread-start! th2)
+	 (thread-join! th1)
+	 (close-idle-connections!)
+	 (thread-terminate! th2)
+	 (if (vector? res)
+	     (if (vector-ref res 0) ;; this is the first flag or the second flag? 
+                 (let* ((res-dat (vector-ref res 1)))
+                    (if (and (string? res-dat) (string-contains res-dat "server-id mismatch"))
+                     (signal (make-composite-condition
+		          (make-property-condition 
+		       'servermismatch
+		       'message  (vector-ref res 1))))       
+		      res)) ;; this is the *inner* vector? seriously? why?
+                 (if (debug:debug-mode 11)
+                     (let ((call-chain (get-call-chain))) ;; note: this code also called in nmsg-transport - consider consolidating it
+                       (print-call-chain (current-error-port))
+                       (debug:print-error 11 *default-log-port* "error above occured at server, res=" res) ;; " message: " ((condition-property-accessor 'exn 'message) exn))
+                       (debug:print 11 *default-log-port* " server call chain:")
+                       (pp (vector-ref res 1) (current-error-port))
+                       (signal (vector-ref res 0)))
+                     res))
+	     (signal (make-composite-condition
+		      (make-property-condition 
+		       'timeout
+		       'message "nmsg-transport:client-api-send-receive-raw timed out talking to server")))))))
+
 ;; Send "cmd" with json payload "params" to serverdat and receive result
 ;;
 (define (http-transport:client-api-send-receive run-id serverdat cmd params #!key (numretries 3)(area-dat #f))
   (let* ((fullurl    (if (vector? serverdat)
 			 (http-transport:server-dat-get-api-req serverdat)