Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -40,10 +40,11 @@
     get-tests-for-run
     get-test-id
     get-tests-for-runs-mindata
     get-run-name-from-id
     get-runs
+    get-num-runs
     get-all-run-ids
     get-prev-run-ids
     get-run-ids-matching-target
     get-runs-by-patt
     get-steps-data
@@ -174,10 +175,11 @@
 	    ;;======================================================================
 
 	    ;; KEYS
 	    ((get-key-val-pairs)               (apply db:get-key-val-pairs dbstruct params))
 	    ((get-keys)                        (db:get-keys dbstruct))
+	    ((get-key-vals)                    (apply db:get-key-vals params))
 
 	    ;; ARCHIVES
 	    ((test-get-archive-block-info)     (apply db:test-get-archive-block-info dbstruct params))
 	    
 	    ;; TESTS
@@ -205,10 +207,11 @@
 	    ((set-run-status)               (apply db:set-run-status dbstruct params))
 	    ((get-tests-for-run)            (apply db:get-tests-for-run dbstruct params))
 	    ((get-test-id)                  (apply db:get-test-id dbstruct params))
 	    ((get-tests-for-run-mindata)    (apply db:get-tests-for-run-mindata dbstruct params))
 	    ((get-runs)                     (apply db:get-runs dbstruct params))
+	    ((get-num-runs)                 (apply db:get-num-runs dbstruct params))
 	    ((get-all-run-ids)              (db:get-all-run-ids dbstruct))
 	    ((get-prev-run-ids)             (apply db:get-prev-run-ids dbstruct params))
 	    ((get-run-ids-matching-target)  (apply db:get-run-ids-matching-target dbstruct params))
 	    ((get-runs-by-patt)             (apply db:get-runs-by-patt dbstruct params))
 	    ((get-run-name-from-id)         (apply db:get-run-name-from-id dbstruct params))

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -85,10 +85,13 @@
 (if (not (launch:setup-for-run))
     (begin
       (print "Failed to find megatest.config, exiting") 
       (exit 1)))
 
