Global script example

The following global script verifies that the current user is a member of the specified group. If the user belongs to the group, the hook returns a value of True.

This example provides a general idea of how you might create a global script. For readability, the example does not include error checking. Check the return value of the Validate API to verify that it includes no errors before you commit the record to the database.

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;

}