Esempio di script globale

Il seguente script globale verifica che l'utente corrente sia un membro del gruppo specificato. Se l'utente appartiene al gruppo, l'hook restituisce un valore True.

Questo esempio fornisce un'idea generale di come sia possibile creare uno script globale. Per ragioni di leggibilitĂ , l'esempio non include la verifica degli errori. Verificare il valore di ritorno dell'API di convalida per assicurarsi che non includa errori prima di eseguire il commit del record sul database.

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;

} 

Feedback