Megatest

Check-in [aab3b2a0d7]
Login
Overview
Comment:Added very basic informative page to server
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.54 | v1.5428
Files: files | file ages | folders
SHA1: aab3b2a0d7c13addca3b037f80752742057496f3
User & Date: mrwellan on 2013-05-10 12:00:14
Other Links: branch diff | manifest | tags
Context
2013-05-16
01:31
Added missing clearing of cache when remove based on STATE/STATUS Leaf check-in: 1a7d256c0c user: matt tags: v1.54, v1.5429
2013-05-10
12:00
Added very basic informative page to server check-in: aab3b2a0d7 user: mrwellan tags: v1.54, v1.5428
11:16
Added very basic informative page to server check-in: 62a34aa67e user: mrwellan tags: v1.54, v1.5428
Changes

Modified http-transport.scm from [54f9cf430c] to [26ebbfd6a6].

428
429
430
431
432
433
434


435
436
437
438
439
440
441
442
443
444
445
446
447
448


















449
450
451
452
453
454
455
428
429
430
431
432
433
434
435
436














437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461







+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+







	  (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>"))