NAME

Email::ARF::Report - interpret Abuse Reporting Format (ARF) messages

VERSION

version 0.012

WARNING

Achtung! This is a prototype. This module will definitely continue to exist, but maybe the interface will change radically once more people have seen it and tried to use it. Don't rely on its interface to keep you employed, just yet.

SYNOPSIS

  my $report = Email::ARF::Report->new($text);

  if ($report->field('source-ip') eq $our_ip) {
    my $sender = $report->original_email->header('from');

    UserManagement->disable_account($sender);
  }

DESCRIPTION

ARF, the Abuse Feedback Report Format, is used to report email abuse incidents to an email provider. It includes mechanisms for providing machine-readable details about the incident, a human-readable description, and a copy of the offending message.

PERL VERSION

This library should run on perls released even a long time ago. It should work on any version of perl released in the last five years.

Although it may work on older versions of perl, no guarantee is made that the minimum required version will not be increased. The version may be increased for any reason, and there is no promise that patches will be accepted to lower the minimum required perl.

METHODS

new

  my $report = Email::ARF::Report->new($message);

Given either an Email::MIME object or a string containing the text of an email message, this method returns a new Email::ARF::Report object. If the given message source is not a valid report in ARF format, an exception is raised.

create

  my $mail = Email::ARF::Report->create(
    original_email => $email,
    description    => $description,
    fields         => \%fields,      # or \@fields
    header_str     => \@headers,
  );

This method creates a new ARF report from scratch.

The original_email parameter may be given as a string, a string reference, or as an object that provides an as_string method.

The optional header_str parameter is an arrayref of name/value pairs to be added as extra headers in the ARF report. The values are expected to be character strings, and will be MIME-encoded as needed. To pass pre-encoded headers, use the header parameter. These are handled by Email::MIME's create constructor.

Default values are provided for the following fields:

  version       - 1
  user-agent    - Email::ARF::Report/$VERSION
  feedback-type - other

as_email

This method returns an Email::MIME object representing the report.

Note! This method returns a new Email::MIME object each time it is called. If you just want to get a string representation of the report, call "as_string". If you call as_email and make changes to the Email::MIME object, the Email::ARF::Report will not be affected.

as_string

This method returns a string representation of the report.

original_email

This method returns an Email::Simple object containing the original message to which the report refers. Bear in mind that this message may have been edited by the reporter to remove identifying information.

description

This method returns the human-readable description of the report, taken from the body of the human-readable (first) subpart of the report.

field

  my $value  = $report->field($field_name);
  my @values = $report->field($field_name);

This method returns the value for the given field from the second, machine-readable part of the report. In scalar context, it returns the first value for the field.

user_agent

arf_version

These methods are shorthand for retrieving the fields of the same name, except for arf_version, which returns the Version header. It has been renamed to avoid confusion with the universal VERSION method.

feedback_type

SEE ALSO

http://www.mipassoc.org/arf/

RFC 5965

AUTHOR

Ricardo Signes <cpan@semiotic.systems>

COPYRIGHT AND LICENSE

This software is copyright (c) 2023 by Ricardo Signes.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.