Ejemplo de script global

El siguiente script global comprueba que el usuario actual es un miembro del grupo especificado. Si el usuario pertenece al grupo, el enganche devuelve True.

Este ejemplo ofrece una idea general sobre cómo puede crear un script global. Para mayor legibilidad, el ejemplo no incluye comprobación de errores. Compruebe el valor de retorno de la API de validar para verificar que no incluye errores antes de enviar el registro a la base de datos.

VBScript

Function IsInGroup(groupname)

    ' groupName As String

    ' IsInGroup As Bool

    Set curSession = GetSession

    groupList = curSession.GetUserGroups

    IsInGroup = False

    For Each group in groupList

      If group = groupname Then

        IsInGroup = True

        Exit For

      End If

    Next

End Function

Perl

sub IsInGroup { 

    my ($groupName) = @_;

    my ($curSession,

    $groupList,

    $isInGroup,

    $group,

    );


    $curSession = $entity->GetSession();

    $groupList = $curSession->GetUserGroups();

    $isInGroup = 0;



    foreach $group (@$groupList) {

      if ($group eq $groupName) {

         $isInGroup = 1;

         last;

      } 

    } 

    return $isInGroup;

} 

Comentarios