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