(jeffa) Re: Lack of LWP::SIMPLE information

in reply to Lack of LWP::SIMPLE information

There are (IIRC) two ways to redirect ... one is to use a Redirection Header and the other is to use a <meta> tag:

<meta http-equiv="Refresh" content="15; URL=redirect.html"/>

I set up two (three including the file redirected to) test files:

redirect.html:

<html>
<meta http-equiv="Refresh" content="1; URL=redirected.html"/>
<head>
<title>redirect</title>
</head>
<body>
you won't see me
</body>
</html>
[download]

cgi-bin/redirect.cgi:

#!/usr/bin/perl -Tw

use strict;
use CGI qw(redirect);

print redirect('http://localhost/redirected.html');
[download]

And then i fetched both pages with LWP::Simple. Here are the results:

[jeffa]$ perl -MLWP::Simple -le'getprint "http://localhost/cgi-bin/red
+irect.cgi"'
<html>
<head>
<title>redirected!</title>
</head>
<body>
you've been redirected!
</body>
</html>

[jeffa]$ perl -MLWP::Simple -le'getprint "http://localhost/redirect.ht
+ml"'
<html>
<meta http-equiv="Refresh" content="1; URL=redirected.html"/>
<head>
<title>redirect</title>
</head>
<body>
you won't see me
</body>
</html>
[download]

So ... in semi-conclusion, looks like LWP::Simple will transparantly grab the redirected page IF the redirection was implemented with a redirection header, not a meta tag. Hope this helps.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In Section Seekers of Perl Wisdom