Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -1945,21 +1945,28 @@
 	 "SELECT count(id) FROM test_rundat;")
 	res))
   0)
 
 ;; 
-(define (tests:update-central-meta-info run-id test-id cpuload diskfree minutes uname hostname #!key (update-db #f))
+(define (tests:update-central-meta-info run-id test-id cpuload diskfree minutes uname hostname #!key (update-db #f)(tmpfree #f))
   (if (get-environment-variable "MT_TEST_RUN_DIR")
       (let* ((dest-dir (conc (get-environment-variable "MT_TEST_RUN_DIR") "/.mt_data"))
-	     (or-dash  (lambda (instr)(if instr instr "-"))))
-	(if (not (directory-exists? dest-dir))(create-directory dest-dir #t))
+	     (or-dash  (lambda (instr)
+			 (cond
+			  ((not instr) "") ;; #f -> blank, indicates value unchanged since last measurement taken
+			  ((string? instr)(if (string-search " " instr) (conc "\"" instr "\"") instr))
+			  (else instr))))
+	     (file-new (not (directory-exists? dest-dir))))
+	(if file-new (create-directory dest-dir #t))
 	(let* ((outp (open-output-file (conc dest-dir "/test-run.dat") #:append)))
 	  (with-output-to-port outp
 	    (lambda ()
-	      (print (current-seconds) " " (or-dash run-id)  " " (or-dash test-id)  " "
-		     (or-dash cpuload) " " (or-dash diskfree) " "
-		     (or-dash minutes) " " (or-dash hostname) " "
+	      (if file-new
+		  (print "epoch_time,run_id,test_id,cpuload,diskfree,tmpfree,run_minutes,hostname,uname"))
+	      (print (current-seconds) "," (or-dash run-id)   "," (or-dash test-id)  ","
+		     (or-dash cpuload) "," (or-dash diskfree) "," (or-dash tmpfree)  ","
+		     (or-dash minutes) "," (or-dash hostname) ","
 		     (or-dash uname)))) ;; put uname last as it has spaces in it
 	  (close-output-port outp)))
       (begin
 	(rmt:general-call 'update-test-rundat run-id test-id (current-seconds) (or cpuload -1)(or diskfree -1) -1 (or minutes -1))))
   (if update-db
@@ -1975,13 +1982,14 @@
 (define (tests:set-full-meta-info db test-id run-id minutes work-area remtries #!key (update-db #f))
 ;; (define (tests:set-full-meta-info test-id run-id minutes work-area)
 ;;  (let ((remtries 10))
   (let* ((cpuload  (get-cpu-load))
 	 (diskfree (get-df (current-directory)))
+	 (tmpfree  (get-df "/tmp"))
 	 (uname    (get-uname "-srvpio"))
 	 (hostname (get-host-name)))
-    (tests:update-central-meta-info run-id test-id cpuload diskfree minutes uname hostname update-db: update-db)))
+    (tests:update-central-meta-info run-id test-id cpuload diskfree minutes uname hostname update-db: update-db tmpfree: tmpfree)))
     
 	 
 ;;======================================================================
 ;; A R C H I V I N G
 ;;======================================================================