Comment m'authentifier dans Gmail en utilisant Perl?

Question

J'ai installé le module this pour accéder et contrôler dans une boîte de réception Gmail. Cependant, lorsque j'essaie de me connecter via un petit script Perl et de tester la fonctionnalité, j'obtiens ce message d'erreur.

Error: Could not login with those credentials - could not find final URL 
    Additionally, HTTP error: 200 OK 

Ceci est une erreur générée dans le module Gmail.pm.

Je peux cingler l'URL en question (https://www.google.com/accounts/ServiceLoginBoxAuth) donc je pense que le problème n'est pas de trouver l'URL. De plus, je sais que les informations d'identification sont correctes et fonctionnent à cette URL car je les ai essayées manuellement. J'utilise le script this pour les tests. J'ai fourni mes informations d'identification dans les endroits appropriés. J'ai également installé this module avec le même type d'erreur.

Une idée de pourquoi je suis bloqué?

Answer 1

Utilisation Mail::IMAPClient comme indiqué ci-dessous. Pour passer l'authentification SSL via Mail :: IMAPClient, vous devez avoir IO :: Socket :: SSL de Net :: SSLeay installé. Si oui, cela fonctionne comme un charme.

#!/usr/bin/env perl 
use strict; use warnings; 
use Mail::IMAPClient; 

# Connect to IMAP server 
my $client = Mail::IMAPClient->new(
    Server => 'imap.gmail.com', 
    User  => 'yourusername', 
    Password => 'yourp4a55w0r&', 
    Port  => 993, 
    Ssl  => 1, 
) 
    or die "Cannot connect through IMAPClient: $!"; 

# List folders on remote server (see if all is ok) 
if ($client->IsAuthenticated()) { 
    print "Folders:\n"; 
    print "- ", $_, "\n" for @{ $client->folders() }; 
}; 

# Say so long 
$client->logout(); 

Answer 2

J'accède avec succès un compte gmail (compte Google Apps pour être précis) en utilisant Mail :: POP3Client

Answer 3

Si vous ne pouvez pas accéder à gmail via POP3 normal ou IMAP soit, alors vous avez un problème de configuration plutôt qu'une programmation problème.

je vais chercher mon courrier de gmail (en fait Google Apps, qui utilise la même interface), en utilisant les détails de configuration décrite ici: (Cette réponse est beaucoup plus approprié pour Super User bien) http://download.gna.org/hpr/fetchmail/FAQ/gmail-pop-howto.html

Answer 4

Vous pouvez essayé avec le module suivant

Mail::Webmail::Gmail 

Answer 5

Vous pouvez utiliser le code suivant également

use warnings; 
use strict; 
use Mail::POP3Client; 
use IO::Socket::SSL; 
use CGI qw(:standard); 
my $cgi = new CGI; 
my $LOG ; 
open $LOG , ">>filename" ; 
my $username = 'name@gmail.com'; 
my $password = '*******' ; 
chomp($password); 
my $mailhost = 'pop.gmail.com'; 
my $port  = '995'; 

$cgi->header(); 

my $pop = new Mail::POP3Client(
USER  => $username, 
PASSWORD => $password, 
HOST  => $mailhost, 
PORT  => $port, 
USESSL => 'true', 
DEBUG  => 0, 
); 
if (($pop->Count()) < 1) { 
exit; 
} 

print $pop->Count() . " messages found!:$!\n"; 

for(my $i = 1; $i <= $pop->Count(); $i++) { 
foreach($pop->Head($i)) { 
/^(From|Subject|Email):\s+/i && print $_, "\n"; 
} 

$pop->BodyToFile($LOG,$i); 

} 

$pop->Close(); 

exit;