diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Net/SMTP.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Net/SMTP.pm | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/Master/tlpkg/tlperl/lib/Net/SMTP.pm b/Master/tlpkg/tlperl/lib/Net/SMTP.pm index 0130a2fd64b..0dd966fdf6f 100644 --- a/Master/tlpkg/tlperl/lib/Net/SMTP.pm +++ b/Master/tlpkg/tlperl/lib/Net/SMTP.pm @@ -21,7 +21,7 @@ use Net::Cmd; use Net::Config; use Socket; -our $VERSION = "3.08_01"; +our $VERSION = "3.10"; # Code for detecting if we can use SSL my $ssl_class = eval { @@ -39,7 +39,7 @@ my $family_key = 'Domain'; my $inet6_class = eval { require IO::Socket::IP; no warnings 'numeric'; - IO::Socket::IP->VERSION(0.20) || die; + IO::Socket::IP->VERSION(0.25) || die; $family_key = 'Family'; } && 'IO::Socket::IP' || eval { require IO::Socket::INET6; @@ -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; |