40 |
my $master = $ARGV[0] || "master"; |
my $master = $ARGV[0] || "master"; |
41 |
my $slave = $ARGV[1] || "slave"; |
my $slave = $ARGV[1] || "slave"; |
42 |
|
|
43 |
my $sinfo = "dbname=$slave"; |
my $minfo = MkInfo($master,$masterhost,$masterport,$masteruser,$masterpassword); |
44 |
$sinfo = "$sinfo host=$slavehost" if (defined($slavehost)); |
my $sinfo = MkInfo($slave,$slavehost,$slaveport,$slaveuser,$slavepassword); |
|
$sinfo = "$sinfo port=$slaveport" if (defined($slaveport)); |
|
|
$sinfo = "$sinfo user=$slaveuser" if (defined($slaveuser)); |
|
|
$sinfo = "$sinfo password=$slavepassword" if (defined($slavepassword)); |
|
|
|
|
|
my $minfo = "dbname=$master"; |
|
|
$minfo = "$minfo host=$masterhost" if (defined($masterhost)); |
|
|
$minfo = "$minfo port=$masterport" if (defined($masterport)); |
|
|
$minfo = "$minfo user=$masteruser" if (defined($masteruser)); |
|
|
$minfo = "$minfo password=$masterpassword" if (defined($masterpassword)); |
|
45 |
|
|
46 |
sub RollbackAndQuit { |
sub RollbackAndQuit { |
47 |
my $conn = shift @_; |
my $conn = shift @_; |