現在のユーザーが表示できるすべてのグループの名前を戻します。 結果には、最低でもユーザーがメンバであるグループが含まれます。ユーザーが All Users/Groups Visible 権限を持っている場合、このリストにはデータベースに登録されているすべてのグループが含まれます。
Perl
sub show_all_groups()
{
my $groups;
eval {
$groups = $session->GetAllGroups($CQPerlExt::CQ_NAME_EXTEND_WHEN_NEEDED);
};
if ($@){
print "WARNING: failed to get all groups: $@¥n";
} else {
my $group;
print "All groups:";
foreach $group (sort @$groups) {
print " $group";
}
print "¥n";
}
}