Bug #14540 for Mail-Webmail-Gmail: 1.04's login is now broken. (due to Gmail changes?)

Sat Sep 10 05:33:41 2005 SHLOMIF [...] cpan.org - Ticket created

Subject:

1.04's login is now broken. (due to Gmail changes?)

It seems that the Gmail changes have broken Mail::Webmail::Gmail. An analysis shows it fails on the conditional: if ( $res->content() =~ /top.location = "(.*?)";/ ) { $req = HTTP::Request->new( GET => "https://www.google.com/accounts/$1" ); $req->header( 'Cookie' => $self->{_cookie} ); But I don't know exactly how to fix it from there.

Tue Sep 13 21:09:36 2005 Guest - Correspondence added

From:

mlopyrev [...] rogers.com

[SHLOMIF - Sat Sep 10 05:33:41 2005]: Show quoted text

> It seems that the Gmail changes have broken Mail::Webmail::Gmail. An > analysis shows it fails on the conditional: > > if ( $res->content() =~ /top.location = "(.*?)";/ ) { > $req = HTTP::Request->new( GET => > "https://www.google.com/accounts/$1" ); > $req->header( 'Cookie' => $self->{_cookie} ); > > But I don't know exactly how to fix it from there.

Yep. Google has changed login semantics a bit. My picture gallery is broken now :(.

Sun Oct 02 20:27:18 2005 Guest - Correspondence added

From:

mlopyrev [...] rogers.com

[guest - Tue Sep 13 21:09:36 2005]: Show quoted text

> [SHLOMIF - Sat Sep 10 05:33:41 2005]: >

> > It seems that the Gmail changes have broken Mail::Webmail::Gmail. An > > analysis shows it fails on the conditional: > > > > if ( $res->content() =~ /top.location = "(.*?)";/ ) { > > $req = HTTP::Request->new( GET => > > "https://www.google.com/accounts/$1" ); > > $req->header( 'Cookie' => $self->{_cookie} ); > > > > But I don't know exactly how to fix it from there.

> > > Yep. Google has changed login semantics a bit. My picture gallery is > broken now :(.

To hack around, in your LWP/UserAgent.pm, replace: $referral->remove_header(Host), Cookie); by $referral->remove_header(Host);

Wed Dec 28 16:46:23 2005 Guest - Correspondence added

From:

ads [...] bubba.org

[guest - Sun Oct 2 20:27:18 2005]: Show quoted text

> [guest - Tue Sep 13 21:09:36 2005]: >

> > [SHLOMIF - Sat Sep 10 05:33:41 2005]: > >

> > > It seems that the Gmail changes have broken Mail::Webmail::Gmail.

> An

> > > analysis shows it fails on the conditional: > > > > > > if ( $res->content() =~ /top.location = "(.*?)";/ ) { > > > $req = HTTP::Request->new( GET => > > > "https://www.google.com/accounts/$1" ); > > > $req->header( 'Cookie' => $self->{_cookie} ); > > > > > > But I don't know exactly how to fix it from there.

> > > > > > Yep. Google has changed login semantics a bit. My picture gallery is > > broken now :(.

> > > > > To hack around, in your LWP/UserAgent.pm, replace: > > $referral->remove_header(Host), Cookie); > by > $referral->remove_header(Host);

This does fix one issue, but login to gmail via this module is still broken at least as of 12/23/05.

Wed Jan 11 14:38:03 2006 SHLOMIF [...] cpan.org - Correspondence added

From:

Shlomi Fish

[SHLOMIF - Sat Sep 10 05:33:41 2005]: Show quoted text

> It seems that the Gmail changes have broken Mail::Webmail::Gmail. An > analysis shows it fails on the conditional: > > if ( $res->content() =~ /top.location = "(.*?)";/ ) { > $req = HTTP::Request->new( GET => > "https://www.google.com/accounts/$1" ); > $req->header( 'Cookie' => $self->{_cookie} ); > > But I don't know exactly how to fix it from there.

Attached is a diff against the module that fixes this problem for something I tried. The diff still has some issues. Among else, I modified the delete_messages function to section the messages into groups of 200 and delete them group by group. This may have only been necessary due to my ISP's mis-behaviour, and generally should work. I've also refactored the code a bit. I'd like to thank: 1. The commentator on this bug for the LWP::UserAgent patchlet (that was implemented as an LWP::UserAgent sub-class here.) 2. The hackers of the libgmail python interface whose code I used to remedy the login here. Regards, Shlomi Fish

Message body is not shown because it is too large.

Fri Mar 10 10:33:22 2006 mincus [...] cpan.org - Correspondence added

This should be fixed in the new version 1.04.1 that I have just uploaded to CPAN - it may take a few hours to distribute... but you've waited two months, whats a few more hours ;). Special thanks to Sholmi for the patch contribution!

Fri Mar 10 10:33:23 2006 The RT System itself - Status changed from 'new' to 'open'

Fri Mar 10 10:33:23 2006 mincus [...] cpan.org - Status changed from 'open' to 'resolved'

Fri Mar 10 10:33:25 2006 mincus [...] cpan.org - Given to MINCUS