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:
A Mail::Header object with the header of the message.
Mail::Header
Contains a reference to the body of the message, as a single scalar or string.
Set to the scalar Mail::Abuse::Incident::Normalize to indicate that this class did the normalization.
Mail::Abuse::Incident::Normalize
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:
parse($report)
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.
Original version; created by h2xs 1.2 with options
-ACOXcfkn Mail::Abuse -v 0.01
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 <luismunoz@cpan.org>
perl(1).
1 POD Error
The following errors were encountered while parsing the POD:
Non-ASCII character seen before =encoding in 'Muñoz'. Assuming UTF-8
To install Mail::Abuse, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Mail::Abuse
CPAN shell
perl -MCPAN -e shell install Mail::Abuse
For more information on module installation, please visit the detailed CPAN module installation guide.