smeserver-mini-qmail/root/etc/e-smith/templates/var/qmail/control/badrcptto/10blockVisibleInternal

17 lines
376 B
Plaintext
Raw Normal View History

{
foreach my $account ( keys %Accounts )
{
next unless ( exists $Accounts{$account}{Visible}
and $Accounts{$account}{Visible} eq "internal" );
$OUT .= "$account\n";
$OUT .= "$account\@$DomainName\n";
foreach my $domain ( keys %Domains )
{
next unless $Domains{$domain}{type} eq "domain";
$OUT .= "$account\@$domain\n";
}
}
}