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>) { |
65 |
|
|
66 |
write_chunk; |
write_chunk; |
67 |
|
|
68 |
system "git-commit -m '$database' '$database'"; |
git "git-commit -m '$database' '$database'"; |