change this code section to:
if ($data) {
my $head = &cleanMIMEHeader2UTF8($bd);
$head =~ s/received:$HeaderValueRe//gio;
$head =~ s/Message-ID:$HeaderValueRe//gio;
$head =~ s/References:$HeaderValueRe//gio;
$head =~ s/In-Reply-To:$HeaderValueRe//gio;
$head =~ s/X-Assp-.+?:$HeaderValueRe//gio;
$head =~ s/bcc:$HeaderValueRe//gio;
$head =~ s/cc:$HeaderValueRe//gio;
$head =~ s/\nto:$HeaderValueRe/\n/gios;
$data = $head . $data;
}
will do what you want. Notice also the exchanged cc and bcc lines (a small
bug).
Thomas
Von: "Michael Thomas" <[email protected]>
An: "'ASSP development mailing list'"
<[email protected]>
Datum: 04.01.2011 08:42
Betreff: [Assp-test] One change I forgot to mention
Thomas,
There was one change I made that I forgot to mention. Noticed that because
I
was being a good robot entering your code, I did not duplicate that change
in the new code. Likely this change would be important for anyone who
might
also implement the URI header feature. At the very least, they should be
aware.
The issue: Assp scans the To: field and inspects the domains of the
recipients. For my purposes, recipients are innocent bystanders, so I do
not
want to blacklist those domains. Unfortunately, without scanning the To:
field myself, there is no other way to keep them from being autotragically
blacklisted, when processing a spam message. Also, the To: field can
contain
a LOT of domains.
My Solution: My solution is dirty. Yes, I realize what I did. Don't think
I
lost much. Actually, I think I saved cycles. In sub URIBLok
===============================
if ($data) {
my $head = &cleanMIMEHeader2UTF8($bd);
$head =~ s/received:$HeaderValueRe//gio;
$head =~ s/Message-ID:$HeaderValueRe//gio;
$head =~ s/References:$HeaderValueRe//gio;
$head =~ s/In-Reply-To:$HeaderValueRe//gio;
$head =~ s/X-Assp-.+?:$HeaderValueRe//gio;
$head =~ s/cc:$HeaderValueRe//gio;
$head =~ s/bcc:$HeaderValueRe//gio;
# $data = $head . $data; <<<<<<<<<< OUCH <<<<<<<<<<<
}
===============================
Please remember my Perl skill level. :( It did what I wanted.
I thought at some point, I would figure out if the above code was
including
those fields or removing them or something else. Then if appropriate, see
if
I couldn't do something with the To:, cc:, and Bcc: fields.
Michael Thomas
Mathbox
978-687-3300
Toll Free: 1-877-MATHBOX (1-877-628-4269)
------------------------------------------------------------------------------
Learn how Oracle Real Application Clusters (RAC) One Node allows customers
to consolidate database storage, standardize their database environment,
and,
should the need arise, upgrade to a full multi-node Oracle RAC database
without downtime or disruption
http://p.sf.net/sfu/oracle-sfdevnl
_______________________________________________
Assp-test mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/assp-test
DISCLAIMER:
*******************************************************
This email and any files transmitted with it may be confidential, legally
privileged and protected in law and are intended solely for the use of the
individual to whom it is addressed.
This email was multiple times scanned for viruses. There should be no
known virus in this email!
*******************************************************
------------------------------------------------------------------------------
Learn how Oracle Real Application Clusters (RAC) One Node allows customers
to consolidate database storage, standardize their database environment, and,
should the need arise, upgrade to a full multi-node Oracle RAC database
without downtime or disruption
http://p.sf.net/sfu/oracle-sfdevnl
_______________________________________________
Assp-test mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/assp-test
