\prompt 'domain name: ' domain
\prompt 'instance name: ' inst
\prompt 'bind to socket: ' bind
\qecho 'how locked down should this server be? public = anyone can see public timeline and tweets, private = anyone can see tweets with a link but login required for everything else, lockdown = login required for all activities, isolate = like lockdown but with federation protocols completely disabled'
\prompt 'security mode: ' secmode
\qecho 'should user self-registration be allowed? yes or no'
\prompt 'registration: ' regpol
\qecho 'by default, parsav tracks rights on its own. you can override this later by replacing the rights table with a view, but you''ll then need to set appropriate rules on the view to allow administrators to modify rights from the web UI, or set the rights-readonly flag in the config table to true. for now, enter the name of an actor who will be granted full rights when she logs in and identified as the server owner.'
\prompt 'master actor: ' admin
\qecho 'you will need to create an authentication view named parsav_auth mapping your user database to something parsav can understand; see auth.sql for an example.'
begin;
drop table if exists parsav_config;
create table if not exists parsav_config (
key text primary key,
value text
);
insert into parsav_config (key,value) values
('bind',:'bind'),
('domain',:'domain'),
('instance-name',:'inst'),
('policy-security',:'secmode'),
('policy-self-register',:'regpol'),
('master',:'admin'),
('server-secret', encode(
digest(int8send((2^63 * (random()*2 - 1))::bigint),
'sha512'), 'base64'));
-- note that valid ids should always > 0, as 0 is reserved for null
-- on the client side, vastly simplifying code
drop table if exists parsav_servers cascade;
create table parsav_servers (
id bigint primary key default (1+random()*(2^63-1))::bigint,
domain text not null,
key bytea,
parsav boolean -- whether to use parsav protocol extensions
);
drop table if exists parsav_actors cascade;
create table parsav_actors (
id bigint primary key default (1+random()*(2^63-1))::bigint,
nym text,
handle text not null, -- nym [@handle@origin]
origin bigint references parsav_servers(id)
on delete cascade, -- null origin = local actor
bio text,
avataruri text, -- null if local
rank smallint not null default 0,
quota integer not null default 1000,
key bytea, -- private if localactor; public if remote
title text
unique (handle,origin)
);
drop table if exists parsav_rights cascade;
create table parsav_rights (
key text,
actor bigint references parsav_actors(id)
on delete cascade,
allow boolean,
primary key (key,actor)
);
insert into parsav_actors (handle,rank,quota) values (:'admin',1,0);
insert into parsav_rights (actor,key,allow)
select (select id from parsav_actors where handle=:'admin'), a.column1, a.column2 from (values
('ban',true),
('config',true),
('censor',true),
('suspend',true),
('rebrand',true)
) as a;
drop table if exists parsav_posts cascade;
create table parsav_posts (
id bigint primary key default (1+random()*(2^63-1))::bigint,
author bigint references parsav_actors(id)
on delete cascade,
subject text,
acl text not null default 'all', -- just store the script raw 🤷
body text,
posted timestamp not null,
discovered timestamp not null,
scope smallint not null,
convo bigint,
parent bigint,
circles bigint[],
mentions bigint[]
);
drop table if exists parsav_conversations cascade;
create table parsav_conversations (
id bigint primary key default (1+random()*(2^63-1))::bigint,
uri text not null,
discovered timestamp not null,
head bigint references parsav_posts(id)
);
drop table if exists parsav_rels cascade;
create table parsav_rels (
relator bigint references parsav_actors(id)
on delete cascade, -- e.g. follower
relatee bigint references parsav_actors(id)
on delete cascade, -- e.g. followed
kind smallint, -- e.g. follow, block, mute
primary key (relator, relatee, kind)
);
drop table if exists parsav_acts cascade;
create table parsav_acts (
id bigint primary key default (1+random()*(2^63-1))::bigint,
kind text not null, -- like, react, so on
time timestamp not null default now(),
actor bigint references parsav_actors(id)
on delete cascade,
subject bigint -- may be post or act, depending on kind
);
drop table if exists parsav_log cascade;
create table parsav_log (
-- accesses are tracked for security & sending delete acts
id bigint primary key default (1+random()*(2^63-1))::bigint,
time timestamp not null default now(),
actor bigint references parsav_actors(id)
on delete cascade,
post bigint not null
);
drop table if exists parsav_attach cascade;
create table parsav_attach (
id bigint primary key default (1+random()*(2^63-1))::bigint,
birth timestamp not null default now(),
content bytea not null,
mime text, -- null if unknown, will be reported as x-octet-stream
description text,
parent bigint -- post id, or userid for avatars
);
drop table if exists parsav_circles cascade;
create table parsav_circles (
id bigint primary key default (1+random()*(2^63-1))::bigint,
owner bigint not null references parsav_actors(id),
name text not null,
members bigint[] not null default array[],
unique (owner,name)
);
drop table if exists parsav_rooms cascade;
create table parsav_rooms (
id bigint primary key default (1+random()*(2^63-1))::bigint,
origin bigint references parsav_servers(id),
name text not null,
description text not null,
policy smallint not null
);
drop table if exists parsav_room_members cascade;
create table parsav_room_members (
room bigint references parsav_rooms(id),
member bigint references parsav_actors(id),
rank smallint not null default 0,
admin boolean not null default false, -- non-admins with rank can only moderate + invite
title text -- admin-granted title like reddit flair
);
drop table if exists parsav_invites cascade;
create table parsav_invites (
id bigint primary key default (1+random()*(2^63-1))::bigint,
-- when a user is created from an invite, the invite is deleted and the invite
-- ID becomes the user ID. privileges granted on the invite ID during the invite
-- process are thus inherited by the user
handle text, -- admin can lock invite to specific handle
rank smallint not null default 0,
quota integer not null default 1000
};
drop table if exists parsav_interventions cascade;
create table parsav_interventions (
id bigint primary key default (1+random()*(2^63-1))::bigint,
issuer bigint references parsav_actors(id) not null,
scope bigint, -- can be null or room for local actions
nature smallint not null, -- silence, suspend, disemvowel, etc
victim bigint not null, -- could potentially target group as well
expire timestamp -- auto-expires if set
);
end;