[dev] proposed patch to Kernel/System/PostMaster/DestQueue.pm

28 Aug 2003

      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@domain.pt -AND- help@domain.pt

I don't  know if this might  have side-effects elsewhere.  I hope that
the authors might know that :-))

Best regards,
 p ("help@domain.pt" =~ /\Qhelp@domain.pt/i)
1
  DB<36> p ("it-help@domain.pt" =~ /\Qhelp@domain.pt/i)
1
  DB<37> p ("it-help@domain.pta" =~ /\Qhelp@domain.pt/i)
1
  DB<38> p ("ahelp@domain.pta" =~ /^help@domain.pt$/i)

  DB<41> p ("help@domain.pt" =~ /^\Qhelp@domain.pt\E$/i)
1
  DB<42> p ("it-help@domain.pt" =~ /^\Qhelp@domain.pt\E$/i)

  DB<43>

[dev] proposed patch to Kernel/System/PostMaster/DestQueue.pm

Carlos Canau