File Coverage

blib/lib/Mail/OpenRelay/Simple.pm

Criterion	Covered	Total	%
statement	35	62	56.4
branch	7	40	17.5
condition	2	4	50.0
subroutine	7	7	100.0
pod	1	1	100.0
total	52	114	45.6

package Mail::OpenRelay::Simple;

use 5.008;
use strict;
use warnings;
use base qw(Class::Accessor::Fast);
use Carp;
use Net::Telnet;

our $VERSION = '0.02';
$VERSION = eval $VERSION;

__PACKAGE__->mk_accessors( qw(host port timeout from_email rcpt_email banner debug));

$| = 1;

sub check {

	my $self       = shift;
	my $host       = $self->host;
	my $port       = $self->port;
	my $timeout    = $self->timeout;
	my $from_email = $self->from_email;
	my $rcpt_email = $self->rcpt_email;
	my $banner     = $self->banner;
	my $debug      = $self->debug;

	$banner     = $banner     ? $banner     : 0;
	$debug      = $debug      ? $debug      : 0;
	$from_email = $from_email ? $from_email : "test\@foobar.com";
	$rcpt_email = $rcpt_email ? $rcpt_email : "test\@foobar.com";

	print ". Try to connect to $host...\n" if $debug == 2;

	my $t = new Net::Telnet(
		Host    => $host,
		Port    => $port    || '25',
		Timeout => $timeout || '8',
		Errmode => "return"
	);

	if ($t){
		my $match = $t->getline;

		if ($match){

			my $Banner = $match;
			chomp $Banner; for ($Banner) { s/^220\s//; }

			if ($match =~ m/^220/){

				print ". HELO foo\n" if $debug == 1;
				$t->print("HELO foo");

				$match = $t->getline;
				if ($match){
					if ($match =~ /^250/){

						print ". MAIL FROM:<$from_email>\n" if $debug == 1;
						$t->print("MAIL FROM:<$from_email>");

						$match = $t->getline;

						if ($match){
							if ($match =~ /^250/){

								print ". RCPT TO:<$rcpt_email>\n" if $debug == 1;
								$t->print("RCPT TO:<$rcpt_email>");

								$match = $t->getline;

								if ($match){
									if ($match =~ /^250/){
										print "$Banner\n" if $banner == 1;
										return 1;
									} else {
										return 0;
									}
								} else {
									print ". can't send email with $host!\n" if $debug == 1;
								}
							}
						}
					}
				}
			}
		}
		$t->close;
	} else {
		print ". can't connect to host $host on port $port\n" if $debug == 1;
	}

	return;
}

1;
__END__