Overview
| Comment: | Fixed typo in warning for pktsdirs not being setup |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
a3760325d1d17ed96dc4138ae6e1f32b |
| User & Date: | jmoon18 on 2018-05-22 17:39:36 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-05-23
| ||
| 14:53 | in script triggers targets need to be returned as list check-in: ee1d5c9fac user: mrwellan tags: v1.65 | |
|
2018-05-22
| ||
| 17:39 | Fixed typo in warning for pktsdirs not being setup check-in: a3760325d1 user: jmoon18 tags: v1.65 | |
| 12:39 | ! var support check-in: 0323ded23f user: mrwellan tags: v1.65 | |
Changes
Modified common.scm from [7382d07655] to [63f9efbb8f].
| ︙ | ︙ | |||
2699 2700 2701 2702 2703 2704 2705 |
(pktsdir (if pktsdirs (car pktsdirs) #f))
(toppath (or (configf:lookup mtconf "scratchdat" "toppath")
toppath-in))
(pdbpath (or (configf:lookup mtconf "setup" "pdbpath") pktsdir)))
(cond
((not (and pktsdir toppath pdbpath))
(debug:print 0 *default-log-port* "ERROR: settings are missing in your megatest.config for area management.")
| | | 2699 2700 2701 2702 2703 2704 2705 2706 2707 2708 2709 2710 2711 2712 2713 |
(pktsdir (if pktsdirs (car pktsdirs) #f))
(toppath (or (configf:lookup mtconf "scratchdat" "toppath")
toppath-in))
(pdbpath (or (configf:lookup mtconf "setup" "pdbpath") pktsdir)))
(cond
((not (and pktsdir toppath pdbpath))
(debug:print 0 *default-log-port* "ERROR: settings are missing in your megatest.config for area management.")
(debug:print 0 *default-log-port* " you need to have pktsdirs in the [setup] section."))
((not (common:file-exists? pktsdir))
(debug:print 0 *default-log-port* "ERROR: pkts directory not found " pktsdir))
((not (equal? (file-owner pktsdir)(current-effective-user-id)))
(debug:print 0 *default-log-port* "ERROR: directory " pktsdir " is not owned by " (current-effective-user-name)))
(else
(let* ((pdb (open-queue-db pdbpath "pkts.db"
schema: '("CREATE TABLE groups (id INTEGER PRIMARY KEY,groupname TEXT, CONSTRAINT group_constraint UNIQUE (groupname));"))))
|
| ︙ | ︙ |