50 |
my $master = $ARGV[0] || "master"; |
my $master = $ARGV[0] || "master"; |
51 |
my $syncid = $ARGV[1] || die "SyncID not specified"; |
my $syncid = $ARGV[1] || die "SyncID not specified"; |
52 |
|
|
53 |
my $minfo = "dbname=$master"; |
my $minfo = MkInfo($master,$masterhost,$masterport,$masteruser,$masterpassword); |
|
$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)); |
|
54 |
|
|
55 |
my $conn = Pg::connectdb($minfo); |
my $conn = Pg::connectdb($minfo); |
56 |
if ($conn->status != Pg::PGRES_CONNECTION_OK) { |
if ($conn->status != Pg::PGRES_CONNECTION_OK) { |