Mail::SendEasy::SMTP - Handles the communication with the SMTP server without
dependencies.
This module will handle the communication with the SMTP server. It hasn't
dependencies and supports authentication.
use Mail::SendEasy ;
$smtp = Mail::SendEasy::SMTP->new( 'domain.foo' , 25 , 120 ) ;
if ( !$smtp->auth ) { warn($smtp->last_response_line) ;}
if ( $smtp->MAIL("FROM:<$mail{from}>") !~ /^2/ ) { warn($smtp->last_response_line) ;}
if ( $smtp->RCPT("TO:<$to>") !~ /^2/ ) { warn($smtp->last_response_line) ;}
if ( $smtp->RCPT("TO:<$to>") !~ /^2/ ) { warn($smtp->last_response_line) ;}
if ( $smtp->DATA =~ /^3/ ) {
$smtp->print("To: foo@foo") ;
$smtp->print("Subject: test") ;
$smtp->print("\n") ;
$smtp->print("This is a sample MSG!") ;
if ( $smtp->DATAEND !~ /^2/ ) { warn($smtp->last_response_line) ;}
}
$smtp->close ;
Create the SMTP object and connects to the server.
The authentication types supported by the SMTP server.
Send data to the socket connection.
Send a command to the server.
Returns the code response.
If wantarray returns an ARRAY with the response lines.
Returns an ARRAY with the response lines.
The last response line (code and text).
QUIT and close the connection.
Graciliano M. P. <gm@virtuasites.com.br>
This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.