--- Yahoo.pm.old 2006-10-12 13:58:10.000000000 -0700
+++ Yahoo.pm 2006-10-12 14:32:26.000000000 -0700
@@ -156,7 +156,7 @@
);
$self->{step} = 'Redirection';
- while(my $redir = $mech->res->header('Location')) {
+ while(my ($redir) = $mech->content =~ /content="0; url=([^"]+)/) {
$mech->get($redir);
}
if ( $mech->content =~ m#window.location.replace\("([^"]*?)"# ) {
@@ -195,7 +195,8 @@
$self->{step} = 'Folder Stats Retrieval';
- $self->{mech}->get($URLs{folders});
+ # $self->{mech}->get($URLs{folders});
+ $self->{mech}->follow_link(text => 'Edit');
my @stats = keys %{$Patterns{folder_stats}};
my @cols = @{$Patterns{folder_stats}}{@stats};
@@ -213,6 +214,7 @@
$stats{unread} = $1 if $stats{unread} =~ $Patterns{folder_unread};
%{$self->{folder_list}{$stats{name}}} = %stats;
}
+ $self->{mech}->back;
}
