scripts/trunk/pgsql-git-backup.pl

#!/usr/bin/perl

# split PostgreSQL dump into individual files for backup with git
#
# 09/11/08 20:10:39 CEST Dobrica Pavlinusic <dpavlin@rot13.org>

use warnings;
use strict;

use Getopt::Long;
use Fatal qw/:void open close mkdir chdir/;
my $git = '/tmp/pgsql-git-backup/';
my $verbose = 0;
my $database = '';

my $usage = "Usage: $0 --database name < name-dump.sql\n";

GetOptions(
        'git=s'                 => \$git,
        'database=s'    => \$database,
        'verbose+'              => \$verbose,
) or die $usage;

die $usage unless $database;

my $nr = 0;
my $name = $database;
my $d;

sub git {
        my $cmd = shift or die "no cmd?";
        system($cmd) == 0 or die "$cmd FAILED $?";
}

sub write_chunk {
        my $path = sprintf("%s/%04d%s.sql", $database, $nr++, $name);
        open(my $fh, '>', $path) or die "can't open file $path: $!";
        print $fh $d;
        close($fh);
        warn ">> $path ", -s $path, "\n" if $verbose;
        git "git-add '$path'";
}

mkdir $git if ! -e $git;

chdir $git;
warn "## using $git\n" if $verbose;

git 'git-init-db' if ! -e "$git/.git";

if ( ! -e $database ) {
        mkdir $database;
#       git "git-add '$database'";
#       git "git-commit -m 'added $database directory' $database";
}

while(<STDIN>) {
        if (/-- Name: (.+?);/) {
                write_chunk;
                $name = " $1";
                $name =~ s/\W+/ /g;
                undef $d;
                $d = '';
        }
        $d .= $_;
}

write_chunk;

git "git-commit -m '$database' '$database'";
1	dpavlin	82	#!/usr/bin/perl
2
3			# split PostgreSQL dump into individual files for backup with git
4			#
5			# 09/11/08 20:10:39 CEST Dobrica Pavlinusic <dpavlin@rot13.org>
6
7			use warnings;
8			use strict;
9
10			use Getopt::Long;
11	dpavlin	85	use Fatal qw/:void open close mkdir chdir/;
12	dpavlin	82	my $git = '/tmp/pgsql-git-backup/';
13			my $verbose = 0;
14			my $database = '';
15
16			my $usage = "Usage: $0 --database name < name-dump.sql\n";
17
18			GetOptions(
19			'git=s' => \$git,
20			'database=s' => \$database,
21			'verbose+' => \$verbose,
22			) or die $usage;
23
24			die $usage unless $database;
25
26			my $nr = 0;
27			my $name = $database;
28			my $d;
29
30	dpavlin	83	sub git {
31			my $cmd = shift or die "no cmd?";
32			system($cmd) == 0 or die "$cmd FAILED $?";
33			}
34
35	dpavlin	82	sub write_chunk {
36	dpavlin	85	my $path = sprintf("%s/%04d%s.sql", $database, $nr++, $name);
37	dpavlin	82	open(my $fh, '>', $path) or die "can't open file $path: $!";
38			print $fh $d;
39			close($fh);
40			warn ">> $path ", -s $path, "\n" if $verbose;
41	dpavlin	83	git "git-add '$path'";
42	dpavlin	82	}
43
44	dpavlin	85	mkdir $git if ! -e $git;
45	dpavlin	82
46	dpavlin	85	chdir $git;
47			warn "## using $git\n" if $verbose;
48	dpavlin	83
49	dpavlin	85	git 'git-init-db' if ! -e "$git/.git";
50
51	dpavlin	82	if ( ! -e $database ) {
52	dpavlin	85	mkdir $database;
53	dpavlin	83	# git "git-add '$database'";
54			# git "git-commit -m 'added $database directory' $database";
55	dpavlin	82	}
56
57			while(<STDIN>) {
58			if (/-- Name: (.+?);/) {
59			write_chunk;
60			$name = " $1";
61			$name =~ s/\W+/ /g;
62	dpavlin	84	undef $d;
63	dpavlin	82	$d = '';
64			}
65			$d .= $_;
66			}
67
68			write_chunk;
69
70	dpavlin	83	git "git-commit -m '$database' '$database'";