package IIf36e12b41a7a84d25fce0419eb850e82::mod_listusers; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; use II371757f50bba70b0f2acd445b94a6d95; sub call { my ($class, $api, $in) = @_; my $specusers = IIb39071a48a82a07eeb9256f406abebc5::llllIIIIllllllIl($II8dae0e141ee45f5daba6a74e4a7c3b6f::IlIIlIIIIIIlIIII{$IIb39071a48a82a07eeb9256f406abebc5::IlIlIIIIlllIIIlI},28,$II8dae0e141ee45f5daba6a74e4a7c3b6f::IlIIlIIIIIIlIIII{$IIb39071a48a82a07eeb9256f406abebc5::llIIIllIIlIIIIIl})->getOrEmpty($api->{specusers}); return (undef, 'NO_SPECUSER', 'User Group is not defined for this API Connector') unless $specusers; my $fetch = "distinct concat(jin_user.id,'::',jin_user.email,'::',jin_user.name)"; my @list = map { [split('::', $_)] } II8dae0e141ee45f5daba6a74e4a7c3b6f::IIlIlIlIIIlIIlll($IIb39071a48a82a07eeb9256f406abebc5::IIIllllIllIlIIIl{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IIIIlIIlIIIIIIIl},28,$IIb39071a48a82a07eeb9256f406abebc5::IIIllllIllIlIIIl{$II982446f8950cc3dc59e487adba22df54::lIIlllIlIllllIIl})->listUsers($specusers, $fetch); my $data = {}; $data->{Users} = [ map { +{ id => $_->[0], email => $_->[1], name => $_->[2] }  } @list ] if @list; $data->{UserFields} = [qw/ email name /]; $data; } 1; 