Luis Muñoz > Mail-Abuse > Mail::Abuse::Incident::Normalize

Download:
Mail-Abuse-1.026.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  1
Open  0
View/Report Bugs
Module Version: 1.011   Source  

NAME ^

Mail::Abuse::Incident::Normalize - Filter the text of a report within an Email

SYNOPSIS ^

  use Mail::Abuse::Report;
  use Mail::Abuse::Incident::Normalize;
  my $i = new Mail::Abuse::Incident::Normalize;
  my $report = new Mail::Abuse::Report (incidents => [$i] );

DESCRIPTION ^

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:

header

A Mail::Header object with the header of the message.

body

Contains a reference to the body of the message, as a single scalar or string.

normalized

Set to the scalar Mail::Abuse::Incident::Normalize to indicate that this class did the normalization.

tz

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.

EXPORT

None by default.

HISTORY ^

0.01

Original version; created by h2xs 1.2 with options

  -ACOXcfkn
        Mail::Abuse
        -v
        0.01

LICENSE AND WARRANTY ^

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.

AUTHOR ^

Luis E. Muñoz <luismunoz@cpan.org>

SEE ALSO ^

perl(1).

syntax highlighting: