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:

• 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:

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).