Mail::Abuse::Incident::Normalize - Filter the text of a report within an Email
use Mail::Abuse::Report; use Mail::Abuse::Incident::Normalize; my $i = new Mail::Abuse::Incident::Normalize; my $report = new Mail::Abuse::Report (incidents => [$i] );
This class handles various important tasks related with recognizing an abuse report. The specific tassks are:
Parse the headers and the body of the email message
Provide a translation from HTML to text if no suitable part is included in the original report
When a report has been forwarded or quoted multiple times, this class removes the indications at the beginning and left-hand side (>).
The parser based on this class must be the first in the list of parsers passed to the report object, so that all parser that need its services can access them automatically.
The following new keys are created into the corresponding report after running this class. These are:
Mail::Headerobject with the header of the message.
Contains a reference to the body of the message, as a single scalar or string.
Set to the scalar
Mail::Abuse::Incident::Normalizeto indicate that this class did the normalization.
The guessed timezone from the message. This might come from matching it in the body of the message, from the Date header or from other sources. This should be used as a "last-resort hint" by other Incident parsers.
The following method is implemented bu this class:
Pushes incidents into the given report, based on parsing of the text in the report itself.
It must return a list of objects of the same class, with the incident data (IP address, timestamp and other information) filled.
None by default.
This code and all accompanying software comes with NO WARRANTY. You use it at your own risk.
This code and all accompanying software can be used freely under the same terms as Perl itself.
Luis E. Muñoz <firstname.lastname@example.org>
1 POD Error
The following errors were encountered while parsing the POD:
- Around line 345:
Non-ASCII character seen before =encoding in 'Muñoz'. Assuming UTF-8