Overview
| Comment: | added flag to allow adding prefix to target |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
1fee8d8e98618e1481ac24bd238ba957 |
| User & Date: | srehman on 2017-03-15 17:32:13 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-04-04
| ||
| 16:44 | changes for webapp Closed-Leaf check-in: 46824503fa user: pjhatwal tags: pjhatwal1.64 | |
|
2017-03-16
| ||
| 12:13 | added pgsync via command line creds check-in: 5d1a6894bb user: srehman tags: v1.64 | |
|
2017-03-15
| ||
| 17:32 | added flag to allow adding prefix to target check-in: 1fee8d8e98 user: srehman tags: v1.64 | |
|
2017-03-08
| ||
| 18:52 | added filter to runs page check-in: f7eea52531 user: pjhatwal tags: v1.64 | |
Changes
Modified megatest.scm from [4efda530ec] to [eda3e8595c].
| ︙ | ︙ | |||
286 287 288 289 290 291 292 293 294 295 296 297 298 299 |
"-target-db"
"-source-db"
"-src-target"
"-src-runname"
"-diff-email"
"-sync-to"
"-diff-html"
)
(list "-h" "-help" "--help"
"-manual"
"-version"
"-force"
"-xterm"
| > | 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 |
"-target-db"
"-source-db"
"-src-target"
"-src-runname"
"-diff-email"
"-sync-to"
"-prefix-target"
"-diff-html"
)
(list "-h" "-help" "--help"
"-manual"
"-version"
"-force"
"-xterm"
|
| ︙ | ︙ |
Modified tasks.scm from [65c9539101] to [57e383db06].
| ︙ | ︙ | |||
613 614 615 616 617 618 619 |
(define (tasks:run-id->mtpg-run-id dbh cached-info run-id)
(let* ((runs-ht (hash-table-ref cached-info 'runs))
(runinf (hash-table-ref/default runs-ht run-id #f)))
(if runinf
runinf ;; already cached
(let* ((keytarg (string-intersperse (rmt:get-keys) "/")) ;; e.g. version/iteration/platform
(spec-id (pgdb:get-ttype dbh keytarg))
| | | 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 |
(define (tasks:run-id->mtpg-run-id dbh cached-info run-id)
(let* ((runs-ht (hash-table-ref cached-info 'runs))
(runinf (hash-table-ref/default runs-ht run-id #f)))
(if runinf
runinf ;; already cached
(let* ((keytarg (string-intersperse (rmt:get-keys) "/")) ;; e.g. version/iteration/platform
(spec-id (pgdb:get-ttype dbh keytarg))
(target (if (and (args:get-arg "-sync-to") (args:get-arg "-prefix-target")) (set! target (conc (args:get-arg "-prefix-target") (rmt:get-target run-id))) (rmt:get-target run-id))) ;; e.g. v1.63/a3e1/ubuntu
(run-dat (rmt:get-run-info run-id)) ;; NOTE: get-run-info returns a vector < row header >
(run-name (rmt:get-run-name-from-id run-id))
(new-run-id (pgdb:get-run-id dbh spec-id target run-name))
(row (db:get-rows run-dat)) ;; yes, this returns a single row
(header (db:get-header run-dat))
(state (db:get-value-by-header row header "state "))
(status (db:get-value-by-header row header "status"))
|
| ︙ | ︙ |