Email::ARF::Report - interpret Abuse Reporting Format (ARF) messages
version 0.003
$Id: /my/pep/Email-ARF/trunk/lib/Email/ARF/Report.pm 31179 2007-03-23T02:07:17.416360Z rjbs $
Achtung! Yes, version 0.003. 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.
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);
}
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.
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.
my $mail = Email::ARF::Report->create(
original_email => $email,
description => $description,
fields => \%fields, # or \@fields
);
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.
Default values are provided for the following fields:
version - 0.1 user-agent - Email::ARF::Report/$VERSION feedback-type - other
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.
This method returns a string representation of the report.
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.
This method returns the human-readable description of the report, taken from the body of the human-readable (first) subpart of the report.
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.
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.
http://www.shaftek.org/publications/drafts/abuse-report/draft-shafranovich-feedback-report-01.txt
This module is maintained by the Perl Email Project
http://emailproject.perl.org/wiki/Email::ARF::Report
Ricardo SIGNES <rjbs@cpan.org>
Copyright 2007 by Ricardo SIGNES
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
