Overview
| Comment: | Properly add groups table, note that pkt groups are mapped to Megatest areas. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | run-mgr |
| Files: | files | file ages | folders |
| SHA1: |
936256f9c5bac935fdb0089b164121cd |
| User & Date: | matt on 2017-02-11 23:43:47 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-12
| ||
| 03:07 | Added megatest.config in top dir for developing mtutil. check-in: e8b9f87644 user: matt tags: run-mgr | |
|
2017-02-11
| ||
| 23:43 | Properly add groups table, note that pkt groups are mapped to Megatest areas. check-in: 936256f9c5 user: matt tags: run-mgr | |
| 23:40 | process pkts adds to queue. check-in: e15e06c331 user: matt tags: run-mgr | |
Changes
Modified mtut.scm from [25a2bd957e] to [4b4f3840c4].
| ︙ | ︙ | |||
174 175 176 177 178 179 180 |
(toppath (configf:lookup mtconf "dyndat" "toppath"))
(pdbpath (or (configf:lookup mtconf "setup" "pdbpath") pktsdir)))
(if (not (and pktsdir toppath pdbpath))
(begin
(print "ERROR: settings are missing in your megatest.config for area management.")
(print " you need to have pktsdir in the [setup] section."))
(let* ((pdb (open-queue-db pdbpath "pkts.db"
| | | 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 |
(toppath (configf:lookup mtconf "dyndat" "toppath"))
(pdbpath (or (configf:lookup mtconf "setup" "pdbpath") pktsdir)))
(if (not (and pktsdir toppath pdbpath))
(begin
(print "ERROR: settings are missing in your megatest.config for area management.")
(print " you need to have pktsdir in the [setup] section."))
(let* ((pdb (open-queue-db pdbpath "pkts.db"
schema: '("CREATE TABLE groups (id INTEGER PRIMARY KEY,groupname TEXT, CONSTRAINT group_constraint UNIQUE (groupname));")))
(pkts (glob (conc pktsdir "/*.pkt"))))
(for-each
(lambda (pkt)
(let* ((uuid (cadr (string-match ".*/([0-9a-f]+).pkt" pkt)))
(exists (lookup-by-uuid pdb uuid #f)))
(if (not exists)
(let ((pktdat (string-intersperse
|
| ︙ | ︙ |