At 00:28 2002-07-10 +0100, Jonathan wrote:
>Well 'GetResponse.com' seems to have found a way.
>I wrote to them asking why the following code didn't work,
>they answered "Using libwww library is not allowed here".
I got that same answer from some nitwits at a company that shall remain
nameless, despite how they didn't feel obliged to help me, even tho I was
sending them MASSIVE amounts of money to subscribe to their data service.
Usually that thing they say just means "we don't want to have to explain to
you how to write Perl programs to access our system, so we'll just tell you
that it's impossible, so you'll go away". Sometimes it means "We actually
try to find and ignore user-agents we don't like". I talk about approaches
to defeating these restrictions in chapter 11 ("Cookies, Authentication,and
Advanced Requests") of my book /Perl and LWP/:
http://www.amazon.com/exec/obidos/ASIN/0596001789/
Here's a snippet that might get you on the right track:
my @netscape_like_headers = (
'User-Agent' => 'Mozilla/4.76 [en] (Win98; U)',
'Accept-Language' => 'en-US',
'Accept-Charset' => 'iso-8859-1,*,utf-8',
'Accept-Encoding' => 'gzip',
'Accept' =>
"image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */*",
);
my $response = $browser->get($url, @netscape_like_headers);
White hats only, of course.
--
Sean M. Burke http://www.spinn.net/~sburke/
