17 lines
376 B
Plaintext
17 lines
376 B
Plaintext
{
|
|
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";
|
|
}
|
|
}
|
|
}
|