/[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 82 by dpavlin, Thu Sep 11 18:44:04 2008 UTC revision 83 by dpavlin, Thu Sep 11 19:57:14 2008 UTC
# Line 26  my $nr = 0; Line 26  my $nr = 0;
26  my $name = $database;  my $name = $database;
27  my $d;  my $d;
28    
29    sub git {
30            my $cmd = shift or die "no cmd?";
31            system($cmd) == 0 or die "$cmd FAILED $?";
32    }
33    
34  sub write_chunk {  sub write_chunk {
35          my $path = sprintf("%s/%02d%s.sql", $database, $nr++, $name);          my $path = sprintf("%s/%02d%s.sql", $database, $nr++, $name);
36          open(my $fh, '>', $path) or die "can't open file $path: $!";          open(my $fh, '>', $path) or die "can't open file $path: $!";
37          print $fh $d;          print $fh $d;
38          close($fh);          close($fh);
39          warn ">> $path ", -s $path, "\n" if $verbose;          warn ">> $path ", -s $path, "\n" if $verbose;
40          system "git-add '$path'";          git "git-add '$path'";
41  }  }
42    
43  if ( ! -e $git ) {  if ( ! -e $git ) {
44          mkdir $git or die "can't create $git: $!";          mkdir $git or die "can't create $git: $!";
45          chdir $git;          git 'git-init-db';
         system 'git-init-db';  
46  }  }
47    
48    chdir($git) or die "can't chdir $git: $!";
49    
50  if ( ! -e $database ) {  if ( ! -e $database ) {
51          mkdir $database or die "can't create $database: $!";          mkdir $database or die "can't create $database: $!";
52  #       system "git-add '$database'";  #       git "git-add '$database'";
53  #       system "git-commit -m 'added $database directory' $database";  #       git "git-commit -m 'added $database directory' $database";
54  }  }
55    
56  while(<STDIN>) {  while(<STDIN>) {
# Line 59  while(<STDIN>) { Line 65  while(<STDIN>) {
65    
66  write_chunk;  write_chunk;
67    
68  system "git-commit -m '$database' '$database'";  git "git-commit -m '$database' '$database'";

Legend:
Removed from v.82  
changed lines
  Added in v.83

  ViewVC Help
Powered by ViewVC 1.1.26