perlquestion
Anonymous Monk
I have a script that reads one of my pages to test it. the page it tests, will redirect to a number of different urls.<br />
<br />
I use LWP to contact the page and get me the html of the page it loads. Some of them are identical source code.<br />
<br />
I need to know what URL it is redirecting to.<br />
How can I get that from LWP?<br />
<br />
Here is my code:<br />
<br />
<code>
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/8.0");
$ua->cookie_jar(HTTP::Cookies->new(file => "lwpcookies.txt",
autosave => 1));
push @{$ua->requests_redirectable}, 'GET';
my $req = HTTP::Request->new(GET => "$_fileLoc");
$req->referer($_fileLoc);
# Pass request to the user agent and get a response back
$res = $ua->request($req);
print $res->status_line, "\n";
if($res->status_line =~ /404 Not Found/i) {
$_bad++;
} else {
if($res->is_success) {
print $res->is_success, "\n";
if($res->status_line =~ /404 Not Found/i) {
$_bad++;
} else {
$_cn = $res->content;
print $_cn, "\n";
}
} else {
$_bad1++;
$_errorT = $res->status_line;
print qq~error: "~ . $_errorT . '"'. \t;#'
}
}
</code>
that is a section of my code.<br />
How can I get this to only tell me the URL it redirected to? not the url it ended up on, but where it redirected to, like this:
header("Location: http://mydomain.com/path1/someotherpath.php");
have it give me the redirected url: http://mydomain.com/path1/someotherpath.php, because
someotherpath.php would also redirect to one other location, so I need the first one.<br />
<br />
Can someone tell me how to do this?<br />
<br />
Thank you.<br />
<br />
Richard
7