#!/perl/bin/perl

#use strict;
use IO::SOCKET::INET;
use DBI;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);

print "Starting e-mail test...\n";	

	    $mailto[0]="me\@yahoo.com";
	    $mailto[1]="me\@google.com";

#IP 111.111.111.11 for showing only

	    foreach my $element (@mailto) {
		my $sock = IO::Socket::INET->new (PeerAddr => '111.111.111.11',
						  Type => 'SOCK_STREAM ',
						  PeerPort => 'smtp(25)',
						  Proto => 'tcp')|| die "That sucks, I can't open a port on The mail server. I'm going to take all my toys and go home now..";
		my $input = <$sock>;
		print $sock "HELO localhost\r\n";
		$input = <$sock>;
		print $sock "mail from:me\@yahoo.com\r\n";
		$input = <$sock>;
		print $sock "rcpt to:$element\r\n";
		print "rcpt to:$element\r\n";
		$input = <$sock>;
		print $sock "DATA\r\n";
		print $sock "Subject: Assignment Test\r\n";
		print $sock "From: Appraiser Test\r\n";
		print $sock "To: $element\r\n";
		print $sock "\r\n";
		print $sock "You have received a Response...";
		print $sock ".  Please click on the following link for details... \r\n";
		print $sock "\r\n\r\n\r\n";
		print $sock ".\r\n";
		$input = <$sock>;
		print $sock "QUIT";
		close ($sock);

		
	    }
	    
print "End test";