Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
152 lines (126 sloc) 3.94 KB
--
-- PostgreSQL database dump
--
SET statement_timeout = 0;
SET client_encoding = 'UTF8';
SET standard_conforming_strings = on;
SET check_function_bodies = false;
SET client_min_messages = warning;
SET search_path = public, pg_catalog;
--
-- Name: get_random_string(integer); Type: FUNCTION; Schema: public; Owner: -
--
CREATE FUNCTION get_random_string(string_length integer) RETURNS text
LANGUAGE plpgsql
AS $$
DECLARE
possible_chars TEXT = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
output TEXT = '';
i INT4;
pos INT4;
BEGIN
FOR i IN 1..string_length LOOP
pos := 1 + cast( random() * ( length(possible_chars) - 1) as INT4 );
output := output || substr(possible_chars, pos, 1);
END LOOP;
RETURN output;
END;
$$;
--
-- Name: register_plan(text, boolean); Type: FUNCTION; Schema: public; Owner: -
--
CREATE FUNCTION register_plan(in_plan text, in_is_public boolean) RETURNS text
LANGUAGE plpgsql
AS $$
DECLARE
use_hash_length int4 := 2;
use_hash text;
BEGIN
LOOP
use_hash := get_random_string(use_hash_length);
BEGIN
INSERT INTO plans (id, plan, is_public, entered_on) values (use_hash, in_plan, in_is_public, now());
RETURN use_hash;
EXCEPTION WHEN unique_violation THEN
-- do nothing
END;
use_hash_length := use_hash_length + 1;
IF use_hash_length >= 30 THEN
raise exception 'Random string of length == 30 requested. something''s wrong.';
END IF;
END LOOP;
END;
$$;
--
-- Name: register_plan(text, boolean, boolean); Type: FUNCTION; Schema: public; Owner: -
--
CREATE FUNCTION register_plan(in_plan text, in_is_public boolean, in_is_anonymized boolean) RETURNS text
LANGUAGE plpgsql
AS $$
DECLARE
use_hash_length int4 := 2;
use_hash text;
BEGIN
LOOP
use_hash := get_random_string(use_hash_length);
BEGIN
INSERT INTO plans (id, plan, is_public, entered_on, is_anonymized) values (use_hash, in_plan, in_is_public, now(), in_is_anonymized);
RETURN use_hash;
EXCEPTION WHEN unique_violation THEN
-- do nothing
END;
use_hash_length := use_hash_length + 1;
IF use_hash_length >= 30 THEN
raise exception 'Random string of length == 30 requested. something''s wrong.';
END IF;
END LOOP;
END;
$$;
--
-- Name: register_plan(text, text, boolean, boolean); Type: FUNCTION; Schema: public; Owner: -
--
CREATE FUNCTION register_plan(in_title text, in_plan text, in_is_public boolean, in_is_anonymized boolean) RETURNS text
LANGUAGE plpgsql
AS $$
DECLARE
use_hash_length int4 := 2;
use_hash text;
BEGIN
LOOP
use_hash := get_random_string(use_hash_length);
BEGIN
INSERT INTO plans (id, title, plan, is_public, entered_on, is_anonymized) values (use_hash, in_title, in_plan, in_is_public, now(), in_is_anonymized);
RETURN use_hash;
EXCEPTION WHEN unique_violation THEN
-- do nothing
END;
use_hash_length := use_hash_length + 1;
IF use_hash_length >= 30 THEN
raise exception 'Random string of length == 30 requested. something''s wrong.';
END IF;
END LOOP;
END;
$$;
SET default_tablespace = '';
SET default_with_oids = false;
--
-- Name: plans; Type: TABLE; Schema: public; Owner: -; Tablespace:
--
CREATE TABLE plans (
id text NOT NULL,
plan text NOT NULL,
entered_on timestamp with time zone DEFAULT now() NOT NULL,
is_public boolean DEFAULT true NOT NULL,
is_anonymized boolean DEFAULT false NOT NULL,
title text
);
--
-- Data for Name: plans; Type: TABLE DATA; Schema: public; Owner: -
--
COPY plans (id, plan, entered_on, is_public, is_anonymized, title) FROM stdin;
\.
--
-- Name: plans_pkey; Type: CONSTRAINT; Schema: public; Owner: -; Tablespace:
--
ALTER TABLE ONLY plans
ADD CONSTRAINT plans_pkey PRIMARY KEY (id);