view release on metacpan or  search on metacpan

lib/Mail/Decency/Core/SessionItem/Policy.pm  view on Meta::CPAN

Mail::Decency::Core::SessionItem

=head1 DESCRIPTION

Represents an session item for either policy or content filter.
Base class, don't instantiate!

=head1 CLASS ATTRIBUTES

=head2 response

The current final response .. defaults to "DUNNO"

=cut

has response => ( is => 'rw', isa => "Str", default => "DUNNO" );

=head2 message

The message for the response line as ArrayRef

=cut

has message => ( is => 'rw', isa => "ArrayRef[Str]", default => sub { [] } );

=head2 sign_key

Instance of L<Crypt::OpenSSL::RSA> representing the forward sign key

=cut

has sign_key => ( is => 'rw', isa => 'Crypt::OpenSSL::RSA', predicate => 'can_sign' );


=head1 METHODS

=head2 for_cache

Returns hashref which can be cached

=cut

sub for_cache {
    my ( $self ) = @_;
    
    return {
        spam_score   => $self->spam_score,
        spam_details => $self->spam_details,
        flags        => $self->flags,
        message      => $self->message,
    };
}

=head2 update_from_cache

Updates current session from cached session

=cut

sub update_from_cache {
    my ( $self, $hash_ref ) = @_;
    
    $self->spam_score( $self->spam_score + $hash_ref->{ spam_score } )
        if $hash_ref->{ spam_score };
    
    push @{ $self->spam_details }, @{ $hash_ref->{ spam_details } }
        if $hash_ref->{ spam_details };
    
    push @{ $self->spam_details }, @{ $hash_ref->{ message } }
        if $hash_ref->{ message };
    
    if ( $hash_ref->{ flags } ) {
        $self->set_flag( $_ ) for keys %{ $hash_ref->{ flags } };
    }
    
    return;
}

=head2 generate_instance_header

Returns the instance header.. if forwarding should be forwarded and has sign key, it will be signed

=cut

sub generate_instance_header {
    my ( $self, $forward_scoring ) = @_;
    
    my $sign_error;
    
    # shall we forward scoring ?
    my $add = "";
    if ( $forward_scoring ) {
        my @add = ();
        
        # 0: weight
        push @add, $self->spam_score;
        
        # 1: timestap
        push @add, time();
        
        # 2: states, sep by ","
        push @add, join( ",", sort keys %{ $self->flags } );
        
        # 3-n: details sep by |
        push @add, join( "|", @{ $self->spam_details } );
        
        # signing
        #   sign all values added before with key
        if ( $self->can_sign ) {
            my $signed_header = "unsigned";
            
            # catch error, don't interrupt the whole process
            eval {
                $signed_header = unpack( "H*",
                    $self->sign_key->sign( join( "|", $self->id, @add ) ) );
            };
            $sign_error = $@;
            unshift @add, $signed_header;
        }