NAME¶
Mail::SendEasy::SMTP - Handles the communication with the SMTP server without
dependencies.
DESCRIPTION¶
This module will handle the communication with the SMTP server. It hasn't
dependencies and supports authentication.
USAGE¶
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 ;
METHODS¶
new ($host , $port , $timeout , $user , $pass)¶
Create the SMTP object and connects to the server.
connect¶
Connect to the server.
auth_types¶
The authentication types supported by the SMTP server.
auth($user , $pass)¶
Does the authentication.
print (data)¶
Send data to the socket connection.
cmd (CMD , @MORE)¶
Send a command to the server.
response¶
Returns the code response.
If wantarray returns an ARRAY with the response lines.
last_response¶
Returns an ARRAY with the response lines.
last_response_msg¶
The last response text.
last_response_line¶
The last response line (code and text).
close¶
QUIT and close the connection.
AUTHOR¶
Graciliano M. P. <gm@virtuasites.com.br>
COPYRIGHT¶
This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.