Devuelve TRUE si la base de datos actual se ha activado para operaciones Multisite. Este método devuelve TRUE aunque la base de datos actual sea la única réplica existente.
VBScript
session.IsMultisiteActivated
Perl
$session->IsMultisiteActivated();
Perl
use CQPerlExt;
my $sess;
my $entity;
$sess = CQSession::Build();
$sess->UserLogon("admin", "", "MULTI", "CQMS.MS_ACCESS.SITEA");
if ($sess->IsMultisiteActivated()) {
# print out list of available replicas
my $qryDef;
my $resultSet;
my $status;
$qryDef = $sess->BuildQuery("ratl_replicas");
$qryDef->BuildField("name");
$qryDef->BuildField("clan");
$qryDef->BuildField("family");
$resultSet = $sess->BuildResultSet($qryDef);
$resultSet->Execute();
$status = $resultSet->MoveNext();
printf ("\nname\tclan\tfamily\n");
while($status == $CQPerlExt::CQ_SUCCESS) {
printf("%s\t%s\t%s\n",
$resultSet->GetColumnValue(1),
$resultSet->GetColumnValue(2),
$resultSet->GetColumnValue(3));
$status = $resultSet->MoveNext();
}
}
CQSession::Unbuild($sess);