Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -379,21 +379,21 @@
 ;;
 ;; 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 0 *default-log-port* "server-id:"  *server-id*)
+  (debug:print 4 *default-log-port* "server-id:"  *server-id*)
   (let* ((cmd     ($ 'cmd))
 	 (paramsj ($ 'params))
          (key     ($ 'key))   
 	 (params  (db:string->obj paramsj transport: 'http))) ;; incoming data from the POST (or is it a GET?)
-    (debug:print 0 *default-log-port* "cmd:" cmd " with params " params "key " key)
+    (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 0 *default-log-port* "res:" res)
+	  (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))
@@ -405,8 +405,8 @@
 	  ;;          (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*   "Login failed server-id mismatch: " key ", " *server-id*) 
-	  (db:obj->string (conc "Login failed server-id mismatch: " key ", " *server-id*) transport: 'http)))))
+	  (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)))))
 

Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -252,12 +252,11 @@
          (server-id   (if (vector? serverdat) 
                            (http-transport:server-dat-get-server-id serverdat)
                            (begin
 			     (debug:print 0 *default-log-port* "FATAL ERROR: http-transport:client-api-send-receive called with no server info")
 			     (exit 1)))))
-       ;(debug:print-info 0 *default-log-port* "fullurl=" fullurl ", cmd=" cmd ", params=" params ", run-id=" run-id "\n runremote=" runremote " serverdat=" serverdat " server-id" server-id "current time:" (current-seconds) ) 
-       ;(debug:print-info 0 *default-log-port* "cmd=" cmd " fullurl=" fullurl " server-id=" server-id " current time:" (current-seconds)) 
+       (debug:print-info 11 *default-log-port* "cmd=" cmd " fullurl=" fullurl " server-id=" server-id " current time:" (current-seconds)) 
 
        ;; set up the http-client here
        (max-retry-attempts 1)
        ;; consider all requests indempotent
        (retry-request? (lambda (request)
@@ -275,11 +274,11 @@
 					  (handle-exceptions
 					      exn
 					      (let ((call-chain (get-call-chain))
 						    (msg        ((condition-property-accessor 'exn 'message) exn)))
 						(set! success #f)
-                                                (if (debug:debug-mode 3)
+                                                (if (debug:debug-mode 1)
                                                     (debug:print-info 0 *default-log-port* "couldn't talk to server, trying again ...")
                                                     (begin
                                                       (debug:print 0 *default-log-port* "WARNING: failure in with-input-from-request to " fullurl ".")
                                                       (debug:print 0 *default-log-port* " message: " msg ", exn=" exn)
                                                       (debug:print 0 *default-log-port* " cmd: " cmd " params: " params " key:" (or server-id "thekey"))
@@ -314,11 +313,10 @@
 	 (thread-start! th1)
 	 (thread-start! th2)
 	 (thread-join! th1)
           (vector-set! res 0 success)
 	 (thread-terminate! th2)
-	 (debug:print-info 0 *default-log-port* "got res=" res)
 	 (if (vector? res)
 	     (if (vector-ref res 0) ;; this is the first flag or the second flag?
 		 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

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -164,13 +164,14 @@
     (if (get-environment-variable "TARGETHOST")(unsetenv "TARGETHOST"))
     (thread-join! log-rotate)
     (pop-directory)))
 
 ;; given a path to a server log return: host port startseconds
-;;
+;; any changes to number of elements returned by this fuction will dirctly affect server:record->url,server:record->id,server:kill,server:get-num-alive which uses match let 
+
 (define (server:logf-get-start-info logf)
-  (let ((rx (regexp "^SERVER STARTED: (\\S+):(\\d+) AT ([\\d\\.]+) server-id: (\\S+)"))) ;; SERVER STARTED: host:port AT timesecs
+  (let ((rx (regexp "^SERVER STARTED: (\\S+):(\\d+) AT ([\\d\\.]+) server-id: (\\S+)"))) ;; SERVER STARTED: host:port AT timesecs server id
     (handle-exceptions
 	exn
       (begin
 	(print "failed to get server info from " logf ", exn=" exn)
 	(list #f #f #f #f)) ;; no idea what went wrong, call it a bad server
@@ -232,11 +233,11 @@
 		       (serv-rec (cons mod-time serv-dat))
 		       (fmatch   (string-match fname-rx hed))
 		       (pid      (if fmatch (string->number (list-ref fmatch 2)) #f))
 		       (new-res  (if (null? serv-dat)
 				     res
-				     (cons (append serv-rec (list pid)) res))))
+				     (cons (append serv-rec (list pid)) res)))) ;; any changes to number of elements in new-res will dirctly affect server:record->url,server:record->id,server:kill,server:get-num-alive which uses match let 
 		  (if (null? tal)
 		      (if (and limit
 			       (> (length new-res) limit))
 			  new-res ;; (take new-res limit)  <= need intelligent sorting before this will work
 			  new-res)
@@ -411,11 +412,10 @@
 ;; no longer care if multiple servers are started by accident. older servers will drop off in time.
 ;;
 (define (server:check-if-running areapath) ;;  #!key (numservers "2"))
   (let* ((ns            (server:get-num-servers))
 	 (servers       (server:get-best (server:get-list areapath))))
-    (print "in server:check-if-running servers: " servers " ns: " ns)
     (if (or (and servers
 		 (null? servers))
 	    (not servers)
 	    (and (list? servers)
 		 (< (length servers) (random ns)))) ;; somewhere between 0 and numservers