smeserver-mini-qmail/root/etc/e-smith/templates/var/qmail/alias/.qmail-shared/50body

14 lines
261 B
Plaintext
Raw Normal View History

{
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";
}
}