Overview
| Comment: | Cleaned up schema for common postgres db |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
5574ded5f0cae1bc67ce6944cce1d67c |
| User & Date: | matt on 2017-02-25 21:10:38 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-25
| ||
| 23:18 | Added placeholder for pgdb sync check-in: 096366f99c user: matt tags: v1.64 | |
| 21:28 | Incomplete merge of earlier postgresql gasket to v1.64 Closed-Leaf check-in: ea5c3cf6ec user: matt tags: pg-gasket-incomplete | |
| 21:10 | Cleaned up schema for common postgres db check-in: 5574ded5f0 user: matt tags: v1.64 | |
| 16:07 | Added a flexible targer mapper mechanism check-in: adda285a75 user: matt tags: v1.64 | |
Changes
Modified .mtutil.scm from [487da879e0] to [dc76b9e3b2].
1 2 3 4 | ;; example of how to set up and write target mappers ;; (define *target-mappers* | | | > > > | 1 2 3 4 5 6 7 8 9 10 11 |
;; example of how to set up and write target mappers
;;
(define *target-mappers*
`((prefix-contour . ,(lambda (target run-name area area-path reason contour mode-patt)
(conc contour "/" target)))
(prefix-area-contour . ,(lambda (target run-name area area-path reason contour mode-patt)
(conc area "/" contour "/" target)))))
;; (print "Yep, got here!")
|
Modified mt-pg.sql from [5d168e54a7] to [18b3da6663].
|
| | | | | | | > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
-- CREATE TABLE IF NOT EXISTS keys (
-- id INTEGER PRIMARY KEY,
-- fieldname TEXT,
-- fieldtype TEXT,
-- CONSTRAINT keyconstraint UNIQUE (fieldname));
DROP TABLE IF EXISTS areas;
DROP TABLE IF EXISTS ttype;
DROP TABLE IF EXISTS runs;
DROP TABLE IF EXISTS run_stats;
DROP TABLE IF EXISTS test_meta;
DROP TABLE IF EXISTS tasks_queue;
DROP TABLE IF EXISTS archive_disks;
DROP TABLE IF EXISTS archive_blocks;
DROP TABLE IF EXISTS archive_allocations;
DROP TABLE IF EXISTS extradat;
DROP TABLE IF EXISTS metadat;
DROP TABLE IF EXISTS access_log;
DROP TABLE IF EXISTS tests;
DROP TABLE IF EXISTS test_steps;
DROP TABLE IF EXISTS test_data;
DROP TABLE IF EXISTS test_rundat;
DROP TABLE IF EXISTS archives;
CREATE TABLE IF NOT EXISTS areas (
id INTEGER PRIMARY KEY,
areaname TEXT DEFAULT 'local',
areapath TEXT DEFAULT '.',
last_sync INTEGER DEFAULT 0,
CONSTRAINT areaconstraint UNIQUE (areaname));
|
| ︙ | ︙ | |||
104 105 106 107 108 109 110 |
CREATE TABLE IF NOT EXISTS access_log (
id INTEGER PRIMARY KEY,
"user" TEXT,
accessed TIMESTAMP,
args TEXT);
| | | 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 |
CREATE TABLE IF NOT EXISTS access_log (
id INTEGER PRIMARY KEY,
"user" TEXT,
accessed TIMESTAMP,
args TEXT);
CREATE TABLE IF NOT EXISTS tests (
id INTEGER PRIMARY KEY,
run_id INTEGER DEFAULT -1,
testname TEXT DEFAULT 'noname',
host TEXT DEFAULT 'n/a',
cpuload REAL DEFAULT -1,
diskfree INTEGER DEFAULT -1,
uname TEXT DEFAULT 'n/a',
|
| ︙ | ︙ |
Modified mtut.scm from [6641ed3af1] to [249adcc2cf].
| ︙ | ︙ | |||
30 31 32 33 34 35 36 37 38 39 40 41 42 43 |
(load debugcontrolf)))
;; this needs some thought regarding security implications.
;;
;; i. Check that owner of the file and calling user are same?
;; ii. Check that we are in a legal megatest area?
;; iii. Have some form of authentication or record of the md5sum or similar of the file?
;;
(if (file-exists? "megatest.config")
(if (file-exists? ".mtutil.so")
(load ".mtutil.so")
(if (file-exists? ".mtutil.scm")
(load ".mtutil.scm"))))
| > > | 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 |
(load debugcontrolf)))
;; this needs some thought regarding security implications.
;;
;; i. Check that owner of the file and calling user are same?
;; ii. Check that we are in a legal megatest area?
;; iii. Have some form of authentication or record of the md5sum or similar of the file?
;; iv. Use compiled version in preference to .scm version. Thus there is a manual "blessing"
;; required to use .mtutil.scm.
;;
(if (file-exists? "megatest.config")
(if (file-exists? ".mtutil.so")
(load ".mtutil.so")
(if (file-exists? ".mtutil.scm")
(load ".mtutil.scm"))))
|
| ︙ | ︙ |