Overview
| Comment: | Merged fix for RH 5.11 lack of support for detachbox. Changed default launch delay to 0. It is too irritating to wait. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
293d28e2affb66849b495be73a6a4116 |
| User & Date: | matt on 2017-05-03 00:54:40 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-05-03
| ||
| 16:10 | fixed version file check-in: eb34fd6853 user: bjbarcla tags: v1.64 | |
| 00:54 | Merged fix for RH 5.11 lack of support for detachbox. Changed default launch delay to 0. It is too irritating to wait. check-in: 293d28e2af user: matt tags: v1.64 | |
| 00:27 | Fix for contour field addition on running -cleanup-db check-in: 01ab9ebe8a user: matt tags: v1.64 | |
|
2017-05-02
| ||
| 14:29 | Updated 5.8 to 5.11 to maintain correct version naming Leaf check-in: 3a2f81e917 user: jmoon18 tags: v1.6408a | |
Changes
Modified dashboard.scm from [d20c583197] to [0602a86188].
| ︙ | ︙ | |||
83 84 85 86 87 88 89 | "-guimonitor" "-main" "-v" "-q" "-use-db-cache" "-skip-version-check" "-repl" | | < < < > > > > > > > | 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 115 116 117 118 119 120 121 122 123 124 |
"-guimonitor"
"-main"
"-v"
"-q"
"-use-db-cache"
"-skip-version-check"
"-repl"
"-rh5.11" ;; fix to allow running on rh5.11
)
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)))
;; deal with RH 5.11 gtk lib or iup lib missing detachbox feature
;; first check for the switch
;;
(if (or (args:get-arg "-rh5.11")
(configf:lookup *configdat* "dashboard" "no-detachbox"))
(set! iup:detachbox iup:vbox))
(if (not (common:on-homehost?))
(begin
(debug:print 0 *default-log-port* "WARNING: Current policy requires running dashboard on homehost: " (common:get-homehost))))
;; RA => Might require revert for filters
;; create a watch dog to move changes from lt/.db/*.db to megatest.db
|
| ︙ | ︙ |
Modified launch.scm from [a8ba6b6a12] to [12386485fd].
| ︙ | ︙ | |||
1204 1205 1206 1207 1208 1209 1210 |
;; - could be netbatch
;; (launch-test db (cadr status) test-conf))
(define (launch-test test-id run-id run-info keyvals runname test-conf test-name test-path itemdat params)
(mutex-lock! *launch-setup-mutex*) ;; setting variables and processing the testconfig is NOT thread-safe, reuse the launch-setup mutex
(let* ((item-path (item-list->path itemdat))
(contour #f)) ;; NOT READY FOR THIS (args:get-arg "-contour")))
(let loop ((delta (- (current-seconds) *last-launch*))
| | | 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 |
;; - could be netbatch
;; (launch-test db (cadr status) test-conf))
(define (launch-test test-id run-id run-info keyvals runname test-conf test-name test-path itemdat params)
(mutex-lock! *launch-setup-mutex*) ;; setting variables and processing the testconfig is NOT thread-safe, reuse the launch-setup mutex
(let* ((item-path (item-list->path itemdat))
(contour #f)) ;; NOT READY FOR THIS (args:get-arg "-contour")))
(let loop ((delta (- (current-seconds) *last-launch*))
(launch-delay (string->number (or (configf:lookup *configdat* "setup" "launch-delay") "0"))))
(if (> launch-delay delta)
(begin
(debug:print-info 0 *default-log-port* "Delaying launch of " test-name " for " (- launch-delay delta) " seconds")
(thread-sleep! (- launch-delay delta))
(loop (- (current-seconds) *last-launch*) launch-delay))))
(change-directory *toppath*)
(alist->env-vars ;; consolidate this code with the code in megatest.scm for "-execute", *maybe* - the longer they are set the longer each launch takes (must be non-overlapping with the vars)
|
| ︙ | ︙ |