{

use esmith::AccountsDB;

sub getUsersList ($){
        my ($panelName) = @_;
        my $a = esmith::AccountsDB->open_ro || die "Error opening accounts db";
        my @users = $a->users();
        my @groups = $a->groups();
        my @Users = ();
        foreach my $user (@users){
                my $panels = $user->prop('AdminPanels') || '';
                push(@Users,$user->key) if ($panels =~ /^(.*,)?$panelName(,.*)?$/);
        }
        foreach my $group (@groups){
                $panels = $group->prop('AdminPanels') || '';
                        if ($panels =~ /^(.*,)?$panelName(,.*)?$/){
                        my @members = split(/,/,($group->prop('Members') || ''));
                        push(@Users,@members);
                }
        }

        my %seen = ();
        my $u = join (' ', grep { ! $seen{ $_ }++ } @Users);
        return $u;
}
}


