adunstan

#!/bin/sh
set -e

# Based on nealmcb's + ErebusBat's script from http://serverfault.com/questions/211425/

# put this file in etckeeeper's commit.d directory
# in the config file set MIRROR_ROOT (somewhere under /etc) MIRROR_FILES and MIRROR_DIRS
# the latter two can contain wildcards
# all three symbols must be exported or they won't be seen by this script

adunstan

with recursive
dag (depended_on,dependent) as
  (
      values
      ('b2'::text,'d1'::text),
      ('d1','d2'),
      ('d2','d3'),
      ('d3','d4'),
      ('b1','a1'),
      ('b2','a1'),

adunstan

CREATE OR REPLACE FUNCTION json_cmp(left json, right json)
RETURNS integer AS $$
    select bttextcmp($1::text, $2::text)
$$ LANGUAGE sql IMMUTABLE STRICT;
 
CREATE OR REPLACE FUNCTION json_eq(json, json)
RETURNS BOOLEAN LANGUAGE SQL STRICT IMMUTABLE AS $$
    SELECT json_cmp($1, $2) = 0;
$$;
 

adunstan

-- requires dblink extension the be installed
-- vacuum a schema via dblink
create or replace function vacuum_schema(schemaname text)
returns void
language plpgsql
as

$func$

declare

adunstan

CREATE OR REPLACE FUNCTION public.explain_url(query text)
 RETURNS text
 LANGUAGE plperlu
AS $function$

        my $query = shift;
        elog(ERROR,"not an explain query") unless $query =~ /^\s*explain\s/i;
        my $rv = spi_exec_query($query);
        my $nrows = $rv->{processed};
        my $text = $query . "\n  QUERY PLAN\n-------------------\n";

adunstan

package PGBuild::Modules::Dist;

use PGBuild::Options;
use PGBuild::SCM;

use strict;

use vars qw($VERSION); $VERSION = 'REL_4.6';

my $hooks = {

adunstan

#!/usr/bin/perl

use strict;
use YAML;
my @formats = qw(Unknown Custom Files Tar Null Directory);
my @sections = qw(None PreData Data PostData);
my $result = [];
my $toc = [];

my %globs;

adunstan

CREATE OR REPLACE FUNCTION public.viewtables(viewname text)
 RETURNS SETOF text
 LANGUAGE plperl
AS $function$
my $viewname = shift;
my $rv = spi_exec_query("explain (format yaml, verbose) SELECT * FROM $viewname");
my $resp = $rv->{rows}[0]->{'QUERY PLAN'};
my %tbls;
while ($resp =~ /Relation Name: (".*")\n\s+Schema: (".*")\n/g) 
{

adunstan

do $$

declare
        rec record;
        cmd text;
begin
        for rec in 
            select n.nspname, rc.relname as tbl, ic.relname as idx
            from pg_index i 
                 join pg_class ic

adunstan

create or replace function make_type_list(tablename text, typealias text default null) returns text
language plpgsql as

$$

declare 
        rec record;
        crec record;
        firstrow boolean := true;
        talias text := '';