Bug #95988 for libwww-perl: add option to automatically handle meta redirects

Mon May 26 18:21:39 2014 pagenyon [...] gmail.com - Ticket created

Subject:

add option to automatically handle meta redirects

LWP already parses the head tag by default, and makes any contained meta http-equiv statements available as response headers. I suggest adding an option (like meta_redirect => 1) that would tell LWP to automatically follow these redirects. A web search shows this functionality has been asked for many times over the years, though it looks like no official feature request was made in RT or github. If there is a reason this will not be implemented, can you at least include an example in the docs on how the user can implement using request handlers.

Mon May 26 19:02:47 2014 pagenyon [...] gmail.com - Correspondence added

From:

pagenyon [...] gmail.com

On Mon May 26 18:21:39 2014, pagenyon wrote: Show quoted text

> LWP already parses the head tag by default, and makes any contained > meta http-equiv statements available as response headers. > I suggest adding an option (like meta_redirect => 1) that would tell > LWP to automatically follow these redirects. > > A web search shows this functionality has been asked for many times > over the years, though it looks like no official feature request was > made in RT or github. If there is a reason this will not be > implemented, can you at least include an example in the docs on how > the user can implement using request handlers.

figured out how to do with request handlers: $ua->set_my_handler(response_done => sub{ my ($response, $ua, $handler) = @_; if (my ($refresh) = $res->remove_header('Refresh')) { $refresh =~ s/.*?\burl=//; my $uri = URI->new($refresh)->canonical; return if ref $uri eq 'URI::_generic'; $response->code(301); $response->header(Location => $uri); } }, m_code => 200);

Mon May 26 19:15:53 2014 ether [...] cpan.org - Correspondence added

Subject:	Re: [rt.cpan.org #95988] add option to automatically handle meta redirects
Date:	Mon, 26 May 2014 16:15:42 -0700
To:	pagenyon via RT <bug-libwww-perl [...] rt.cpan.org>
From:	Karen Etheridge <ether [...] cpan.org>

On Mon, May 26, 2014 at 07:02:48PM -0400, pagenyon via RT wrote: Show quoted text

> return if ref $uri eq 'URI::_generic'; > $response->code(301); > $response->header(Location => $uri);

Checking for types like this is fragile -- the underscore is a hint that you shouldn't be depending on this name. Instead, check for the capabilities that you need - e.g. return unless $uri->can('scheme'), or return unless $uri->some_property eq $value.

Mon May 26 19:15:54 2014 The RT System itself - Status changed from 'new' to 'open'

Fri Mar 31 15:06:49 2017 olaf [...] wundersolutions.com - Correspondence added

Ticket migrated to github as https://github.com/libwww-perl/libwww-perl/issues/239

Fri Mar 31 15:06:50 2017 olaf [...] wundersolutions.com - Status changed from 'open' to 'resolved'