view release on metacpan or  search on metacpan

plib/2.64/Mail/SpamAssassin/PerMsgStatus.pm  view on Meta::CPAN

=head1 NAME

Mail::SpamAssassin::PerMsgStatus - per-message status (spam or not-spam)

=head1 SYNOPSIS

  my $spamtest = new Mail::SpamAssassin ({
    'rules_filename'      => '/etc/spamassassin.rules',
    'userprefs_filename'  => $ENV{HOME}.'/.spamassassin.cf'
  });
  my $mail = Mail::SpamAssassin::NoMailAudit->new();

  my $status = $spamtest->check ($mail);
  if ($status->is_spam()) {
    $status->rewrite_mail ();
    $mail->accept("caught_spam");
  }
  ...


=head1 DESCRIPTION

The Mail::SpamAssassin C<check()> method returns an object of this
class.  This object encapsulates all the per-message state.

=head1 METHODS

=over 4

=cut

package Mail::SpamAssassin::PerMsgStatus;

use strict;
use bytes;
use Carp;

use Text::Wrap ();

use Mail::SpamAssassin::EvalTests;
use Mail::SpamAssassin::SpamCopURI;
use Mail::SpamAssassin::AutoWhitelist;
use Mail::SpamAssassin::HTML;
use Mail::SpamAssassin::Conf;
use Mail::SpamAssassin::Received;
use Mail::SpamAssassin::Util;

use constant HAS_MIME_BASE64 =>		eval { require MIME::Base64; };

use constant MAX_BODY_LINE_LENGTH =>	2048;

# maximum byte length of a header key
use constant MAX_HEADER_KEY_LENGTH => 256;

# maximum byte length of a header value including continued lines
use constant MAX_HEADER_VALUE_LENGTH => 8192;

# maximum byte length of entire header
use constant MAX_HEADER_LENGTH => 65536;


use vars qw{
  @ISA $base64alphabet
};

@ISA = qw();

###########################################################################