13 |
$| = 1; |
$| = 1; |
14 |
|
|
15 |
$result = GetOptions("debug!", "verbose!", "quiet!", "help", |
$result = GetOptions("debug!", "verbose!", "quiet!", "help", |
16 |
"masterhost=s", "masteruser=s", "masterpassword=s", |
"masterhost=s", "masterport=i", |
17 |
"slavehost=s", "slaveuser=s", "slavepassword=s"); |
"masteruser=s", "masterpassword=s", |
18 |
|
"slavehost=s", "slaveport=i", |
19 |
|
"slaveuser=s", "slavepassword=s"); |
20 |
|
|
21 |
my $debug = $opt_debug || 0; |
my $debug = $opt_debug || 0; |
22 |
my $verbose = $opt_verbose || 0; |
my $verbose = $opt_verbose || 0; |
23 |
my $quiet = $opt_quiet || 0; |
my $quiet = $opt_quiet || 0; |
24 |
|
|
25 |
if (defined($opt_help) || (scalar(@ARGV) < 2)) { |
if (defined($opt_help) || (scalar(@ARGV) < 2)) { |
26 |
print "Usage: $0 --masterhost=name --masteruser=name --masterpassword=string --slavehost=name --slaveuser=name --slavepassword=string masterdb slavedb\n"; |
print "Usage: $0 --masterhost=name --masterport=port\n\t--masteruser=name --masterpassword=string\n\t--slavehost=name --slaveport=port\n\t--slaveuser=name --slavepassword=string\n\tmasterdb slavedb\n"; |
27 |
exit ((scalar(@ARGV) < 1)? 1:0); |
exit ((scalar(@ARGV) < 1)? 1:0); |
28 |
} |
} |
29 |
|
|
34 |
$sinfo = "$sinfo host=$opt_slavehost" if (defined($opt_slavehost)); |
$sinfo = "$sinfo host=$opt_slavehost" if (defined($opt_slavehost)); |
35 |
$sinfo = "$sinfo user=$opt_slaveuser" if (defined($opt_slaveuser)); |
$sinfo = "$sinfo user=$opt_slaveuser" if (defined($opt_slaveuser)); |
36 |
$sinfo = "$sinfo password=$opt_slavepassword" if (defined($opt_slavepassword)); |
$sinfo = "$sinfo password=$opt_slavepassword" if (defined($opt_slavepassword)); |
37 |
|
$sinfo = "$sinfo port=$opt_slaveport" if (defined($opt_slaveport)); |
38 |
|
|
39 |
my $minfo = "dbname=$master"; |
my $minfo = "dbname=$master"; |
40 |
$minfo = "$minfo host=$opt_masterhost" if (defined($opt_masterhost)); |
$minfo = "$minfo host=$opt_masterhost" if (defined($opt_masterhost)); |
41 |
$minfo = "$minfo user=$opt_masteruser" if (defined($opt_masteruser)); |
$minfo = "$minfo user=$opt_masteruser" if (defined($opt_masteruser)); |
42 |
$minfo = "$minfo password=$opt_masterpassword" if (defined($opt_masterpassword)); |
$minfo = "$minfo password=$opt_masterpassword" if (defined($opt_masterpassword)); |
43 |
|
$minfo = "$minfo port=$opt_masterport" if (defined($opt_masterport)); |
44 |
|
|
45 |
sub RollbackAndQuit { |
sub RollbackAndQuit { |
46 |
my $conn = shift @_; |
my $conn = shift @_; |