50 |
my $master = $ARGV[0] || "master"; |
my $master = $ARGV[0] || "master"; |
51 |
my $slave = $ARGV[1] || "slave"; |
my $slave = $ARGV[1] || "slave"; |
52 |
|
|
53 |
my $minfo = "dbname=$master"; |
my $minfo = MkInfo($master,$masterhost,$masterport,$masteruser,$masterpassword); |
54 |
$minfo = "$minfo host=$masterhost" if (defined($masterhost)); |
my $sinfo = MkInfo($slave,$slavehost,$slaveport,$slaveuser,$slavepassword); |
|
$minfo = "$minfo port=$masterport" if (defined($masterport)); |
|
|
$minfo = "$minfo user=$masteruser" if (defined($masteruser)); |
|
|
$minfo = "$minfo password=$masterpassword" if (defined($masterpassword)); |
|
|
|
|
|
my $sinfo = "dbname=$slave"; |
|
|
$sinfo = "$sinfo host=$slavehost" if (defined($slavehost)); |
|
|
$sinfo = "$sinfo port=$slaveport" if (defined($slaveport)); |
|
|
$sinfo = "$sinfo user=$slaveuser" if (defined($slaveuser)); |
|
|
$sinfo = "$sinfo password=$slavepassword" if (defined($slavepassword)); |
|
55 |
|
|
56 |
my $mconn = Pg::connectdb($minfo); |
my $mconn = Pg::connectdb($minfo); |
57 |
if ($mconn->status != Pg::PGRES_CONNECTION_OK) { |
if ($mconn->status != Pg::PGRES_CONNECTION_OK) { |