Index: rmtmod.scm
==================================================================
--- rmtmod.scm
+++ rmtmod.scm
@@ -1545,38 +1545,13 @@
 
 ;;======================================================================
 ;; S E R V E R
 ;; ======================================================================
 
-;; NOTE: http-transport:launch is the entry point
-;;          -> http-transport:run
-;;             -> http-transport:try-start-server -> http-transport:try-start-server (until success)
-
 (define (http-get-function fnkey)
   (hash-table-ref/default *http-functions* fnkey (lambda () "nothing here yet")))
 
-#;(define (rmt:launch-server hostn port)
-   (if *server-info*
-	(begin
-	  (servdat-host-set! *server-info* hostn)
-	  (servdat-port-set! *server-info* port)
-	  (servdat-status-set! *server-info* 'trying-port)
-	  (servdat-trynum-set! *server-info* (+ (servdat-trynum *server-info*) 1)))
-	(set! *server-info* (make-servdat host: ipaddrstr port: portnum)))
-   (let* ((l        (tcp-listen port))
-	 (dbstruct #f))
-    (let-values (((i o) (tcp-accept l)))
-      ;; (write-line "Hello!" o)
-      (let loop ((indat (read i)))
-	(let* ((res (api:process-request dbstruct indat)))
-	  (case res
-	    ((quit)
-	     (close-input-port i)
-	     (close-output-port o))
-	    (else
-	     (write res o))))))))
-
 (define (rmt:run hostn)
   ;;  ;; Configurations for server
   ;;  (tcp-buffer-size 2048)
   ;;  (max-connections 2048) 
   (debug:print 2 *default-log-port* "Attempting to start the server ...")
@@ -1605,23 +1580,10 @@
 	       (res    (api:process-request *dbstruct-db* data))
 	       (resdat (sexpr->string res)))
 	  (set! *db-last-access* (current-seconds))
 	  (nn-send rep resdat)
 	  (loop (nn-recv rep)))))
-;;       (let oloop ()
-;; 	(let-values (((i o) (tcp-accept l)))
-;; 	  ;; (write-line "Hello!" o)
-;; 	  (let loop ((indat (read i)))
-;; 	    (if (eof-object? indat)
-;; 		(begin
-;; 		  (close-input-port i)
-;; 		  (close-output-port o)
-;; 		  (oloop))
-;; 		(let* ((res (api:process-request *dbstruct-db* indat)))
-;; 		  (set! *db-last-access* (current-seconds))
-;; 		  (write res o)
-;; 		  (loop (read i))))))))
     (let* ((portnum (servdat-port *server-info*)))
       (portlogger:open-run-close portlogger:set-port portnum "released")
       (debug:print 1 *default-log-port* "INFO: server has been stopped"))))
 
 (define (rmt:try-start-server ipaddrstr portnum)
@@ -1635,12 +1597,10 @@
       (set! *server-info* (make-servdat host: ipaddrstr port: portnum)))
   (debug:print-info 0 *default-log-port* "rmt:try-start-server time="
 		    (seconds->time-string (current-seconds))
 		    " ipaddrsstr=" ipaddrstr
 		    " portnum=" portnum)
-
-  ;; any error in following steps will result in a retry
   (if (is-port-in-use portnum)
       (begin
 	(portlogger:open-run-close portlogger:set-failed portnum)
 	(debug:print 0 *default-log-port* "WARNING: failed to start on portnum: " portnum ", trying next port")
 	;; (thread-sleep! 0.1)
@@ -2314,13 +2274,11 @@
      ;;(print (nn-recv req))
      (let* ((th1  (make-thread (lambda ()
                                  (let ((resp (nn-recv req)))
                                    (nn-close req)
                                    (print resp)
-                                   (set! res (if (equal? resp "ok")
-                                                 #t
-                                                 #f))))
+                                   (set! res resp)))
                                "recv thread"))
             (th2 (make-thread (lambda ()
                                 (thread-sleep! timeout)
                                 (thread-terminate! th1))
                              "timer thread")))