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