| Subject: | streamlining / adultconf |
Hello Iain,
thanks for including the new ad search! i realized after i sent the request, that the extra variable isn't necessary...
610,611c610
< my $curi = $w->uri();
< if ( $curi =~ m,/interrupt\?st,gsm )
---
Show quoted text
> if ( $w->uri() =~ m,/interrupt\?st,gsm )
also, the same method could be used in Groups/Mechanize.pm to detect a pass to /adultconf?...
49a50,68
Show quoted text> if ( $self->uri() =~ m,/adultconf\?,gsm )
> {
> $self->res->content =~ /dest value="(.*?)"/;
> my $url = "http://groups.yahoo.com/adultconf?ref=&dest=$1&accept=I%20Accept";
> warn "Fetching $url (AGE VERIFICATION)\n" if $self->debug;
> $rv = eval {
> # Fetch page
> my $rv = $self->SUPER::get($url);
> # Throw if problem
> X::WWW::Yahoo::Groups::BadFetch->throw(error =>
> "Unable to fetch $url: ".
> $self->res->code.' - '.$self->res->message)
> if ($self->res->is_error);
> # Sleep for a bit
> sleep ( $s ) if (my $s = $self->autosleep() );
> # Return something
> 0;
> };
> }
cheers,
ray cielencki