11 lines
287 B
Plaintext
11 lines
287 B
Plaintext
{
|
|
$OUT .= '';
|
|
foreach my $list ( $a->get_all_by_prop( type => 'minilist' ) ){
|
|
next unless ( $list->prop('Visible') || '') =~ m/^(internal|none)$/i;
|
|
|
|
foreach my $domain ( $d->domains ){
|
|
$OUT .= $list->key . '@' . $domain->key . "\n";
|
|
}
|
|
}
|
|
}
|