/[scripts]/trunk/pgsql-git-backup.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/pgsql-git-backup.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 85 by dpavlin, Thu Sep 11 20:16:05 2008 UTC revision 87 by dpavlin, Thu Sep 11 20:37:58 2008 UTC
# Line 12  use Fatal qw/:void open close mkdir chdi Line 12  use Fatal qw/:void open close mkdir chdi
12  my $git = '/tmp/pgsql-git-backup/';  my $git = '/tmp/pgsql-git-backup/';
13  my $verbose = 0;  my $verbose = 0;
14  my $database = '';  my $database = '';
15    my $repack = 0;
16    
17  my $usage = "Usage: $0 --database name < name-dump.sql\n";  my $usage = "Usage: $0 --database name < name-dump.sql\n";
18    
19  GetOptions(  GetOptions(
20          'git=s'                 => \$git,          'git=s'         => \$git,
21          'database=s'    => \$database,          'database=s'    => \$database,
22          'verbose+'              => \$verbose,          'verbose+'      => \$verbose,
23            'repack'        => \$repack,
24  ) or die $usage;  ) or die $usage;
25    
26  die $usage unless $database;  die $usage unless $database;
# Line 55  if ( ! -e $database ) { Line 57  if ( ! -e $database ) {
57  }  }
58    
59  while(<STDIN>) {  while(<STDIN>) {
60          if (/-- Name: (.+?);/) {          if (/--.*Name: (\w+);.*Schema: (\w+)/) {
61                  write_chunk;                  write_chunk;
62                  $name = " $1";                  $name = ' ' . $2 . '.' . $1;
                 $name =~ s/\W+/ /g;  
63                  undef $d;                  undef $d;
64                  $d = '';                  $d = '';
65          }          }
# Line 68  while(<STDIN>) { Line 69  while(<STDIN>) {
69  write_chunk;  write_chunk;
70    
71  git "git-commit -m '$database' '$database'";  git "git-commit -m '$database' '$database'";
72    
73    git "git-repack" if $repack;
74    
Legend:
Removed from v.85  
changed lines
  Added in v.87
  ViewVC Help
Powered by ViewVC 1.1.26