From bcbf441e09fb502cf64924ff2530fa144bdf52c5 Mon Sep 17 00:00:00 2001 From: Andreas Brachold Date: Mon, 13 Aug 2007 18:41:27 +0000 Subject: * Move files to trunk --- lib/Mail/SendEasy/AUTH.pm | 171 ++++++++++++++++++++ lib/Mail/SendEasy/Base64.pm | 103 ++++++++++++ lib/Mail/SendEasy/IOScalar.pm | 95 +++++++++++ lib/Mail/SendEasy/SMTP.pm | 365 ++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 734 insertions(+) create mode 100644 lib/Mail/SendEasy/AUTH.pm create mode 100644 lib/Mail/SendEasy/Base64.pm create mode 100644 lib/Mail/SendEasy/IOScalar.pm create mode 100644 lib/Mail/SendEasy/SMTP.pm (limited to 'lib/Mail/SendEasy') diff --git a/lib/Mail/SendEasy/AUTH.pm b/lib/Mail/SendEasy/AUTH.pm new file mode 100644 index 0000000..7387ea2 --- /dev/null +++ b/lib/Mail/SendEasy/AUTH.pm @@ -0,0 +1,171 @@ +############################################################################# +## This file was generated automatically by Class::HPLOO/0.12 +## +## Original file: ./lib/Mail/SendEasy/AUTH.hploo +## Generation date: 2004-04-09 04:49:29 +## +## ** Do not change this file, use the original HPLOO source! ** +############################################################################# + +############################################################################# +## Name: AUTH.pm +## Purpose: Mail::SendEasy::AUTH +## Author: Graciliano M. P. +## Modified by: +## Created: 2004-01-23 +## RCS-ID: +## Copyright: (c) 2004 Graciliano M. P. +## Licence: This program is free software; you can redistribute it and/or +## modify it under the same terms as Perl itself +############################################################################# + + +{ package Mail::SendEasy::AUTH ; + + use strict qw(vars) ; no warnings ; + + my (%CLASS_HPLOO) ; + + sub new { + my $class = shift ; + my $this = bless({} , $class) ; + no warnings ; + my $undef = \'' ; + sub UNDEF {$undef} ; + if ( $CLASS_HPLOO{ATTR} ) { + foreach my $Key ( keys %{$CLASS_HPLOO{ATTR}} ) { + tie( $this->{$Key} => 'Class::HPLOO::TIESCALAR' , $CLASS_HPLOO{ATTR}{$Key}{tp} , $CLASS_HPLOO{ATTR}{$Key}{pr} , \$this->{CLASS_HPLOO_ATTR}{$Key} ) if !exists $this->{$Key} ; + } } my $ret_this = defined &AUTH ? $this->AUTH(@_) : undef ; + if ( ref($ret_this) && UNIVERSAL::isa($ret_this,$class) ) { + $this = $ret_this ; + if ( $CLASS_HPLOO{ATTR} && UNIVERSAL::isa($this,'HASH') ) { + foreach my $Key ( keys %{$CLASS_HPLOO{ATTR}} ) { + tie( $this->{$Key} => 'Class::HPLOO::TIESCALAR' , $CLASS_HPLOO{ATTR}{$Key}{tp} , $CLASS_HPLOO{ATTR}{$Key}{pr} , \$this->{CLASS_HPLOO_ATTR}{$Key} ) if !exists $this->{$Key} ; + } } } elsif ( $ret_this == $undef ) { + $this = undef ; + } return $this ; + } + + + use vars qw($VERSION) ; + $VERSION = '0.01' ; + + my %AUTH_TYPES = ( + PLAIN => 1 , + LOGIN => 1 , + CRAM_MD5 => 0 , + ) ; + + { + eval(q`use Digest::HMAC_MD5 qw(hmac_md5_hex)`) ; + $AUTH_TYPES{CRAM_MD5} = 1 if defined &hmac_md5_hex ; + } + + sub AUTH { + my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; + my $user = shift(@_) ; + my $pass = shift(@_) ; + my @authtypes = @_ ; + @_ = () ; + + my $auth_sub ; + foreach my $auth ( @authtypes ) { + my $name = uc($auth) ; + if ( $AUTH_TYPES{$name} ) { $auth_sub = $name ; last ;} + } + + $auth_sub = 'PLAIN' if !@authtypes && !$auth_sub ; + + return UNDEF if !$auth_sub || $user eq '' || $pass eq '' ; + + $this->{USER} = $user ; + $this->{PASS} = $pass ; + $this->{AUTHSUB} = $auth_sub ; + } + + sub type { my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; $this->{AUTHSUB} } + + sub start { + my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; + + my $start = $this->{AUTHSUB} . "_start" ; + return &$start($this , @_) if defined &$start ; + return ; + } + + sub step { + my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; + + my $step = $this->{AUTHSUB} . "_step" ; + return &$step($this , @_) if defined &$step ; + return ; + } + + ############# + + sub PLAIN_start { + my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; + + my @parts = map { defined $this->{$_} ? $this->{$_} : ''} qw(USER USER PASS); + return join("\0", @parts) ; + } + + ############# + + sub LOGIN_step { + my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; + my $string = shift(@_) ; + + $string =~ /password/i ? $this->{PASS} : + $string =~ /username/i ? $this->{USER} : + '' ; + } + + ############# + + sub CRAM_MD5_step { + my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; + my $string = shift(@_) ; + + my ($user, $pass) = map { defined $this->{$_} ? $this->{$_} : '' } qw(USER PASS) ; + $user . " " . hmac_md5_hex($string,$pass); + return $user ; + } + + +} + + +1; + +__END__ + +=head1 NAME + +Mail::SendEasy::AUTH - Handles the authentication response. + +=head1 DESCRIPTION + +This module will handles the authentication response to the SMTP server. + +=head1 SUPPORTED AUTH + + PLAIN + LOGIN + CRAM_MD5 + +=head1 USAGE + +B See L. + +=head1 AUTHOR + +Graciliano M. P. + +=head1 COPYRIGHT + +This program is free software; you can redistribute it and/or +modify it under the same terms as Perl itself. + +=cut + diff --git a/lib/Mail/SendEasy/Base64.pm b/lib/Mail/SendEasy/Base64.pm new file mode 100644 index 0000000..995a7b1 --- /dev/null +++ b/lib/Mail/SendEasy/Base64.pm @@ -0,0 +1,103 @@ +############################################################################# +## Name: Base64.pm +## Purpose: Mail::SendEasy::Base64 +## Author: Graciliano M. P. +## Modified by: +## Created: 25/5/2003 +## RCS-ID: +## Copyright: (c) 2003 Graciliano M. P. +## Licence: This program is free software; you can redistribute it and/or +## modify it under the same terms as Perl itself +############################################################################# + +package Mail::SendEasy::Base64 ; + +use strict qw(vars) ; +no warnings ; + +use vars qw($VERSION @ISA) ; +our $VERSION = '1.0' ; + +require Exporter; +@ISA = qw(Exporter); + +our @EXPORT = qw(encode_base64 decode_base64) ; +our @EXPORT_OK = @EXPORT ; + +my ($BASE64_PM) ; +eval("use MIME::Base64 ()") ; +if ( defined &MIME::Base64::encode_base64 ) { $BASE64_PM = 1 ;} + +################# +# ENCODE_BASE64 # +################# + +sub encode_base64 { + if ( $BASE64_PM ) { return &MIME::Base64::encode_base64($_[0]) ;} + else { return &_encode_base64_pure_perl($_[0]) ;} +} + +############################ +# _ENCODE_BASE64_PURE_PERL # +############################ + +sub _encode_base64_pure_perl { + my $res = ""; + my $eol = $_[1]; + $eol = "\n" unless defined $eol; + pos($_[0]) = 0; # ensure start at the beginning + while ($_[0] =~ /(.{1,45})/gs) { + $res .= substr(pack('u', $1), 1); + chop($res); + } + $res =~ tr|` -_|AA-Za-z0-9+/|; # `# help emacs + # fix padding at the end + my $padding = (3 - length($_[0]) % 3) % 3; + $res =~ s/.{$padding}$/'=' x $padding/e if $padding; + # break encoded string into lines of no more than 76 characters each + if (length $eol) { + $res =~ s/(.{1,76})/$1$eol/g; + } + $res; +} + +################# +# DECODE_BASE64 # +################# + +sub decode_base64 { + if ( $BASE64_PM ) { return &MIME::Base64::decode_base64($_[0]) ;} + else { return &_decode_base64_pure_perl($_[0]) ;} +} + + +############################ +# _DECODE_BASE64_PURE_PERL # +############################ + +sub _decode_base64_pure_perl { + local($^W) = 0 ; + my $str = shift ; + my $res = ""; + + $str =~ tr|A-Za-z0-9+=/||cd; # remove non-base64 chars + if (length($str) % 4) { + #require Carp; + #Carp::carp("Length of base64 data not a multiple of 4") + } + $str =~ s/=+$//; # remove padding + $str =~ tr|A-Za-z0-9+/| -_|; # convert to uuencoded format + while ($str =~ /(.{1,60})/gs) { + my $len = chr(32 + length($1)*3/4); # compute length byte + $res .= unpack("u", $len . $1 ); # uudecode + } + $res; +} + +####### +# END # +####### + +1; + + diff --git a/lib/Mail/SendEasy/IOScalar.pm b/lib/Mail/SendEasy/IOScalar.pm new file mode 100644 index 0000000..4385071 --- /dev/null +++ b/lib/Mail/SendEasy/IOScalar.pm @@ -0,0 +1,95 @@ +############################################################################# +## Name: IOScalar.pm +## Purpose: Mail::SendEasy::IOScalar +## Author: Graciliano M. P. +## Modified by: +## Created: 25/5/2003 +## RCS-ID: +## Copyright: (c) 2003 Graciliano M. P. +## Licence: This program is free software; you can redistribute it and/or +## modify it under the same terms as Perl itself +############################################################################# + +package Mail::SendEasy::IOScalar ; + +use strict qw(vars) ; + +use vars qw($VERSION @ISA) ; +our $VERSION = '0.01' ; + +sub new { + my $proto = shift; + my $class = ref($proto) || $proto ; + my $sref = shift ; + my $self = bless \do { local *FH }, $class ; + tie *$self, $class, $self ; + if (!defined $sref) { my $s ; $sref = \$s ;} + *$self->{Pos} = 0; + *$self->{SR} = $sref; + $self; +} + +sub print { + my $self = shift; + *$self->{Pos} = length(${*$self->{SR}} .= join('', @_)); + 1; +} + +sub write { + my $self = $_[0]; + my $n = $_[2]; + my $off = $_[3] || 0; + my $data = substr($_[1], $off, $n); + $n = length($data); + $self->print($data); + return $n; +} + +sub eof { + my $self = shift; + (*$self->{Pos} >= length(${*$self->{SR}})); +} + +sub seek { + my ($self, $pos, $whence) = @_; + my $eofpos = length(${*$self->{SR}}); + if ($whence == 0) { *$self->{Pos} = $pos } ### SEEK_SET + elsif ($whence == 1) { *$self->{Pos} += $pos } ### SEEK_CUR + elsif ($whence == 2) { *$self->{Pos} = $eofpos + $pos} ### SEEK_END + if (*$self->{Pos} < 0) { *$self->{Pos} = 0 } + if (*$self->{Pos} > $eofpos) { *$self->{Pos} = $eofpos } + 1; +} + +sub tell { *{shift()}->{Pos} } + +sub close { my $self = shift ; %{*$self} = () ; 1 ;} + +sub syswrite { shift->write(@_) ;} +sub sysseek { shift->seek (@_) ;} + +sub flush {} +sub autoflush {} +sub binmode {} + +sub DESTROY { shift->close ;} + +sub TIEHANDLE { + ((defined($_[1]) && UNIVERSAL::isa($_[1],'Mail::SendEasy::IOScalar')) ? $_[1] : shift->new(@_)) ; +} + +sub PRINT { shift->print(@_) } +sub PRINTF { shift->print(sprintf(shift, @_)) } +sub WRITE { shift->write(@_); } +sub CLOSE { shift->close(@_); } +sub SEEK { shift->seek(@_); } +sub TELL { shift->tell(@_); } +sub EOF { shift->eof(@_); } + +####### +# END # +####### + +1; + + diff --git a/lib/Mail/SendEasy/SMTP.pm b/lib/Mail/SendEasy/SMTP.pm new file mode 100644 index 0000000..192a1b3 --- /dev/null +++ b/lib/Mail/SendEasy/SMTP.pm @@ -0,0 +1,365 @@ +############################################################################# +## This file was generated automatically by Class::HPLOO/0.12 +## +## Original file: ./lib/Mail/SendEasy/SMTP.hploo +## Generation date: 2004-04-09 04:49:29 +## +## ** Do not change this file, use the original HPLOO source! ** +############################################################################# + +############################################################################# +## Name: SMTP.pm +## Purpose: Mail::SendEasy::SMTP +## Author: Graciliano M. P. +## Modified by: +## Created: 2004-01-23 +## RCS-ID: +## Copyright: (c) 2004 Graciliano M. P. +## Licence: This program is free software; you can redistribute it and/or +## modify it under the same terms as Perl itself +############################################################################# + + +{ package Mail::SendEasy::SMTP ; + + use strict qw(vars) ; no warnings ; + + my (%CLASS_HPLOO) ; + + sub new { + my $class = shift ; + my $this = bless({} , $class) ; + no warnings ; + my $undef = \'' ; + sub UNDEF {$undef} ; + if ( $CLASS_HPLOO{ATTR} ) { + foreach my $Key ( keys %{$CLASS_HPLOO{ATTR}} ) { + tie( $this->{$Key} => 'Class::HPLOO::TIESCALAR' , $CLASS_HPLOO{ATTR}{$Key}{tp} , $CLASS_HPLOO{ATTR}{$Key}{pr} , \$this->{CLASS_HPLOO_ATTR}{$Key} ) if !exists $this->{$Key} ; + } } my $ret_this = defined &SMTP ? $this->SMTP(@_) : undef ; + if ( ref($ret_this) && UNIVERSAL::isa($ret_this,$class) ) { + $this = $ret_this ; + if ( $CLASS_HPLOO{ATTR} && UNIVERSAL::isa($this,'HASH') ) { + foreach my $Key ( keys %{$CLASS_HPLOO{ATTR}} ) { + tie( $this->{$Key} => 'Class::HPLOO::TIESCALAR' , $CLASS_HPLOO{ATTR}{$Key}{tp} , $CLASS_HPLOO{ATTR}{$Key}{pr} , \$this->{CLASS_HPLOO_ATTR}{$Key} ) if !exists $this->{$Key} ; + } } } elsif ( $ret_this == $undef ) { + $this = undef ; + } return $this ; + } + + + use IO::Socket ; + use IO::Select ; + + use Mail::SendEasy::AUTH ; + use Mail::SendEasy::Base64 ; + + no warnings ; + + use vars qw($VERSION) ; + $VERSION = '0.01' ; + + sub SMTP { + my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; + my $host = shift(@_) ; + my $port = shift(@_) ; + my $timeout = shift(@_) ; + my $user = shift(@_) ; + my $pass = shift(@_) ; + my $from_sendeasy = shift(@_) ; + + $this->{HOST} = $host ; + $this->{PORT} = $port || 25 ; + $this->{TIMEOUT} = $timeout || 120 ; + $this->{USER} = $user ; + $this->{PASS} = $pass ; + + $this->{SENDEASY} = 1 if $from_sendeasy ; + + for (1..2) { last if $this->connect($_) ;} + + return UNDEF if !$this->{SOCKET} ; + } + + sub connect { + my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; + my $n = shift(@_) ; + + my $sock = new IO::Socket::INET( + PeerAddr => $this->{HOST} , + PeerPort => $this->{PORT} , + Proto => 'tcp' , + Timeout => $this->{TIMEOUT} , + ) ; + + if (!$sock) { + $this->warn("ERROR: Can't connect to $this->{HOST}:$this->{PORT}\n") if (!$n || $n > 1) ; + return ; + } + + $sock->autoflush(1) ; + $this->{SOCKET} = $sock ; + + if ( $this->response !~ /^2/ ) { + $this->close("ERROR: Connection error on host $this->{HOST}:$this->{PORT}\n") if (!$n || $n > 1) ; + return ; + } + + if ( $this->EHLO('main') !~ /^2/ ) { + $this->close("ERROR: Error on EHLO") ; + return ; + } + else { + my @response = $this->last_response ; + foreach my $response_i ( @response ) { + next if $$response_i[0] !~ /^2/ ; + my ($key , $val) = ( $$response_i[1] =~ /^(\S+)\s*(.*)/s ); + $this->{INF}{$key} = $val ; + } + } + + return 1 ; + } + + sub is_connected { + my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; + + return 1 if $this->{SOCKET} && $this->{SOCKET}->connected ; + return undef ; + } + + sub auth_types { + my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; + + my @types = split(/\s+/s , $this->{INF}{AUTH}) ; + return @types ; + } + + sub auth { + my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; + my $user = shift(@_) ; + my $pass = shift(@_) ; + my @types = @_ ; + @_ = () ; + + $user = $this->{USER} if $user eq '' ; + $pass = $this->{PASS} if $pass eq '' ; + @types = $this->auth_types if !@types ; + + my $auth = Mail::SendEasy::AUTH->new($user , $pass , @types) ; + + if ( $auth && $this->AUTH( $auth->type ) =~ /^3/ ) { + if ( my $init = $auth->start ) { + $this->cmd(encode_base64($init, '')) ; + return 1 if $this->response == 235 ; + } + + my @response = $this->last_response ; + + while ( $response[0][0] == 334 ) { + my $message = decode_base64( $response[0][1] ) ; + my $return = $auth->step($message) ; + $this->cmd(encode_base64($return, '')) ; + @response = $this->response ; + return 1 if $response[0][0] == 235 ; + last if $response[0][0] == 535 ; + } + } + + $this->warn("Authentication error!\n") ; + + return undef ; + } + + sub EHLO { my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; $this->cmd("EHLO",@_) ; $this->response ;} + sub AUTH { my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; $this->cmd("AUTH",@_) ; $this->response ;} + + sub MAIL { my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; $this->cmd("MAIL",@_) ; $this->response ;} + sub RCPT { my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; $this->cmd("RCPT",@_) ; $this->response ;} + + sub DATA { my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; $this->cmd("DATA") ; $this->response ;} + sub DATAEND { my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; $this->cmd(".") ; $this->response ;} + + sub QUIT { my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; $this->cmd("QUIT") ; return wantarray ? [200,''] : 200 ;} + + sub close { + my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; + my $error = shift(@_) ; + + $this->warn($error) if $error ; + return if !$this->{SOCKET} ; + $this->QUIT ; + close( delete $this->{SOCKET} ) ; + } + + sub warn { + my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; + my $error = shift(@_) ; + + return if !$error ; + if ( $this->{SENDEASY} ) { Mail::SendEasy::warn($error) ;} + else { warn($error) ;} + } + + sub print { + my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; + my $data = shift(@_) ; + + $this->connect if !$this->is_connected ; + return if !$this->{SOCKET} ; + my $sock = $this->{SOCKET} ; + print $sock $data ; + } + + sub cmd { + my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; + my @cmds = @_ ; + @_ = () ; + + $this->connect if !$this->is_connected ; + return if !$this->{SOCKET} ; + my $sock = $this->{SOCKET} ; + my $cmd = join(" ", @cmds) ; + $cmd =~ s/[\r\n]+$//s ; + $cmd =~ s/(?:\r\n?|\n)/ /gs ; + $cmd .= "\015\012" ; + print $sock $cmd ; + } + + sub response { + my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; + + $this->connect if !$this->is_connected ; + return if !$this->{SOCKET} ; + local($/) ; $/ = "\n" ; + my $sock = $this->{SOCKET} ; + + my $sel = IO::Select->new($sock) ; + + + my ($line , @lines) ; + + if ( $sel->can_read( $this->{TIMEOUT} ) ) { + while(1) { + chomp($line = <$sock>) ; + my ($code , $more , $msg) = ( $line =~ /^(\d+)(.?)(.*)/s ) ; + $msg =~ s/\s+$//s ; + push(@lines , [$code , $msg]) ; + last if $more ne '-' ; + } + } + + $this->{LAST_RESPONSE} = \@lines ; + + return( @lines ) if wantarray ; + return $lines[0][0] ; + + return ; + } + + sub last_response { my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; return wantarray ? @{$this->{LAST_RESPONSE}} : @{$this->{LAST_RESPONSE}}[0]->[0] } ; + + sub last_response_msg { my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; @{$this->{LAST_RESPONSE}}[0]->[1] } ; + + sub last_response_line { my $this = ref($_[0]) && UNIVERSAL::isa($_[0],'UNIVERSAL') ? shift : undef ; @{$this->{LAST_RESPONSE}}[0]->[0] . " " . @{$this->{LAST_RESPONSE}}[0]->[1] } ; + + +} + + + +1; + +__END__ + +=head1 NAME + +Mail::SendEasy::SMTP - Handles the communication with the SMTP server without dependencies. + +=head1 DESCRIPTION + +This module will handle the communication with the SMTP server. +It hasn't dependencies and supports authentication. + +=head1 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 ; + +=head1 METHODS + +=head2 new ($host , $port , $timeout , $user , $pass) + +Create the SMTP object and connects to the server. + +=head2 connect + +Connect to the server. + +=head2 auth_types + +The authentication types supported by the SMTP server. + +=head2 auth($user , $pass) + +Does the authentication. + +=head2 print (data) + +Send I to the socket connection. + +=head2 cmd (CMD , @MORE) + +Send a command to the server. + +=head2 response + +Returns the code response. + +If I returns an ARRAY with the response lines. + +=head2 last_response + +Returns an ARRAY with the response lines. + +=head2 last_response_msg + +The last response text. + +=head2 last_response_line + +The last response line (code and text). + +=head2 close + +B and close the connection. + +=head1 AUTHOR + +Graciliano M. P. + +=head1 COPYRIGHT + +This program is free software; you can redistribute it and/or +modify it under the same terms as Perl itself. + +=cut + -- cgit v1.2.3