File Coverage

lib/Haineko/SMTPD/Relay/Screen.pm

Criterion	Covered	Total	%
statement	52	56	92.8
branch	6	10	60.0
condition	3	5	60.0
subroutine	9	9	100.0
pod	2	2	100.0
total	72	82	87.8

package Haineko::SMTPD::Relay::Screen;
use parent 'Haineko::SMTPD::Relay';
use strict;
use warnings;
use Haineko::SMTPD::Response;
use Email::MIME;
use Time::Piece;
use Encode;

sub new {
    my $class = shift;
    my $argvs = { @_ };

    $argvs->{'host'}      = undef,
    $argvs->{'port'}      = undef,
    $argvs->{'time'}    ||= Time::Piece->new;
    $argvs->{'sleep'}     = 0;
    $argvs->{'retry'}     = 0;
    $argvs->{'timeout'}   = 0;
    $argvs->{'startls'}   = 0;
    return bless $argvs, __PACKAGE__;
}

sub sendmail {
    my $self = shift;

    my $headerlist = [];
    my $emencoding = uc( $self->{'attr'}->{'charset'} || 'UTF-8' );
    my $methodargv = {
        'body' => Encode::encode( $emencoding, ${ $self->{'body'} } ),
        'attributes' => $self->{'attr'},
    };
    utf8::decode $methodargv->{'body'} unless utf8::is_utf8 $methodargv->{'body'} ;

    for my $e ( @{ $self->{'head'}->{'Received'} } ) {
        # Convert email headers
        push @$headerlist, 'Received' => $e;
    }
    push @$headerlist, 'To' => $self->{'rcpt'};

    for my $e ( keys %{ $self->{'head'} } ) {
        # Make email headers except ``Received'' and ``MIME-Version''
        next if $e eq 'Received';
        next if $e eq 'MIME-Version';

        if( ref $self->{'head'}->{ $e } eq 'ARRAY' ) {

            for my $f ( @{ $self->{'head'}->{ $e } } ) {
                push @$headerlist, $e => $f;
            }
        }
        else {
            push @$headerlist, $e => $self->{'head'}->{ $e };
        }
    }
    $methodargv->{'header'} = $headerlist;

    my $mimeobject = Email::MIME->create( %$methodargv );
    my $mailstring = $mimeobject->as_string;
    my $smtpparams = {
        'dsn'     => undef,
        'code'    => 200,
        'host'    => undef,
        'port'    => undef,
        'rcpt'    => $self->{'rcpt'},
        'error'   => 0,
        'mailer'  => 'Screen',
        'message' => [ 'OK' ],
        'command' => 'DATA',
    };
    $self->response( Haineko::SMTPD::Response->new( %$smtpparams ) );

    utf8::encode $mailstring if utf8::is_utf8 $mailstring;
    printf( STDERR "%s", $mailstring );

    return 1;
}

1;
__END__