14 lines
261 B
Plaintext
14 lines
261 B
Plaintext
|
{
|
||
|
|
use esmith::AccountsDB;
|
||
|
|
my $a = esmith::AccountsDB->open_ro;
|
||
|
|
|
||
|
|
$OUT = '';
|
||
|
|
|
||
|
|
for my $user ( $a->get('admin'), $a->users )
|
||
|
|
{
|
||
|
|
next if ( ($user->prop('EveryoneEmail') || 'yes') eq 'no');
|
||
|
|
|
||
|
|
$OUT .= '&' . $user->key . "\n";
|
||
|
|
}
|
||
|
|
}
|