Perl Модули Mail :: POP3Client и Net :: Pop3 Не работают с pop.gmail.com или pop.aol.com - PullRequest
1 голос
/ 12 марта 2020

Похоже, проблема связана с типами авторизации, которые эти модули могут предоставить, как показано в текстовом примере ниже.

Как мне обойти это?

use Net::Netrc;
use Mail::POP3Client;
use IO::Socket::SSL;

my $server=Net::Netrc->lookup($ARGV[0]) or die ".netrc entry not found\n";
my ($login, $pass) = $server->lpa       or die "Login or password not found\n";
print $login."  ".$pass."\n";  # DB3

my $socket = IO::Socket::SSL->new( PeerAddr => $ARGV[0],
                                         PeerPort => 995,
                                         Proto    => 'tcp') || die "No socket!";
my $pop = Mail::POP3Client->new();
      $pop->Debug(1);
      $pop->User($login);
      $pop->Pass($pass);
      $pop->Socket($socket);
      $pop->Connect();
--
POP3 <- +OK Gpop ready for requests from ...
POP3 <- SASL PLAIN XOAUTH2 OAUTHBEARER
 at ./BpGet.pl line 19.
POP3 <- .
 at ./BpGet.pl line 19.
POP3 -> USER jane
 at ./BpGet.pl line 19.
POP3 <- +OK send PASS
 at ./BpGet.pl line 19.
POP3 -> PASS janepasswd
 at ./BpGet.pl line 19.
POP3 <- -ERR [AUTH] Username and password not accepted.
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...