Oops, that was sloppy of me...
Thanks for catching it. I fixed the call to follow_link instead of
applying the patch:
$self->follow_link(
url_regex => qr/fuseaction=user/i,
re=> 'SignOut'
);
And added the following debug statement within the "do" loop in
get_page:
( $DEBUG ) && print " - Attempt No: $attempt\n";
I noticed that it's a bit redundant to Olaf's "trace_func" handler,
but we'll deal
with that later. :)
Grant
On Jun 3, 2007, at 12:31 PM, Mike Allred via RT wrote:
Show quoted text>
> Sun Jun 03 15:31:09 2007: Request 27398 was acted upon.
> Transaction: Ticket created by mikejallred@gmail.com
> Queue: WWW-Myspace
> Subject: Method call mismatch, with patch
> Broken in: (no value)
> Severity: (no value)
> Owner: Nobody
> Requestors: mikejallred@gmail.com
> Status: new
> Ticket <URL:
http://rt.cpan.org/Ticket/Display.html?id=27398 >
>
>
> From what I can see, the recently added follow_link was being
> called with
> get_page syntax and going to the base URL instead of the Home
> page. I fixed
> that and put the DEBUG output in get_page into the iterator so
> multiple gets
> would be printed. I have verified this works with a login +
> get_friends.
>
> I am still seeing intermittent problems with going the Home page when
> clicking "Home" even with a browser, but this patch should clear up
> some
> blockers. Ain't Myspace fun? :)
>
> From what I can see, the recently added follow_link was being
> called with get_page syntax and going to the base URL instead of
> the Home page. I fixed that and put the DEBUG output in get_page
> into the iterator so multiple gets would be printed. I have
> verified this works with a login + get_friends.
>
> I am still seeing intermittent problems with going the Home page
> when clicking "Home" even with a browser, but this patch should
> clear up some blockers. Ain't Myspace fun? :)
> <Myspace.pm.diff>
