45 |
|
|
46 |
my $dbname = $ARGV[0]; |
my $dbname = $ARGV[0]; |
47 |
|
|
48 |
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)); |
|
49 |
|
|
50 |
print("Connecting to '$sinfo'\n") if ($debug || $verbose); |
print("Connecting to '$sinfo'\n") if ($debug || $verbose); |
51 |
my $conn = Pg::connectdb($sinfo); |
my $conn = Pg::connectdb($sinfo); |