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:
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::Header object 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::Normalize to 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.
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 <email@example.com>