diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2016-06-30 08:24:05 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2016-06-30 08:24:05 +0100 |
| commit | 895f8f615a211dfef594686eb2cb0797afb286bd (patch) | |
| tree | 4cfdba37f00c30bb353195653f5f3716cce1953d | |
| parent | 7a1a0dda7c15c585f7766ad0ef1c6759a89c868a (diff) | |
| parent | 47464724517031bdcb3503fcf08b628a24075667 (diff) | |
| download | perl-libnet-895f8f615a211dfef594686eb2cb0797afb286bd.tar.gz | |
Merge pull request #27 from pprindeville/master
Include decoded (from base64) negotiation for SASL.
| -rw-r--r-- | lib/Net/SMTP.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lib/Net/SMTP.pm b/lib/Net/SMTP.pm index 83bb387..33d4426 100644 --- a/lib/Net/SMTP.pm +++ b/lib/Net/SMTP.pm @@ -225,11 +225,15 @@ sub auth { if defined $str and length $str; while (($code = $self->command(@cmd)->response()) == CMD_MORE) { + my $str2 = MIME::Base64::decode_base64(($self->message)[0]); + $self->debug_print(0, "(decoded) " . $str2 . "\n") if $self->debug; + + $str = $client->client_step($str2); @cmd = ( - MIME::Base64::encode_base64( - $client->client_step(MIME::Base64::decode_base64(($self->message)[0])), '' - ) + MIME::Base64::encode_base64($str, '') ); + + $self->debug_print(1, "(decoded) " . $str . "\n") if $self->debug; } $code == CMD_OK; |