Megatest

	  (http-transport:runs linkpath)
	  "<hr>"
	  (http-transport:run-stats)
	  "</body>"
	  )))

(define (http-transport:stats-table)
  (mutex-lock! *heartbeat-mutex*)
  (let ((res 
  (conc "<table>"
	"<tr><td>Max cached queries</td>        <td>" *max-cache-size* "</td></tr>"
	"<tr><td>Number of cached writes</td>   <td>" *number-of-writes* "</td></tr>"
	"<tr><td>Average cached write time</td> <td>" (if (eq? *number-of-writes* 0)
							  "n/a (no writes)"
							  (/ *writes-total-delay*
							     *number-of-writes*))
	" ms</td></tr>"
	"<tr><td>Number non-cached queries</td> <td>"  *number-non-write-queries* "</td></tr>"
	"<tr><td>Average non-cached time</td>   <td>" (if (eq? *number-non-write-queries* 0)
							  "n/a (no queries)"
							  (/ *total-non-write-delay* 
							     *number-non-write-queries*))
	" ms</td></tr></table>"))
	 (conc "<table>"
	       "<tr><td>Max cached queries</td>        <td>" *max-cache-size* "</td></tr>"
	       "<tr><td>Number of cached writes</td>   <td>" *number-of-writes* "</td></tr>"
	       "<tr><td>Average cached write time</td> <td>" (if (eq? *number-of-writes* 0)
								 "n/a (no writes)"
								 (/ *writes-total-delay*
								    *number-of-writes*))
	       " ms</td></tr>"
	       "<tr><td>Number non-cached queries</td> <td>"  *number-non-write-queries* "</td></tr>"
	       "<tr><td>Average non-cached time</td>   <td>" (if (eq? *number-non-write-queries* 0)
								 "n/a (no queries)"
								 (/ *total-non-write-delay* 
								    *number-non-write-queries*))
	       " ms</td></tr>"
	       "<tr><td>Last access</td><td>"              (seconds->time-string *last-db-access*) "</td></tr>"
	       "</table>")))
    (mutex-unlock! *heartbeat-mutex*)
    res))

(define (http-transport:runs linkpath)
  (conc "<h3>Runs</h3>"
	(string-intersperse
	 (let ((files (map pathname-strip-directory (glob (conc linkpath "/*")))))
	   (map (lambda (p)
		  (conc "<a href=\"" p "\">" p "</a><br>"))