Overview
| Comment: | fixed indentation |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 | 1.6535 |
| Files: | files | file ages | folders |
| SHA1: |
1153bc2fbaf02086ad2b989accba68e6 |
| User & Date: | pjhatwal on 2019-09-19 14:59:07 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-09-25
| ||
| 15:22 | Added plan doc for ulex transition check-in: ad4a618778 user: mrwellan tags: v1.65 | |
|
2019-09-20
| ||
| 04:03 | Merged in v1.65 check-in: 24ae688ff1 user: matt tags: trunk | |
|
2019-09-19
| ||
| 14:59 | fixed indentation check-in: 1153bc2fba user: pjhatwal tags: v1.65, 1.6535 | |
| 14:52 | update to pgdb sync to have publish time check-in: 8f2462ead6 user: pjhatwal tags: v1.65 | |
Changes
Modified mt-pg.sql from [86e4db87d9] to [b692b264d4].
| ︙ | ︙ | |||
116 117 118 119 120 121 122 |
owner TEXT DEFAULT '',
event_time INTEGER DEFAULT extract(epoch from now()),
comment TEXT DEFAULT '',
fail_count INTEGER DEFAULT 0,
pass_count INTEGER DEFAULT 0,
last_update INTEGER DEFAULT extract(epoch from now()),
area_id INTEGER DEFAULT 0,
| | | 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 |
owner TEXT DEFAULT '',
event_time INTEGER DEFAULT extract(epoch from now()),
comment TEXT DEFAULT '',
fail_count INTEGER DEFAULT 0,
pass_count INTEGER DEFAULT 0,
last_update INTEGER DEFAULT extract(epoch from now()),
area_id INTEGER DEFAULT 0,
publish_time INTEGER default date_part('epoch'::text, now()),
CONSTRAINT runsconstraint UNIQUE (target,ttype_id,run_name, area_id));
create Table if not exists change_triggers (
id SERIAL PRIMARY KEY,
target TEXT NOT NULL,
area TEXT NOT NULL,
iteration INTEGER NOT NULL,
|
| ︙ | ︙ |
Modified tasks.scm from [3cc42b97c9] to [b5c98d9ead].
| ︙ | ︙ | |||
769 770 771 772 773 774 775 |
""))
(last-update (db:get-value-by-header row header "last_update"))
(keytarg (if (or (args:get-arg "-prepend-contour") (args:get-arg "-prefix-target"))
(conc "MT_CONTOUR/MT_AREA/" (string-intersperse (rmt:get-keys) "/")) (string-intersperse (rmt:get-keys) "/"))) ;; e.g. version/iteration/platform
(target (if (or (args:get-arg "-prepend-contour") (args:get-arg "-prefix-target"))
(conc (or (args:get-arg "-prefix-target") (conc contour "/" (common:get-area-name) "/")) (rmt:get-target run-id)) (rmt:get-target run-id))) ;; e.g. v1.63/a3e1/ubuntu
(spec-id (pgdb:get-ttype dbh keytarg))
| | < | 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 |
""))
(last-update (db:get-value-by-header row header "last_update"))
(keytarg (if (or (args:get-arg "-prepend-contour") (args:get-arg "-prefix-target"))
(conc "MT_CONTOUR/MT_AREA/" (string-intersperse (rmt:get-keys) "/")) (string-intersperse (rmt:get-keys) "/"))) ;; e.g. version/iteration/platform
(target (if (or (args:get-arg "-prepend-contour") (args:get-arg "-prefix-target"))
(conc (or (args:get-arg "-prefix-target") (conc contour "/" (common:get-area-name) "/")) (rmt:get-target run-id)) (rmt:get-target run-id))) ;; e.g. v1.63/a3e1/ubuntu
(spec-id (pgdb:get-ttype dbh keytarg))
(publish-time (if (args:get-arg "-cp-eventtime-to-publishtime")
event-time
(current-seconds)))
(new-run-id (pgdb:get-run-id dbh spec-id target run-name area-id)))
(if new-run-id
(begin ;; let ((run-record (pgdb:get-run-info dbh new-run-id))
(hash-table-set! runs-ht run-id new-run-id)
;; ensure key fields are up to date
;; if last_update == pgdb_last_update do not update smallest-last-update-time
(let* ((pgdb-last-update (pgdb:get-run-last-update dbh new-run-id))
(smallest-time (hash-table-ref/default smallest-last-update-time "smallest-time" #f)))
|
| ︙ | ︙ |