34 |
my $table = $ARGV[1]; |
my $table = $ARGV[1]; |
35 |
my $keyname = $ARGV[2]; |
my $keyname = $ARGV[2]; |
36 |
|
|
37 |
my $sinfo = "dbname=$dbname"; |
my $sinfo = MkInfo($dbname,$slavehost,$slaveport,$slaveuser,$slavepassword); |
|
$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)); |
|
38 |
|
|
39 |
my $conn = Pg::connectdb($sinfo); |
my $conn = Pg::connectdb($sinfo); |
40 |
if ($conn->status != PGRES_CONNECTION_OK) { |
if ($conn->status != PGRES_CONNECTION_OK) { |