### continuation of BugMail.pm-resolveAlias.patch ###

# 25-May-04 patch added to prevent duplicate email addresses being sent to recipients.

# written by agriffis@gentoo.org

# This is quite simple and assumes that all addresses are simply

# blah@domain.com instead of the more complex quoted versions.  This

# should be fine since anything not resolved here will be resolved by

# the MTA, albeit with the possibility of duplicate emails.

sub resolveAliases {

    my (@origList) = @_;

    my (@resolvedList) = ();

    my ($aliasdir) = "/var/www/bugs.gentoo.org/Bugzilla/aliases";

    my (%aliases, $lcPerson);

    # Read in the list of aliases available.

    # This should be rsynced from dev.gentoo.org:/var/mail/alias/misc

    opendir ALIASDIR, $aliasdir or return @origList;

    $aliases{grep /^[^\.]/, <ALIASDIR>} = undef;

    close ALIASDIR;

    # Check each address in the list for aliases and resolve them.

    # This might involve reading the particular alias file from the

    # disk if it hasn't been read yet.

    for (my $i = 0; $i < @origList; $i++) {

        # Preserve the case of the original address if it isn't an

        # alias

        $lcPerson = lc $origList[$i];

        $lcPerson =~ s/\@gentoo\.org$//;

        # If this isn't an alias, then move along

        if (!exists $aliases{$lcPerson}) {

            push @resolvedList, $origList[$i];

            next;

        }

        # If this is an alias and we've already resolved it, then move

        # along, no need to repeat ourselves...

        next if defined $aliases{$lcPerson};

        # Each alias is defined by a separate file that lists the

        # recipients, one per line

        if (!open ALIASFILE, $aliasdir . '/' . $lcPerson) {

            # Eek!  Let the MTA resolve it in that case.  Sorry

            # it's already lowercase, but really this shouldn't

            # ever happen.

            push @resolvedList, $origList[$i];

            next;

        }

        # Extract the list of addresses from the alias file

        $aliases{$lcPerson} = [ grep s/^([^#\s]+).*/$1/s, <ALIASFILE> ];

        close ALIASFILE;

        if (@{$aliases{$lcPerson}} == 0) {

            # Um, an empty alias?  Again, let the MTA resolve it

            push @resolvedList, $origList[$i];

            next;

        }

        # At this point we have successfully resolved this alias.

        # Push on the end of origList so it's subject to recursive

        # resolution.  There is no chance of a loop since we only

        # resolve each alias once.

        push @origList, @{$aliases{$lcPerson}};

        # Free up some memory... we only need to keep this as a flag

        $aliases{$lcPerson} = 1;

    }

    # Get rid of duplicates

    my (@noDupList) = ();

    my (%alreadySeen);

    for my $person (@resolvedList) {

        $lcPerson = lc $person;

        if (!exists $alreadySeen{$lcPerson}) {

            push @noDupList, $person;

            $alreadySeen{$lcPerson} = 1;

        }

    }

    return @noDupList;

}

### end of BugMail.pm-resolveAlias.patch ###