I tried to debug this a little myself. It looks like Gmail changed things around a bit.
I was able to get the login to work by first changing the LOGIN_URL in the module to this:
(2)
]
CPAN::Forum
Mail-Webmail-Gmail - Re: Debug output
| Posted on Sat Dec 3 01:40:36 2005 by karl in response to 1411 (See the whole thread of 5) |
| Re: Debug output |
|
I tried to debug this a little myself. It looks like Gmail changed things around a bit. I was able to get the login to work by first changing the LOGIN_URL in the module to this:
our $LOGIN_URL = "https://www.google.com/accounts/ServiceLoginAuth?service=mail&rm=false&continue=h
+ttp://mail.google.com/mail/";
And then changing some of the code in the login() sub from: if ( $res->is_success() ) {
update_tokens( $self, $res );
if ( $res->content() =~ /top.location = "(.*?)";/ ) {
$req = HTTP::Request->new( GET => "https://www.google.com/accounts/$1" );
$req->header( 'Cookie' => $self->{_cookie} );
$res = $self->{_ua}->request( $req );
if ( $res->content() =~ /location.replace\("(.*?)"\)/ ) {
update_tokens( $self, $res );
$req = HTTP::Request->new( GET => $1 );
$req->header( 'Cookie' => $self->{_cookie} );
$res = $self->{_ua}->request( $req );
if ( $res->content() =~ /<script src="(.*?)">/ ) {
to: if ($res->code == 302) {
update_tokens( $self, $res );
my $checkcookie_url = $res->header('Location');
if ($checkcookie_url =~ /CheckCookie/) {
$req = HTTP::Request->new( GET => $checkcookie_url );
$req->header( 'Cookie' => $self->{_cookie} );
$res = $self->{_ua}->request( $req );
if ( $res->content() =~ /location.replace\("(.*?)"\)/ ) {
update_tokens( $self, $res );
$req = HTTP::Request->new( GET => $1 );
$req->header( 'Cookie' => $self->{_cookie} );
$res = $self->{_ua}->request( $req );
if ( $res->content() =~ /<script type=text\/javascript src="(.*?)">/ ) {
But even then, it seems like more of the functions are broken. Perhaps Allen is already looking into things, but if I come up with any more patches, I'll post them here. --Karl. |
| Direct Responses: 1442 | 2059 | Write a response |
