-my $extract_group_data = sub {
- my ($data, $full) = @_;
-
- my $res = {};
-
- $res->{comment} = $data->{comment} if defined($data->{comment});
-
- return $res if !$full;
-
- $res->{users} = $data->{users} ? [ keys %{$data->{users}} ] : [];
-
- return $res;
-};
-
-# fixme: index should return more/all attributes?