{

use esmith::AccountsDB;
my $a = esmith::AccountsDB->open_ro();

$OUT = '';

foreach my $u ($a->users){
  my $email = $u->prop('EmailAccess') || 'enabled';
  $OUT .= $u->key . "\n" unless $email =~ m/^(disabled|off|no|0)$/;
}

}
