#!/usr/bin/perl

$postgres_path = "/usr/local/pgsql/bin";

# who am I?
open( WHO, "whoami |" );
while(<WHO>){
   chop;
   $user = $_;
}

# dump all user table lists.

$cmdline = $postgres_path."/psql -t -q -c \"\\dt";

open( IN, "$cmdline\" |" );
while(<IN>){
	$_ =~ tr/  +//d;
	$_ =~ s/\|table\|$user//g;
	$_ =~ s/^/\\d /g;
        $output .= $_;
}    

open( OUT, "> /tmp/$$.psql" );
print OUT $output;
close OUT;

# dump all table scemas.

$ts = $postgres_path."/psql -f /tmp/$$.psql";
open( CMD, "$ts |" );
while(<CMD>){
    print;
}

unlink "/tmp/$$.psql";