Obtiene información sobre creación de réplicas y devuelve un objeto de información.
Si el release de Rational ClearQuest actual ofrece soporte para Rational ClearQuest MultiSite, este método devuelve un objeto Entity de tipo ratl_replicas.
Puede utilizar el objeto devuelto para determinar si se han creado réplicas de la base de datos Rational ClearQuest local con Rational ClearQuest MultiSite. También puede utilizar este método para buscar información sobre la creación de réplicas actual como, por ejemplo, los nombres y las ubicaciones de bases de datos de réplica.
El objeto Replica que devuelve este método es similar a cualquier objeto Entity que devuelve el método GetEntity del objeto Session, lo que significa que se puede utilizar cualquiera de los métodos asociados a un objeto Entity para consultar el objeto Replica.
VBScript
set replicaObj = session.GetLocalReplica
Perl
$replicaObj = session->GetLocalReplica();
Puede crear una consulta con relación al objeto Entity "ratl_replicas" (que contiene la lista de réplicas conocidas de esta base de datos) y comparar el campo "Name" con respecto a replicaName (consulte el ejemplo siguiente) para determinar si la información se aplica a la base de datos local o a una de los demás réplicas. O bien, puede comparar el campo "Host" con localReplicaHost para determinar cómo comunicar con otros programas que tratan la réplica concreta. Por ejemplo, si la réplica no es local, es posible que deba utilizar el correo electrónico.
VBScript
set session = GetSession
set replicaObj = session.GetLocalReplica
fieldNameList = replicaObj.GetFieldNames
For Each fieldName in fieldNameList
set fieldInfoObj = GetFieldValue(fieldName)
fieldType = fieldInfoObj.GetType
fieldValue = fieldInfoObj.GetValue
If fieldName = "Name" Then 'replica db name
If fieldValue = "<local>" Then
'No se han creado réplicas de la base de datos
else
localReplicaName = fieldValue
End If
ElseIf fieldName = "Host" Then 'db host name
'nombre de sistema principal de la base de datos de réplica:
replicaHost = fieldValue
End If
Next
Perl
use CQPerlExt;
my $sess;
my $entity;
$sess = CQSession::Build();
$sess->UserLogon("admin", "", "MULTI", "CQMS.MS_ACCESS.SITEA");
if ($sess->IsReplicated()) {
# print out the local replica name
$entity = $sess->GetLocalReplica();
printf "Local replica is %s.\n", $entity->GetDisplayName();
}
CQSession::Unbuild($sess);