23 |
my ($help,$masterhost,$masterport,$masteruser,$masterpassword, |
my ($help,$masterhost,$masterport,$masteruser,$masterpassword, |
24 |
$slavehost,$slaveport,$slaveuser,$slavepassword); |
$slavehost,$slaveport,$slaveuser,$slavepassword); |
25 |
my $snapshot = ".__Snapshot"; |
my $snapshot = ".__Snapshot"; |
26 |
|
my $mserver = 0; |
27 |
|
|
28 |
my $result = GetOptions( |
my $result = GetOptions( |
29 |
"debug!" => \$debug, "verbose!" => \$verbose, "help" => \$help, |
"debug!" => \$debug, "verbose!" => \$verbose, "help" => \$help, |
32 |
"slavehost=s" => \$slavehost, "slaveport=i" => \$slaveport, |
"slavehost=s" => \$slavehost, "slaveport=i" => \$slaveport, |
33 |
"slaveuser=s" => \$slaveuser, "slavepassword=s" => \$slavepassword, |
"slaveuser=s" => \$slaveuser, "slavepassword=s" => \$slavepassword, |
34 |
"snapshot=s" => \$snapshot, |
"snapshot=s" => \$snapshot, |
35 |
|
"masterserver=i" => \$mserver, |
36 |
); |
); |
37 |
|
|
38 |
if (defined($help) || (scalar(@ARGV) < 2)) { |
if (defined($help) || (scalar(@ARGV) < 2)) { |
41 |
--masterhost=hostname --masterport=port |
--masterhost=hostname --masterport=port |
42 |
--masteruser=username --masterpassword=string |
--masteruser=username --masterpassword=string |
43 |
--snapshot=snapshot |
--snapshot=snapshot |
44 |
|
[--masterserver=master_number] |
45 |
"; |
"; |
46 |
exit ((scalar(@ARGV) < 2)? 1:0); |
exit ((scalar(@ARGV) < 2)? 1:0); |
47 |
} |
} |
131 |
|
|
132 |
if ($slaveId < 0) { |
if ($slaveId < 0) { |
133 |
unlink $fname; |
unlink $fname; |
134 |
die "\n>>>>>>>>>>>>> ERROR\n"; |
die "\n>>>>>>>>>>>>> ERROR: GetSlaveID returned $slaveId < 0\n"; |
135 |
} |
} |
136 |
SyncSync($mconn, $sconn); |
SyncSync($mconn, $sconn); |
137 |
|
|
138 |
my $outf = new IO::File; |
my $outf = new IO::File; |
139 |
open $outf, ">$snapshot"; |
open $outf, ">$snapshot"; |
140 |
print "\n>>>>>>>>>>>>> Prepare Snapshot\n\n" if ($verbose); |
print "\n>>>>>>>>>>>>> Prepare Snapshot\n\n" if ($verbose); |
141 |
my $res = PrepareSnapshot($mconn, $sconn, $outf, $slaveId, $tables); |
my $res = PrepareSnapshot($mconn, $sconn, $outf, $mserver, $slaveId, $tables); |
142 |
close $outf; |
close $outf; |
143 |
if ($res < 0) { |
if ($res < 0) { |
144 |
unlink $fname; |
unlink $fname; |