54 |
|
|
55 |
my $master = $ARGV[0] || "master"; |
my $master = $ARGV[0] || "master"; |
56 |
my $slave = $ARGV[1] || "slave"; |
my $slave = $ARGV[1] || "slave"; |
57 |
|
my $tables = $#ARGV < 2 ? undef : { map {($_, undef)} @ARGV[2..$#ARGV] }; |
58 |
|
|
59 |
# first, let's check if a instance is alrealy running |
# first, let's check if a instance is alrealy running |
60 |
|
|
135 |
my $outf = new IO::File; |
my $outf = new IO::File; |
136 |
open $outf, ">$snapshot"; |
open $outf, ">$snapshot"; |
137 |
print "\n>>>>>>>>>>>>> Prepare Snapshot\n\n" if ($verbose); |
print "\n>>>>>>>>>>>>> Prepare Snapshot\n\n" if ($verbose); |
138 |
my $res = PrepareSnapshot($mconn, $sconn, $outf, $slaveId); |
my $res = PrepareSnapshot($mconn, $sconn, $outf, $slaveId, $tables); |
139 |
close $outf; |
close $outf; |
140 |
if ($res < 0) { |
if ($res < 0) { |
141 |
unlink $fname; |
unlink $fname; |
152 |
my $inpf = new IO::File; |
my $inpf = new IO::File; |
153 |
open $inpf, "<$snapshot"; |
open $inpf, "<$snapshot"; |
154 |
print "\n>>>>>>>>>>>>> Apply Snapshot\n\n" if ($verbose); |
print "\n>>>>>>>>>>>>> Apply Snapshot\n\n" if ($verbose); |
155 |
$res = ApplySnapshot($sconn, $inpf); |
$res = ApplySnapshot($sconn, $inpf, $tables); |
156 |
close $inpf; |
close $inpf; |
157 |
if ($res < 0) { |
if ($res < 0) { |
158 |
unlink $fname; |
unlink $fname; |