Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -902,11 +902,11 @@
 	 (servers-matrix (iup:matrix #:expand "YES"
 				     #:numcol 7
 				     #:numcol-visible 7
 				     #:numlin-visible 5
 				     ))
-	 (colnames       (list "Id" "MTver" "Pid" "Host" "Interface:OutPort" "RunTime" "State" "RunId"))
+	 (colnames       (list "Id" "MTver" "Pid" "Host" "Interface:port" "Runtime" "State" "Db"))
 	 (updater        (lambda ()
 			   (if (dashboard:monitor-changed? commondat tabdat)
 			       (let ((servers  (rmt:get-servers-info *toppath*)#;(server:get-list *toppath* limit: 10)))
 				 (iup:attribute-set! servers-matrix "NUMLIN" (length servers))
 				 ;; (set! colnum 0)
@@ -916,28 +916,25 @@
 				 ;;    	 (set! colnum (+ 1 colnum)))
 				 ;;           colnames)
 				 (set! rownum 1)
 				 (for-each 
 				  (lambda (server)
-				    (set! colnum 0)
-				    (match-let (((mod-time host port start-time server-id pid)
+				    (set! colnum 0) ;; id host port servkey pid ipaddr apath dbname event_time
+				    (match-let (((id host port server-id pid ipaddr apath dbname start-time) ;; (mod-time host port start-time server-id pid)
 						 server))
-				      (let* ((uptime  (- (current-seconds) mod-time))
-					     (runtime (if start-time
+				      (let* ((uptime  (- (current-seconds) start-time))
+					     #;(runtime (if start-time
 							  (- mod-time start-time)
 							  0))
-					     (vals (list "-"  ;; (vector-ref server 0) ;; Id
+					     (vals (list server-id  ;; (vector-ref server 0) ;; Id
 							 "-"  ;; (vector-ref server 9) ;; MT-Ver
 							 pid  ;; (vector-ref server 1) ;; Pid
 							 host ;; (vector-ref server 2) ;; Hostname
 							 (conc host ":" port) ;; (conc (vector-ref server 3) ":" (vector-ref server 4)) ;; IP:Port
-							 (seconds->hr-min-sec runtime) ;; (- (current-seconds) start-time)) ;; (vector-ref server 6)))
-							 (cond
-							  ((< uptime 5)  "alive")
-							  ((< uptime 16) "probably alive");; less than 15 seconds since mod, call it alive (vector-ref server 8) ;; State
-							  (else "dead"))
-							 "-" ;; (vector-ref server 12)  ;; RunId
+							 (seconds->hr-min-sec uptime)  ;; Runtime
+							 "Running" ;; State - Do some kind of ping here 
+							 dbname ;;  Db
 							 )))
 					(for-each (lambda (val)
 						    (let* ((row-col (conc rownum ":" colnum))
 							   (curr-val (iup:attribute servers-matrix row-col)))
 						      (if (not (equal? (conc val) curr-val))