+(define *useserver* (or (args:get-arg "-use-server")
+			(configf:lookup *configdat* "dashboard" "use-server")))
+
 (define *dbdir* (db:dbfile-path #f)) ;; (conc (configf:lookup *configdat* "setup" "linktree") "/.db"))
 (define *dbstruct-local*  (make-dbr:dbstruct path:  *dbdir*
 					     local: #t))
 (define *db-file-path* (db:dbfile-path 0))
 
@@ -96,11 +99,13 @@
 (define *read-only* (not (file-read-access? *db-file-path*)))
 
 (define toplevel #f)
 (define dlg      #f)
 (define max-test-num 0)
-(define *keys*   (db:get-keys *dbstruct-local*))
+(define *keys*   (if *useserver*
+		     (rmt:get-keys)
+		     (db:get-keys *dbstruct-local*)))
 
 (define *dbkeys*  (append *keys* (list "runname")))
 
 (define *header*       #f)
 (define *allruns*     '())
@@ -109,11 +114,14 @@
 
 (define *buttondat*    (make-hash-table)) ;; <run-id color text test run-key>
 (define *alltestnamelst* '())
 (define *searchpatts*  (make-hash-table))
 (define *num-runs*      8)
-(define *tot-run-count* (db:get-num-runs *dbstruct-local* "%"))
+(define *tot-run-count* (if *useserver*
+			    (rmt:get-num-runs "%")
+			    (db:get-num-runs *dbstruct-local* "%")))
+
 ;; (define *tot-run-count* (db:get-num-runs *dbstruct-local* "%"))
 
 ;; Update management
 ;;
 (define *last-update*   (current-seconds))
@@ -209,12 +217,14 @@
     (null? (filter (lambda (x)(> x 3)) delta))))
 
 ;; keypatts: ( (KEY1 "abc%def")(KEY2 "%") )
 (define (update-rundat runnamepatt numruns testnamepatt keypatts)
   (let* ((referenced-run-ids '())
-	 (allruns     (db:get-runs *dbstruct-local* runnamepatt numruns ;; (+ numruns 1) ;; (/ numruns 2))
-				      *start-run-offset* keypatts))
+	 (allruns     (if *useserver*
+			  (rmt:get-runs runnamepatt numruns *start-run-offset* keypatts)
+			  (db:get-runs *dbstruct-local* runnamepatt numruns ;; (+ numruns 1) ;; (/ numruns 2))
+				      *start-run-offset* keypatts)))
 	 (header      (db:get-header allruns))
 	 (runs        (db:get-rows   allruns))
 	 (result      '())
 	 (maxtests    0)
 	 (states      (hash-table-keys *state-ignore-hash*))
@@ -228,19 +238,28 @@
     ;; 
     ;; trim runs to only those that are changing often here
     ;; 
     (for-each (lambda (run)
 		(let* ((run-id      (db:get-value-by-header run header "id"))
-		       (tests       (db:get-tests-for-run *dbstruct-local* run-id testnamepatt states statuses
-							  #f #f
-							  *hide-not-hide*
-							  sort-by
-							  sort-order
-							  'shortlist))
+		       (tests       (if *useserver*
+					(rmt:get-tests-for-run run-id testnamepatt states statuses
+							       #f #f
+							       *hide-not-hide*
+							       sort-by
+							       sort-order
+							       'shortlist)
+					(db:get-tests-for-run *dbstruct-local* run-id testnamepatt states statuses
+							      #f #f
+							      *hide-not-hide*
+							      sort-by
+							      sort-order
+							      'shortlist)))
 		       ;; NOTE: bubble-up also sets the global *all-item-test-names*
 		       ;; (tests       (bubble-up tmptests priority: bubble-type))
-		       (key-vals    (db:get-key-vals *dbstruct-local* run-id)))
+		       (key-vals    (if *useserver* 
+					(rmt:get-key-vals run-id)
+					(db:get-key-vals *dbstruct-local* run-id))))
 		  ;; NOTE: 11/01/2013 This routine is *NOT* getting called excessively.
 		  ;; (debug:print 0 "Getting data for run " run-id " with key-vals=" key-vals)
 		  ;; Not sure this is needed?
 		  (set! referenced-run-ids (cons run-id referenced-run-ids))
 		  (if (> (length tests) maxtests)
@@ -572,11 +591,13 @@
 		(iup:attribute-set! lb "VALUE" newval)
 		newval))))))
 
 (define (dashboard:update-target-selector key-lbs #!key (action-proc #f))
   (let* ((runconf-targs (common:get-runconfig-targets))
-	 (db-target-dat (db:get-targets *dbstruct-local*))
+	 (db-target-dat (if *useserver* 
+			    (rmt:get-targets)
+			    (db:get-targets *dbstruct-local*)))
 	 (header        (vector-ref db-target-dat 0))
 	 (db-targets    (vector-ref db-target-dat 1))
 	 (all-targets   (append db-targets
 				(map (lambda (x)
 				       (list->vector
@@ -804,11 +825,13 @@
 					    (iup:attribute-set! tb "VALUE" val)
 					    (dboard:data-set-run-name! *data* val)
 					    (dashboard:update-run-command))))
 		(refresh-runs-list (lambda ()
 				     (let* ((target        (dboard:data-get-target-string *data*))
-					    (runs-for-targ (db:get-runs-by-patt *dbstruct-local* *keys* "%" target #f #f #f))
+					    (runs-for-targ (if *useserver*
+							       (rmt:get-runs-by-patt *keys* "%" target #f #f #f)
+							       (db:get-runs-by-patt *dbstruct-local* *keys* "%" target #f #f #f)))
 					    (runs-header   (vector-ref runs-for-targ 0))
 					    (runs-dat      (vector-ref runs-for-targ 1))
 					    (run-names     (cons default-run-name 
 								 (map (lambda (x)
 									(db:get-value-by-header x runs-header "runname"))

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -354,10 +354,16 @@
   (rmt:send-receive 'get-key-val-pairs run-id (list run-id)))
 
 (define (rmt:get-keys)
   (rmt:send-receive 'get-keys #f '()))
 
+(define (rmt:get-key-vals run-id)
+  (rmt:send-receive 'get-key-vals #f (list run-id)))
+
+(define (rmt:get-targets)
+  (rmt:send-receive 'get-targets #f '()))
+
 ;;======================================================================
 ;;  T E S T S
 ;;======================================================================
 
 ;; Just some syntatic sugar
@@ -528,10 +534,13 @@
 ;;======================================================================
 
 (define (rmt:get-run-info run-id)
   (rmt:send-receive 'get-run-info run-id (list run-id)))
 
+(define (rmt:get-num-runs runpatt)
+  (rmt:send-receive 'get-num-runs #f (list runpatt)))
+
 ;; Use the special run-id == #f scenario here since there is no run yet
 (define (rmt:register-run keyvals runname state status user)
   (rmt:send-receive 'register-run #f (list keyvals runname state status user)))
     
 (define (rmt:get-run-name-from-id run-id)

Index: tests/fullrun/megatest.config
==================================================================
--- tests/fullrun/megatest.config
+++ tests/fullrun/megatest.config
@@ -163,12 +163,12 @@
 # Three minutes is 0.05 hours
 # timeout 0.025
 timeout 0.061
 
 # faststart; unless no, start server but proceed with writes until server started
-# faststart no
-faststart yes
+faststart no
+# faststart yes
 
 # Start server when average query takes longer than this
 # server-query-threshold 55500
 server-query-threshold 1000
 timeout 0.01