Overview
| Comment: | Added check for MT_ vars in dashboard. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
91fc43b9f0070cc6c64f813846a19dc3 |
| User & Date: | mrwellan on 2018-05-29 09:09:19 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-05-29
| ||
| 09:12 | Bumped version check-in: 268ce73e8a user: mrwellan tags: v1.65 | |
| 09:09 | Added check for MT_ vars in dashboard. check-in: 91fc43b9f0 user: mrwellan tags: v1.65 | |
| 09:08 | Minor formating cleanup check-in: c4eadcfc06 user: mrwellan tags: v1.65 | |
Changes
Modified dashboard.scm from [0829612ed4] to [c9420e909c].
| ︙ | ︙ | |||
99 100 101 102 103 104 105 106 107 108 109 110 111 112 |
"-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
| > > > > > > > > | 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 |
"-skip-version-check"
"-repl"
"-rh5.11" ;; fix to allow running on rh5.11
)
args:arg-hash
0))
;; check for MT_* environment variables and exit if found
(for-each (lambda (var)
(if (get-environment-variable var)
(begin
(print "ERROR: environment variable " var " is set in this terminal, this will cause you problems. Exiting now.")
(exit 1))))
'("MT_RUN_AREA_HOME" "MT_MEGATEST" "MT_CMDINFO" "MT_TEST_RUN_DIR" "MT_LINKTREE" "MT_TESTSUITENAME"))
(if (not (null? remargs))
(begin
(print "Unrecognised arguments: " (string-intersperse remargs " "))
(exit)))
(if (args:get-arg "-h")
(begin
|
| ︙ | ︙ |