현재 데이터베이스가 MultiSite 오퍼레이션에 대해 활성화된 경우 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);