view release on metacpan or  search on metacpan

Mercury/SMTP_Message.pm  view on Meta::CPAN

	$self->set_smtp_status;
	return 0;
    }

    # check recipient's auto-forward settings
    if ($autoforw{$self->{'security'}} eq 'message') {
	my $msg = $self->to_mime($self->{'address'});
	$self->warn("->send_by_e_mail: sending full message to <".$self->{'address'}.">:");
	eval {
	    $msg->send_by_smtp(SMTP_SERVER, Hello => SMTP_HELLO,
			       Timeout => SMTP_TIMEOUT, Debug => SMTP_DEBUG);
	};
	if ($@) {
	    $self->log_error("->send_by_e_mail: $@");
	    return 0;
	}
	return $self->set_smtp_status('sent');

    } elsif ($autoforw{$self->{'security'}} eq 'notify') {
	my $msg = $self->mime_notify($self->{'address'});
	$self->warn("->send_by_e_mail: sending notify message to <".$self->{'address'}.">:");
	eval {
	    $msg->send_by_smtp(SMTP_SERVER, Hello => SMTP_HELLO,
			       Timeout => SMTP_TIMEOUT, Debug => SMTP_DEBUG);
	};
	if ($@) {
	    $self->log_error("->send_by_e_mail: $@");
	    return 0;
	}
	return $self->set_smtp_status('sent');
    }

    $self->set_smtp_status;
    return 0;