X-Git-Url: http://git.hcoop.net/hcoop/zz_old/portal.git/blobdiff_plain/ff2b7604ffdbdae8ddd86c2a4366830ae9d32084..1b8fe8b9a87a942799558078898feb0a0fe52a02:/tables.sql

diff --git a/tables.sql b/tables.sql
index feaf3db..fc7a8cc 100644
--- a/tables.sql
+++ b/tables.sql
@@ -1,3 +1,22 @@
+CREATE TABLE MemberApp(
+	id INTEGER PRIMARY KEY,
+	name TEXT NOT NULL,
+	rname TEXT NOT NULL,
+	gname TEXT,
+	email TEXT NOT NULL,
+	forward BOOLEAN NOT NULL,
+	uses TEXT NOT NULL,
+	other TEXT NOT NULL,
+	passwd TEXT NOT NULL,
+	status INTEGER NOT NULL,
+	applied TIMESTAMP NOT NULL,
+	ipaddr TEXT,
+	confirmed TIMESTAMP,
+	decided TIMESTAMP,
+	msg TEXT NOT NULL);
+
+CREATE SEQUENCE MemberAppSeq START 1;
+
 CREATE TABLE Balance(
 	id INTEGER PRIMARY KEY,
 	name TEXT NOT NULL,
@@ -15,24 +34,31 @@ CREATE TABLE WebUser(
 	rname TEXT NOT NULL,
 	bal INTEGER NOT NULL,
 	joined TIMESTAMP NOT NULL,
-	FOREIGN KEY (bal) REFERENCES Balance(id) ON DELETE CASCADE);
+	app INTEGER NOT NULL,
+	shares INTEGER NOT NULL,
+	FOREIGN KEY (bal) REFERENCES Balance(id) ON DELETE CASCADE,
+	FOREIGN KEY (app) REFERENCES MemberApp(id) ON DELETE CASCADE);
 
 CREATE SEQUENCE WebUserSeq START 1;
 
 INSERT INTO WebUser
-	(id, name, bal) VALUES
-	(0, 'adam', 0);
+	(id, name, rname, bal, joined) VALUES
+	(0, 'adam', 'Adam Chlipala', 0, CURRENT_TIMESTAMP);
 
 CREATE TABLE WebGroup(
 	id INTEGER PRIMARY KEY,
 	name TEXT NOT NULL);
 
-CREATE SEQUENCE WebGroupSeq START 4;
+CREATE SEQUENCE WebGroupSeq START 2;
 
 INSERT INTO WebGroup
 	(id, name) VALUES
 	(0, 'root');
 
+INSERT INTO WebGroup
+	(id, name) VALUES
+	(1, 'paying');
+
 CREATE TABLE Membership(
 	grp INTEGER NOT NULL,
 	usr INTEGER NOT NULL,
@@ -44,6 +70,10 @@ INSERT INTO Membership
 	(grp, usr) VALUES
 	(0, 0);
 
+INSERT INTO Membership
+	(grp, usr) VALUES
+	(1, 0);
+
 CREATE TABLE Transaction(
 	id INTEGER PRIMARY KEY,
 	descr TEXT NOT NULL,
@@ -195,3 +225,69 @@ CREATE TABLE Domain(
 	FOREIGN KEY (usr) REFERENCES WebUser(id) ON DELETE CASCADE);
 
 CREATE SEQUENCE DomainSeq START 1;
+
+CREATE TABLE MailingList(
+	id INTEGER PRIMARY KEY,
+	usr INTEGER NOT NULL,
+	data TEXT NOT NULL,
+	msg TEXT NOT NULL,
+	status INTEGER NOT NULL,
+	stamp TIMESTAMP NOT NULL,
+	FOREIGN KEY (usr) REFERENCES WebUser(id) ON DELETE CASCADE);
+
+CREATE SEQUENCE MailingListSeq START 1;
+
+CREATE TABLE DirectoryPref(
+	usr INTEGER PRIMARY KEY,
+	FOREIGN KEY (usr) REFERENCES WebUser(id) ON DELETE CASCADE);
+
+CREATE TABLE AppVote(
+	app INTEGER NOT NULL,
+	usr INTEGER NOT NULL,
+	PRIMARY KEY (app, usr),
+	FOREIGN KEY (app) REFERENCES MemberApp(id) ON DELETE CASCADE,
+	FOREIGN KEY (usr) REFERENCES WebUser(id) ON DELETE CASCADE);
+
+CREATE VIEW WebUserPaying
+	AS SELECT id, name, rname, bal, joined, app, shares
+		FROM WebUser
+			JOIN (SELECT usr FROM Membership JOIN WebGroup
+				ON grp = WebGroup.id
+					AND WebGroup.name = 'paying') AS bob
+				ON usr = WebUser.id;
+
+CREATE VIEW WebUserActive
+	AS SELECT id, name, rname, bal, joined, app, shares
+		FROM WebUser
+			LEFT OUTER JOIN (SELECT usr FROM Membership JOIN WebGroup
+				ON grp = WebGroup.id AND (WebGroup.name IN ('retired', 'phantom'))) AS mem
+				ON usr = WebUser.id 
+		WHERE usr IS NULL;
+
+CREATE TABLE RollCall(
+	id INTEGER PRIMARY KEY,
+	title TEXT NOT NULL,
+	msg TEXT NOT NULL,
+	started TIMESTAMP NOT NULL);
+
+CREATE SEQUENCE RollCallSeq START 1;
+
+CREATE TABLE RollCallEntry(
+	rol INTEGER NOT NULL,
+	usr INTEGER NOT NULL,
+	code TEXT NOT NULL,
+	responded TIMESTAMP,
+	PRIMARY KEY (rol, usr),
+	FOREIGN KEY (rol) REFERENCES RollCall(id) ON DELETE CASCADE,
+	FOREIGN KEY (usr) REFERENCES WebUser(id) ON DELETE CASCADE);
+
+CREATE TABLE Sec(
+	id INTEGER PRIMARY KEY,
+	usr INTEGER NOT NULL,
+	data TEXT NOT NULL,
+	msg TEXT NOT NULL,
+	status INTEGER NOT NULL,
+	stamp TIMESTAMP NOT NULL,
+	FOREIGN KEY (usr) REFERENCES WebUser(id) ON DELETE CASCADE);
+
+CREATE SEQUENCE SecSeq START 1;