/[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 86 by dpavlin, Thu Sep 11 20:22:49 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 = 1;  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    
# Line 57  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          }          }

Legend:
Removed from v.86  
changed lines
  Added in v.87

  ViewVC Help
Powered by ViewVC 1.1.26