|
NAMEMail::SendEasy::SMTP - Handles the communication with the SMTP server without dependencies. DESCRIPTIONThis 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 ;
METHODSnew ($host , $port , $timeout , $user , $pass)Create the SMTP object and connects to the server. connectConnect to the server. auth_typesThe 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. responseReturns the code response. If wantarray returns an ARRAY with the response lines. last_responseReturns an ARRAY with the response lines. last_response_msgThe last response text. last_response_lineThe last response line (code and text). closeQUIT and close the connection. AUTHORGraciliano M. P. <gm@virtuasites.com.br> COPYRIGHTThis program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
|