45 |
my $dbname = $ARGV[0]; |
my $dbname = $ARGV[0]; |
46 |
my $howold = $ARGV[1]; |
my $howold = $ARGV[1]; |
47 |
|
|
48 |
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)); |
|
49 |
|
|
50 |
print "Master connection is $minfo\n" if ($debug); |
print "Master connection is $minfo\n" if ($debug); |
51 |
|
|