Index: commonmod.scm ================================================================== --- commonmod.scm +++ commonmod.scm @@ -146,10 +146,11 @@ common:low-noise-print common:make-tmpdir-name common:max common:min-max common:nice-path + nice-path common:pkts-spec common:raw-get-remote-host-load common:read-encoded-string common:real-path common:send-thunk-to-background-thread Index: mtbody.scm ================================================================== --- mtbody.scm +++ mtbody.scm @@ -304,11 +304,11 @@ (define (main) ;; remove when configf fully modularized (read-config-set! configf:read-file) - (define *usage-log-file* #f) ;; put path to file for logging usage in this var in the ~/.megatestrc file + (define *usage-log-file* "") ;; put path to file for logging usage in this var in the ~/.megatestrc file (define *usage-use-seconds* #t) ;; for Epoc seconds in usage logging change this to #t in ~/.megatestrc file ;; set some parameters here - these need to be put in something that can be loaded from other ;; executables such as dashboard and mtutil ;; @@ -327,12 +327,12 @@ (if (common:file-exists? debugcontrolf) (load debugcontrolf))) ;; usage logging, careful with this, it is not designed to deal with all real world challenges! ;; - (if (and (string? *usage-log-file*) - (file-write-access? *usage-log-file*)) + (if (not (string=? *usage-log-file* "")) + (if (file-write-access? *usage-log-file*) (with-output-to-file *usage-log-file* (lambda () (print (if *usage-use-seconds* (current-seconds) @@ -341,11 +341,11 @@ "%Yww%V.%w %H:%M:%S")) " " (current-user-name) " " (current-directory) " " "\"" (string-intersperse (argv) " ") "\"")) - #:append)) + #:append))) ;; Disabled help items ;; -rollup : (currently disabled) fill run (set by :runname) with latest test(s) ;; from prior runs with same keys ;; -daemonize : fork into background and disconnect from stdin/out