Hi,
I proposed the following patch to Kernel/System/PostMaster/DestQueue.pm:
*** DestQueue.pm.ORIG Thu Aug 28 16:52:43 2003
--- DestQueue.pm Thu Aug 28 16:53:17 2003
***************
*** 71,77 ****
foreach (@EmailAddresses) {
my $Address = $Self->{ParseObject}->GetEmailAddress(Email => $_);
foreach (keys %SystemAddresses) {
! if ($_ =~ /\Q$Address/i) {
if ($Self->{Debug} > 0) {
print STDERR "* matched email: $_ (QueueID=$SystemAddresses{$_})\n";
}
--- 71,77 ----
foreach (@EmailAddresses) {
my $Address = $Self->{ParseObject}->GetEmailAddress(Email => $_);
foreach (keys %SystemAddresses) {
! if ($_ =~ /^\Q$Address\E$/i) {
if ($Self->{Debug} > 0) {
print STDERR "* matched email: $_ (QueueID=$SystemAddresses{$_})\n";
}
This patch helps putting the message in the right queue when we have
SystemAddresses that "include" others. The example:
it-help(a)domain.pt -AND- help(a)domain.pt
I don't know if this might have side-effects elsewhere. I hope that
the authors might know that :-))
Best regards,
</Canau
DB<34> p ("help(a)domain.pt" =~ /\Qhelp(a)domain.pt/i)
1
DB<36> p ("it-help(a)domain.pt" =~ /\Qhelp(a)domain.pt/i)
1
DB<37> p ("it-help(a)domain.pta" =~ /\Qhelp(a)domain.pt/i)
1
DB<38> p ("ahelp(a)domain.pta" =~ /^help(a)domain.pt$/i)
DB<41> p ("help(a)domain.pt" =~ /^\Qhelp(a)domain.pt\E$/i)
1
DB<42> p ("it-help(a)domain.pt" =~ /^\Qhelp(a)domain.pt\E$/i)
DB<43>
