Index: dashboard.scm ================================================================== --- dashboard.scm +++ dashboard.scm @@ -40,13 +40,14 @@ "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest version " megatest-version " license GPL, Copyright (C) Matt Welland 2011 Usage: dashboard [options] - -h : this help - -test testid : control test identified by testid - -guimonitor : control panel for runs + -h : this help + -server host:port : connect to host:port instead of db access + -test testid : control test identified by testid + -guimonitor : control panel for runs Misc -rows N : set number of rows ")) @@ -55,10 +56,11 @@ (argv) (list "-rows" "-run" "-test" "-debug" + "-server" ) (list "-h" "-guimonitor" "-main" "-v" @@ -76,11 +78,15 @@ (begin (print "Failed to find megatest.config, exiting") (exit 1))) (define *db* #f) ;; (open-db)) -;; (server:client-launch) + +(if (args:get-arg "-server") + (begin + (set! *runremote* (string-split (args:get-arg "-server" ":"))) + (server:client-launch))) ;; HACK ALERT: this is a hack, please fix. (define *read-only* (not (file-read-access? (conc *toppath* "/megatest.db")))) ;; (server:client-setup *db*) Index: tests/fullrun/config/mt_include_1.config ================================================================== --- tests/fullrun/config/mt_include_1.config +++ tests/fullrun/config/mt_include_1.config @@ -1,9 +1,9 @@ [setup] # exectutable /path/to/megatest max_concurrent_jobs 50 -linktree /tmp/mt_links +linktree #{getenv MT_RUN_AREA_HOME}/tmp/mt_links [jobtools] useshell yes # ## launcher launches jobs, the job is managed on the target host ## by megatest, comment out launcher to run local Index: tests/fullrun/config/mt_include_2.config ================================================================== --- tests/fullrun/config/mt_include_2.config +++ tests/fullrun/config/mt_include_2.config @@ -1,2 +1,2 @@ [disks] -disk0 /tmp/mt_runs +disk0 #{getenv MT_RUN_AREA_HOME}/tmp/mt_runs