GetLocalReplica

Description

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.

Sintaxis

VBScript

set replicaObj = session.GetLocalReplica

Perl

$replicaObj = session->GetLocalReplica();
Identificador
Description
session
El objeto Session que representa la sesión de acceso a la base de datos actual.
Valor de retorno
El objeto Entity "ratl_replicas" asociado a la sesión actual o NULL, si la base de datos actual no se ha actualizado para Rational ClearQuest MultiSite.

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.

Ejemplo

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);

Comentarios