Bug 117297: CC list mailing had case-sensitive dupe checking, making it possible to mail both "a@b.com" and

"a@B.com".
Patch by thomas+mozilla@stromberg.org (Thomas Stromberg), r=jouni,timeless
This commit is contained in:
jouni%heikniemi.net 2002-07-11 08:05:05 +00:00
Родитель 047e681ad6
Коммит f68aa4cb58
1 изменённых файлов: 12 добавлений и 5 удалений

Просмотреть файл

@ -271,10 +271,14 @@ sub ProcessOneBug {
# only need one entry per person
my @allEmail = ();
my %AlreadySeen = ();
my $checkperson = "";
foreach my $person (@emailList) {
if ( !($AlreadySeen{$person}) ) {
# don't modify the original so it sends out with the right case
# based on who came first.
$checkperson = lc($person);
if ( !($AlreadySeen{$checkperson}) ) {
push(@allEmail,$person);
$AlreadySeen{$person}++;
$AlreadySeen{$checkperson}++;
}
}
@ -366,7 +370,7 @@ sub filterExcludeList ($$) {
foreach my $included (@allEmail) {
# match found, so we remove the entry
if ($included eq $excluded) {
if (lc($included) eq lc($excluded)) {
pop(@result);
last;
}
@ -374,10 +378,13 @@ sub filterExcludeList ($$) {
}
# only need one entry per person
my $checkperson = "";
foreach my $person (@result) {
if ( !($alreadySeen{$person}) ) {
$checkperson = lc($person);
if ( !($alreadySeen{$checkperson}) ) {
push(@uniqueResult,$person);
$alreadySeen{$person}++;
$alreadySeen{$checkperson}++;
}
}