Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -620,11 +620,11 @@
 				     #:numlin-visible 5
 				     ))
 	 (colnames       (list "Id" "MTver" "Pid" "Host" "Interface:OutPort" "RunTime" "State" "RunId"))
 	 (updater        (lambda ()
 			   (if (dashboard:monitor-changed? commondat tabdat)
-			       (let ((servers  (server:get-list *toppath*)))
+			       (let ((servers  (server:get-list *toppath* limit: 10)))
 				 ;; (tasks:get-all-servers (db:delay-if-busy tdbdat))))
 				 (iup:attribute-set! servers-matrix "NUMLIN" (length servers))
 				 ;; (set! colnum 0)
 				 ;; (for-each (lambda (colname)
 				 ;;    	 ;; (print "colnum: " colnum " colname: " colname)
@@ -637,11 +637,11 @@
 				    (set! colnum 0)
 				    (match-let (((mod-time host port start-time pid)
 						 server))
 				      (let* ((uptime  (- (current-seconds) mod-time))
 					     (runtime (if start-time
-							  (- (current-seconds) start-time)
+							  (- mod-time start-time)
 							  0))
 					     (vals (list "-"  ;; (vector-ref server 0) ;; Id
 							 "-"  ;; (vector-ref server 9) ;; MT-Ver
 							 pid  ;; (vector-ref server 1) ;; Pid
 							 host ;; (vector-ref server 2) ;; Hostname

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -160,12 +160,13 @@
 	      (list #f #f #f)))))))
 
 ;; get a list of servers with all relevant data
 ;; ( mod-time host port start-time pid )
 ;;
-(define (server:get-list areapath)
-  (let ((fname-rx (regexp "^(|.*/)server-(\\d+)-(\\S+).log$")))
+(define (server:get-list areapath #!key (limit #f))
+  (let ((fname-rx    (regexp "^(|.*/)server-(\\d+)-(\\S+).log$"))
+	(day-seconds (* 24 60 60)))
     ;; if the directory exists continue to get the list
     ;; otherwise attempt to create the logs dir and then
     ;; continue
     (if (if (directory-exists? (conc areapath "/logs"))
 	    #t
@@ -175,24 +176,34 @@
 		      (create-directory (conc areapath "/logs") #t)
 		    (exn (i/o file)(debug:print 0 *default-log-port* "ERROR: Cannot create directory at " (conc areapath "/logs")))
 		    (exn ()(debug:print 0 *default-log-port* "ERROR: Unknown error attemtping to get server list.")))
 		  (directory-exists? (conc areapath "/logs")))
 		#f))
-	(let ((server-logs (glob (conc areapath "/logs/server-*.log"))))
+	(let* ((server-logs   (glob (conc areapath "/logs/server-*.log")))
+	       (num-serv-logs (length server-logs)))
 	  (if (null? server-logs)
 	      '()
 	      (let loop ((hed  (car server-logs))
 			 (tal  (cdr server-logs))
 			 (res '()))
-		(let* ((mod-time (file-modification-time hed))
-		       (serv-dat (server:logf-get-start-info hed))
+		(let* ((mod-time  (file-modification-time hed))
+		       (down-time (- (current-seconds) mod-time))
+		       (serv-dat  (if (or (< num-serv-logs 10)
+				  	  (< down-time day-seconds))
+				     (server:logf-get-start-info hed)
+				     '())) ;; don't waste time processing server files not touched in the past day if there are more than ten servers to look at
 		       (serv-rec (cons mod-time serv-dat))
 		       (fmatch   (string-match fname-rx hed))
 		       (pid      (if fmatch (string->number (list-ref fmatch 2)) #f))
-		       (new-res  (cons (append serv-rec (list pid)) res)))
-		  (if (null? tal)
-		      new-res
+		       (new-res  (if (null? serv-dat)
+				     res
+				     (cons (append serv-rec (list pid)) res))))
+		(if (null? tal)
+		    (if (and limit
+			     (> (length new-res) limit))
+			new-res ;; (take new-res limit)  <= need intelligent sorting before this will work
+			new-res)
 		      (loop (car tal)(cdr tal) new-res)))))))))
 
 ;; given a list of servers get a list of valid servers, i.e. at least
 ;; 10 seconds old, has started and is less than 1 hour old and is
 ;; active (i.e. mod-time < 10 seconds
@@ -209,11 +220,11 @@
 	       (let ((start-time (list-ref rec 3))
 		     (mod-time   (list-ref rec 0)))
 		 ;; (print "start-time: " start-time " mod-time: " mod-time)
 		 (and start-time mod-time
 		      (> (- now start-time) 1)    ;; been running at least 1 seconds
-		      (< (- now mod-time)   10)   ;; still alive - file touched in last 10 seconds
+		      (< (- now mod-time)   16)   ;; still alive - file touched in last 16 seconds
 		      (< (- now start-time) 3600) ;; under one hour running time
 		      )))
 	     srvlst)
      (lambda (a b)
        (< (list-ref a 3)