LWP::UserAgent::FramesReady;

shockme has asked for the wisdom of the Perl Monks concerning the following question:

I think I'm missing something fairly basic. I'm trying to access a website which requires frames. Following is my script:

#!/usr/bin/perl
use strict;
use warnings;
use URI::URL;
use LWP::UserAgent::FramesReady;

my $ua = new LWP::UserAgent;
# neither of the following have any effect
#$ua->agent('Mozilla/5.0');
#$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET C
+LR 1.1.4322)');

my $url = URI->new('http://www.takingbackthecountry.com');
my $http_request = new HTTP::Request('GET', $url);
my $response = $ua->request($http_request);

if ($response->is_success and $response->isa('HTTP::Response::Tree'))
{
    print "ok\n";
}
else
{
    print $response->content;
}
exit;
[download]

This results in the following output:

<HTML>
 <HEAD>
  <meta name="DESCRIPTION" content="">
   <TITLE></TITLE>
 </HEAD>
 <!-- Redirection Services Redirector2B-DAL 200-OK -->
 <FRAMESET ROWS="100%, *" frameborder="no" framespacing=0 border=0>
  <FRAME SRC="http://takinthecountryback.com" NAME="mainwindow" frameb
+order="no" framespacing="0" marginheight="0" marginwidth="0"></FRAME>
 </FRAMESET>
 <NOFRAMES>
  <CENTER>
   <H2>
    Your browser does not support frames.  We recommend upgrading your
+ browser.
   </H2>
   <br><br>
   Click <a href="http://takinthecountryback.com">here</a> to enter th
+e site.
  </CENTER>
 </NOFRAMES>
</HTML>
[download]

I've dug through several of the test scripts included with LWP::UserAgent::FramesReady, but I'm just not seeing what I'm missing.

If things get any worse, I'll have to ask you to stop helping me.

Comment on LWP::UserAgent::FramesReady; Select or Download Code

Replies are listed 'Best First'.
Re: LWP::UserAgent::FramesReady; by holo (Monk) on Dec 09, 2003 at 18:24 UTC
First of all, you should use LWP::UserAgent::FramesReady not LWP::UserAgent to construct the `$ua`. `my $ua = new LWP::UserAgent::FramesReady;` The result is not an HTTP::Response instance, rather a more appropriate HTTP::Response::Tree object since more than one page is fetched (The main page, the frames, sub-frames, etc...). It's pretty straight forward to get all the responses out with `@responses = $response_tree->children();`.	[reply] [d/l] [select]
Re: Re: LWP::UserAgent::FramesReady; by shockme (Chaplain) on Dec 09, 2003 at 19:45 UTC
Wow. I guess the documentation is wrong: `SYNOPSIS use LWP::UserAgent::FramesReady; $ua = new LWP::UserAgent; $response = $ua->request($http_request);` [download] But you are correct. It's working great now. Thanks! If things get any worse, I'll have to ask you to stop helping me.	[reply] [d/l]
Re: Re: Re: LWP::UserAgent::FramesReady; by nothingmuch (Priest) on Dec 10, 2003 at 01:14 UTC
Please consider submitting a documentation patch, or at least letting Alan E Derhaag know about this. ciao ciao! -nuffin zz zZ Z Z #!perl	[reply]
Re: Re: Re: Re: LWP::UserAgent::FramesReady; by shockme (Chaplain) on Dec 11, 2003 at 00:19 UTC
Re^4: LWP::UserAgent::FramesReady; by gepebril (Initiate) on May 01, 2008 at 14:08 UTC


Your skill will accomplish what the force of many cannot
	PerlMonks