Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -105,10 +105,12 @@
 			"-:p"     ;; ignore the built in chicken profiling switch
 			)
 		 args:arg-hash
 		 0))
 
+(if (args:get-arg "-test") ;; need to use tcp for test control panel
+    (rmt:transport-mode 'tcp))
     
 ;; RA => Might require revert for filters 
 ;; create a watch dog to move changes from lt/.db/*.db to megatest.db
 ;;
 ;;;(if (file-write-access? (conc *toppath* "/megatest.db"))

Index: db_records.scm
==================================================================
--- db_records.scm
+++ db_records.scm
@@ -17,66 +17,10 @@
 
 ;;======================================================================
 ;; dbstruct
 ;;======================================================================
 
-;;
-;; -path-|-megatest.db
-;;       |-db-|-main.db
-;;            |-monitor.db
-;;            |-sdb.db
-;;            |-fdb.db
-;;            |-1.db
-;;            |-<N>.db
-;;
-;;
-;; Accessors for a dbstruct
-;;
-
-;; (define-inline (dbr:dbstruct-main    vec)    (vector-ref  vec 0)) ;; ( db path )
-;; (define-inline (dbr:dbstruct-strdb   vec)    (vector-ref  vec 1)) ;; ( db path )
-;; (define-inline (dbr:dbstruct-path    vec)    (vector-ref  vec 2)) 
-;; (define-inline (dbr:dbstruct-local   vec)    (vector-ref  vec 3))
-;; (define-inline (dbr:dbstruct-rundb   vec)    (vector-ref  vec 4)) ;; ( db path )
-;; (define-inline (dbr:dbstruct-inmem   vec)    (vector-ref  vec 5)) ;; ( db #f )
-;; (define-inline (dbr:dbstruct-mtime   vec)    (vector-ref  vec 6))
-;; (define-inline (dbr:dbstruct-rtime   vec)    (vector-ref  vec 7))
-;; (define-inline (dbr:dbstruct-stime   vec)    (vector-ref  vec 8))
-;; (define-inline (dbr:dbstruct-inuse   vec)    (vector-ref  vec 9))
-;; (define-inline (dbr:dbstruct-refdb   vec)    (vector-ref  vec 10)) ;; ( db path )
-;; (define-inline (dbr:dbstruct-locdbs  vec)    (vector-ref  vec 11))
-;; (define-inline (dbr:dbstruct-olddb   vec)    (vector-ref  vec 12)) ;; ( db path )
-;; ;; (define-inline (dbr:dbstruct-main-path vec)  (vector-ref  vec 13))
-;; ;; (define-inline (dbr:dbstruct-rundb-path vec) (vector-ref  vec 14))
-;; ;; (define-inline (dbr:dbstruct-run-id  vec)    (vector-ref  vec 13))
-;; 
-;; (define-inline (dbr:dbstruct-main-set!   vec val)(vector-set! vec 0 val))
-;; (define-inline (dbr:dbstruct-strdb-set!  vec val)(vector-set! vec 1 val))
-;; (define-inline (dbr:dbstruct-path-set!   vec val)(vector-set! vec 2 val))
-;; (define-inline (dbr:dbstruct-local-set!  vec val)(vector-set! vec 3 val))
-;; (define-inline (dbr:dbstruct-rundb-set!  vec val)(vector-set! vec 4 val))
-;; (define-inline (dbr:dbstruct-inmem-set!  vec val)(vector-set! vec 5 val))
-;; (define-inline (dbr:dbstruct-mtime-set!  vec val)(vector-set! vec 6 val))
-;; (define-inline (dbr:dbstruct-rtime-set!  vec val)(vector-set! vec 7 val))
-;; (define-inline (dbr:dbstruct-stime-set!  vec val)(vector-set! vec 8 val))
-;; (define-inline (dbr:dbstruct-inuse-set!  vec val)(vector-set! vec 9 val))
-;; (define-inline (dbr:dbstruct-refdb-set!  vec val)(vector-set! vec 10 val))
-;; (define-inline (dbr:dbstruct-locdbs-set! vec val)(vector-set! vec 11 val))
-;; (define-inline (dbr:dbstruct-olddb-set!  vec val)(vector-set! vec 12 val))
-;; (define-inline (dbr:dbstruct-main-path-set! vec val)(vector-set! vec 13 val))
-;; (define-inline (dbr:dbstruct-rundb-path-set! vec val)(vector-set! vec 14 val))
-;; 
-; (define-inline (dbr:dbstruct-run-id-set! vec val)(vector-set! vec 13 val))
-
-;; constructor for dbstruct
-;;
-;; (define (make-dbr:dbstruct #!key (path #f)(local #f))
-;;   (let ((v (make-vector 15 #f)))
-;;     (dbr:dbstruct-path-set! v path)
-;;     (dbr:dbstruct-local-set! v local)
-;;     (dbr:dbstruct-locdbs-set! v (make-hash-table))
-;;     v))
 
 ;; Returns the database for a particular run-id fron the dbstruct:localdbs
 ;;
 (define (dbr:dbstruct-localdb v run-id)
   (hash-table-ref/default (dbr:dbstruct-locdbs v) run-id #f))

Index: dbmod.scm
==================================================================
--- dbmod.scm
+++ dbmod.scm
@@ -83,10 +83,18 @@
 
 (define (dbmod:with-db dbstruct run-id r/w proc params)
   (let* ((dbdat  (dbmod:open-db dbstruct run-id (dbfile:db-init-proc)))
 	 (dbh    (dbr:dbdat-dbh dbdat)) ;; this will be the inmem handle
 	 (dbfile (dbr:dbdat-dbfile dbdat)))
+    ;; if nfs mode do a sync if delta > 2
+    (let* ((last-update (dbr:dbstruct-last-update dbstruct))
+	   (sync-proc   (dbr:dbstruct-sync-proc dbstruct))
+	   (curr-secs   (current-seconds)))
+      (if (> (- curr-secs last-update) 3)
+	  (begin
+	    (sync-proc last-update)
+	    (dbr:dbstruct-last-update-set! dbstruct curr-secs))))
     (apply proc dbdat dbh params)))
 
 (define (dbmod:open-inmem-db initproc)
   (let* ((db      (sqlite3:open-database ":memory:"))
 	 (handler (sqlite3:make-busy-timeout 3600)))