Bug #3267 for WWW-Yahoo-Groups: Login problem

Sun Aug 17 04:39:24 2003 Guest - Ticket created

Subject:

Login problem

I just had a chance today to follow-up and install the module, ignoring the errors I reported the other week. The install seemed to go fine and I wrote a small snippet of code to test things - that's where the problem immediately shows up. I consistently get a "Nope. That's not a good login" error even though I seem to be doing everything right according to the example provided and what I saw at cpan.org. My test code is below, any help, taking into account the Yahoo deadline of Aug. 21st, is very highly appreciated. Please note that I was logged out of my Yahoo account when I ran the code below (and variations of it), but was able to login through my browser, without problems, right after receiving the error from the code below. #!/usr/bin/perl -w use WWW::Yahoo::Groups; my $user = 'username'; # yes, I used my real username when I ran the code :-) my $pass = 'password'; # ditto for the password my $y = WWW::Yahoo::Groups->new(); $y->login ($user => $pass); $y->list ('Wonderful_Resources'); my $email = $y->fetch_message(1116); print "Here is the email:\n"; print "$email\n";

Sun Aug 17 05:01:29 2003 spoon [...] cpan.org - Taken

Sun Aug 17 05:17:02 2003 spoon [...] cpan.org - Correspondence added

[guest - Sun Aug 17 04:39:24 2003]: Show quoted text

> The install seemed to go fine and I wrote a small snippet > of code to test things - that's where the problem > immediately shows up.

The problem appears to be related to the speed of fetches. If I make the default autosleep around 5 seconds it seems to be much happier. I'm guessing that Yahoo's put in some rate limiting software so that people don't inundate their site trying to download archives automatically. So, the solution is to either modify autosleep in lib/WWW/Yahoo/Groups/Mechanize.pm so that the last line has a 5 instead of a 0, like thus: sub autosleep { [...] return $w->{__PACKAGE__.'-sleep'}||5; } Or do do this: #!/usr/bin/perl -w use WWW::Yahoo::Groups; my $user = 'username'; my $pass = 'password'; my $y = WWW::Yahoo::Groups->new(); $y->autosleep(5); # XXX THIS LINE HERE WAS ADDED. $y->debug(1); # you may find this useful $y->login ($user => $pass); $y->list ('Wonderful_Resources'); my $email = $y->fetch_message(1116); print "Here is the email:\n"; print "$email\n"; See how this goes? (note that as a sideeffect this will mean the minimum time to download Wonderful_Resources is about 2 hours, 15 minutes). cheers, -- Iain.

Sun Aug 17 05:17:03 2003 spoon [...] cpan.org - Status changed from 'new' to 'open'

Sun Aug 17 06:35:32 2003 Guest - Correspondence added

From:

bobhopefan2003 [...] yahoo.com

[SPOON - Sun Aug 17 05:17:02 2003]: Thanks, but still the same error. I tried changing it in both places. Using it in both the code and the mod to Mechanize independent of each other and simultaneously. I tried upping the number to 10 and then to 30. All with identical results. With debug on, the following messages come through: Fetching http://groups.yahoo.com/ Fetching http://login.yahoo.com/config/login?.intl=us&.src=ygrp&.done=http://grou ps.yahoo.com%2f Nope. That's not a good login. at /usr/lib/perl5/site_perl/5.8.0/Exception/Class.pm line 233. Show quoted text

> [guest - Sun Aug 17 04:39:24 2003]: >

> > The install seemed to go fine and I wrote a small snippet > > of code to test things - that's where the problem > > immediately shows up.

> > The problem appears to be related to the speed of fetches. > If I make the default autosleep around 5 seconds it seems to be > much happier. > > I'm guessing that Yahoo's put in some rate limiting software > so that people don't inundate their site trying to download > archives automatically. > > So, the solution is to either modify autosleep in > lib/WWW/Yahoo/Groups/Mechanize.pm so that the last line has a 5

instead Show quoted text

