マルチサイトの操作について現在のデータベースがアクティブになっている場合は True を戻します。このメソッドは、現在のデータベースが既存の複製のみである場合にも、True を戻します。
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);