smeserver-minilist/root/etc/e-smith/templates/var/service/qpsmtpd/config/goodrcptto/45minilist

18 lines
331 B
Plaintext

{
use esmith::AccountsDB;
$OUT = "";
my $a = esmith::AccountsDB->open_ro();
foreach my $list ($a->get_all_by_prop(type=>'minilist')){
my $key = $list->key;
if ($key =~ /\@/){
$OUT .= "$key\n";
}
else{
$OUT .= "$key\@$_\n" for (@domains);
}
}
}