> of a 0, like thus: > > sub autosleep > { > [...] > return $w->{__PACKAGE__.'-sleep'}||5; > } > > Or do do this: > > #!/usr/bin/perl -w > > use WWW::Yahoo::Groups; > > my $user = 'username'; > my $pass = 'password'; > > my $y = WWW::Yahoo::Groups->new(); > $y->autosleep(5); # XXX THIS LINE HERE WAS ADDED. > $y->debug(1); # you may find this useful > $y->login ($user => $pass); > $y->list ('Wonderful_Resources'); > > my $email = $y->fetch_message(1116); > > print "Here is the email:\n"; > print "$email\n"; > > See how this goes? (note that as a sideeffect this will mean the

minimum Show quoted text

> time to download Wonderful_Resources is about 2 hours, 15 minutes). > > > cheers,

Tue Aug 19 01:21:00 2003 Guest - Correspondence added

From:

bobhopefan2003 [...] yahoo.com

[guest - Sun Aug 17 06:35:32 2003]: Hi lain, How're things going? Show quoted text

> [SPOON - Sun Aug 17 05:17:02 2003]: > > Thanks, but still the same error. I tried changing it in both

places. Show quoted text

> Using it in both the code and the mod to Mechanize independent of

each Show quoted text

> other and simultaneously. I tried upping the number to 10 and then

to Show quoted text

> 30. All with identical results. > > With debug on, the following messages come through: > > Fetching http://groups.yahoo.com/ > Fetching >

http://login.yahoo.com/config/login?.intl=us&.src=ygrp&.done=http://grou Show quoted text

> ps.yahoo.com%2f > Nope. That's not a good login. > at /usr/lib/perl5/site_perl/5.8.0/Exception/Class.pm line 233. > > >

> > [guest - Sun Aug 17 04:39:24 2003]: > >

> > > The install seemed to go fine and I wrote a small snippet > > > of code to test things - that's where the problem > > > immediately shows up.

> > > > The problem appears to be related to the speed of fetches. > > If I make the default autosleep around 5 seconds it seems to be > > much happier. > > > > I'm guessing that Yahoo's put in some rate limiting software > > so that people don't inundate their site trying to download > > archives automatically. > > > > So, the solution is to either modify autosleep in > > lib/WWW/Yahoo/Groups/Mechanize.pm so that the last line has a 5

> instead

> > of a 0, like thus: > > > > sub autosleep > > { > > [...] > > return $w->{__PACKAGE__.'-sleep'}||5; > > } > > > > Or do do this: > > > > #!/usr/bin/perl -w > > > > use WWW::Yahoo::Groups; > > > > my $user = 'username'; > > my $pass = 'password'; > > > > my $y = WWW::Yahoo::Groups->new(); > > $y->autosleep(5); # XXX THIS LINE HERE WAS ADDED. > > $y->debug(1); # you may find this useful > > $y->login ($user => $pass); > > $y->list ('Wonderful_Resources'); > > > > my $email = $y->fetch_message(1116); > > > > print "Here is the email:\n"; > > print "$email\n"; > > > > See how this goes? (note that as a sideeffect this will mean the

> minimum

> > time to download Wonderful_Resources is about 2 hours, 15 minutes). > > > > > > cheers,

>

Thu Aug 21 02:02:40 2003 spoon [...] cpan.org - Correspondence added

Date:	Thu, 21 Aug 2003 16:01:19 +1000
To:	Guest via RT <bug-WWW-Yahoo-Groups [...] rt.cpan.org>
Subject:	Re: [cpan #3267] Login problem
From:	Iain Truskett <spoon [...] cpan.org>
RT-Send-Cc:

* Guest via RT (bug-WWW-Yahoo-Groups@rt.cpan.org) [19 Aug 2003 15:21]: Show quoted text

> Full context and any attached attachments can be found at: > <URL: https://rt.cpan.org/Ticket/Display.html?id=3267 >

Show quoted text

> [guest - Sun Aug 17 06:35:32 2003]:

Show quoted text

> Hi Iain,

Show quoted text

> How're things going?

Not bad. http://dellah.org/wr.tar.gz is the Wonderful_Resources archive, with attachments, downloaded using my module, using the example script. With minor post-processing using the reformat_headers method. cheers, -- Iain.

Sat Aug 30 23:15:26 2003 spoon [...] cpan.org - Status changed from 'open' to 'resolved'

Sat Aug 30 23:15:27 2003 spoon [...] cpan.org - Fixed in 1.86 added