Megatest

Check-in [bfb8cd713d]
Login
Overview
Comment:Added switch to allow running dashboard without using detachbox. -rh5.8 is the switch
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64
Files: files | file ages | folders
SHA1: bfb8cd713d8ecf49ea6a9352e5d495140501f32b
User & Date: mrwellan on 2017-05-02 14:08:35
Other Links: branch diff | manifest | tags
Context
2017-05-02
21:29
Keep proxy support off unless enabled as client/use-http_proxy yes check-in: 8a064fafa8 user: matt tags: v1.64
14:08
Added switch to allow running dashboard without using detachbox. -rh5.8 is the switch check-in: bfb8cd713d user: mrwellan tags: v1.64
2017-04-29
07:40
Added automatic target adjustment on running -cleanup-db. Calls to db:multi-db-sync will do the passed in operations in the order provided. Force an exit for some operations if not on homehost by looking at switches/parameters. check-in: 50414b8e0e user: matt tags: v1.64
Changes

Modified dashboard.scm from [82b3909808] to [d20c583197].

83
84
85
86
87
88
89

90
91
92
93
94
95
96
97
98
99
100
101
102
103



104
105
106
107
108
109
110
			"-guimonitor"
			"-main"
			"-v"
			"-q"
			"-use-db-cache"
			"-skip-version-check"
			"-repl"

			)
		 args:arg-hash
		 0))

(if (not (null? remargs))
    (begin
      (print "Unrecognised arguments: " (string-intersperse remargs " "))
      (exit)))

(if (args:get-arg "-h")
    (begin
      (print help)
      (exit)))




;; TODO: Move this inside (main)
;;
(if (not (launch:setup))
    (begin
      (print "Failed to find megatest.config, exiting") 
      (exit 1)))








>














>
>
>







83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
			"-guimonitor"
			"-main"
			"-v"
			"-q"
			"-use-db-cache"
			"-skip-version-check"
			"-repl"
                        "-rh5.8" ;; fix to allow running on rh5.8
			)
		 args:arg-hash
		 0))

(if (not (null? remargs))
    (begin
      (print "Unrecognised arguments: " (string-intersperse remargs " "))
      (exit)))

(if (args:get-arg "-h")
    (begin
      (print help)
      (exit)))

(if (args:get-arg "-rh5.8")
    (set! iup:detachbox iup:vbox))

;; TODO: Move this inside (main)
;;
(if (not (launch:setup))
    (begin
      (print "Failed to find megatest.config, exiting") 
      (exit 1)))