次のグローバル スクリプトは、現在のユーザーが指定されたグループのメンバであることを確認します。ユーザーがグループに属している場合、フックは True を戻します。
この例では、グローバル スクリプトの作成についての一般的な方法を示します。読みやすくするために、この例にはエラー チェックを組み込んでいません。検証 API の戻り値を調べて、エラーが含まれていないことを確認してから、レコードをデータベースにコミットしてください。
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
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;
}