@@ -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*)