CODEWITHSUNDEEP
perlhttp-redirectmechanize
rfusca
rfusca

Reputation: 7715

How can I keep WWW::Mechanize from following redirects?

I have a Perl script that uses WWW::Mechanize to read from a file and perform some automated tasks on a website. However, the website uses a 302 redirect after every time I request a certain page. I don't want to be redirected (the page that it redirects to takes too long to respond); I just want to loop through the file and call the first link over and over. I can't figure out how to make WWW::Mechanize NOT follow redirects. Any suggestions?

Upvotes: 11

Views: 5154

Answers (3)

Alexandr Ciornii
Alexandr Ciornii

Reputation: 7390

WWW::Mechanize is a subclass of LWP::UserAgent. So you can use any LWP::UserAgent methods.

my $mech = WWW::Mechanize->new();
$mech->requests_redirectable([]);

Upvotes: 10

user80168
user80168

Reputation:

You can use $agent->max_redirect( 0 );, like in this example:

#!/usr/bin/perl -w
use strict;

use WWW::Mechanize;

my $agent = WWW::Mechanize->new( 'autocheck' => 1, 'onerror' => undef, );
$agent->max_redirect( 0 );
$agent->get('http://www.depesz.com/test/redirect');
printf("Got HTTP/%s from %s.\n", $agent->response->code, $agent->uri);

$agent->max_redirect( 1 );
$agent->get('http://www.depesz.com/test/redirect');
printf("Got HTTP/%s from %s.\n", $agent->response->code, $agent->uri);

When running it prints:

Got HTTP/302 from http://www.depesz.com/test/redirect.
Got HTTP/200 from http://www.depesz.com/.

So, with max_redirect(0) - it clearly doesn't follow redirects.

Upvotes: 4

Wooble
Wooble

Reputation: 90037

WWW::Mechanize is a subclass of LWP::UserAgent; you can set the max_redirect or requests_redirectable options in the constructor as you would with LWP::UserAgent.

Upvotes: 5

Related Questions