Index: TODO
==================================================================
--- TODO
+++ TODO
@@ -15,10 +15,19 @@
 #     You should have received a copy of the GNU General Public License
 #     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 
 TODO
 ====
+
+23WW45 - the revolution branch
+. Add "fast" db start option (no handshaking over NFS)
+. Add server-ro to server types (just "server" is fine for read/write).
+. Create pause-server and resume-server calls
+. Create rsync or cp sync to MTRAH function
+. Change rmt:send-receive to divert calls to read-only server when possible
+. Change start server to call main.db server for 1..N.db servers, block until server is read for use.
+
 
 23WW21
 . Dashboard needs its own cache db in /tmp
 
 23WW07

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -87,11 +87,10 @@
 	 (readonly-mode (rmtmod:calc-ro-mode runremote *toppath*))
 	 (testsuite     (common:get-testsuite-name))
 	 (mtexe         (common:find-local-megatest)))
 
     (case (rmt:transport-mode)
-      ((http)(http-transport-handler runremote cmd rid params attemptnum area-dat areapath readonly-mode))
       ((tcp) (tcp-transport-handler  runremote cmd rid params attemptnum area-dat areapath readonly-mode testsuite mtexe))
       ((nfs) (nfs-transport-handler  runremote cmd rid params attemptnum area-dat areapath readonly-mode testsuite mtexe))
       )))
 
 (define (nfs-transport-handler  runremote cmd run-id params attemptnum area-dat areapath readonly-mode testsuite mtexe)
@@ -198,10 +197,11 @@
 ;;======================================================================
 
 (define (rmt:kill-server run-id)
   (rmt:send-receive 'kill-server run-id (list run-id)))
 
+;; this should return host:port and any other needed info?
 (define (rmt:start-server run-id)
   (rmt:send-receive 'start-server 0 (list run-id)))
 
 ;;======================================================================
 ;;  M I S C

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -121,11 +121,11 @@
 ;; Given an area path,  start a server process    ### NOTE ### > file 2>&1 
 ;; if the target-host is set 
 ;; try running on that host
 ;;   incidental: rotate logs in logs/ dir.
 ;;
-(define  (server:run areapath) ;; areapath is *toppath* for a given testsuite area
+#;(define  (server:run areapath) ;; areapath is *toppath* for a given testsuite area
   (let* ((testsuite   (common:get-testsuite-name))
 	 (logfile     (conc areapath "/logs/server.log")) ;; -" curr-pid "-" target-host ".log"))
 	 (profile-mode (or (configf:lookup *configdat* "misc" "profilesw")
 			   ""))
 	 (cmdln (conc (common:get-megatest-exe)

Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -135,10 +135,11 @@
 (define (tt:client-connect-to-server ttdat dbfname run-id testsuite)
   (assert (tt:valid-run-id run-id dbfname) "FATAL: invalid run-id "run-id)
   (debug:print-info 2 *default-log-port* "tt:client-connect-to-server " dbfname " " run-id)
   (let* ((conn (hash-table-ref/default (tt-conns ttdat) dbfname #f))
 	 (server-start-proc (lambda ()
+			      
 			      (tt:server-process-run
 			       (tt-areapath ttdat)
 			       testsuite ;; (dbfile:testsuite-name)
 			       (common:find-local-megatest)
 			       run-id))))