Re^2: Cookie protected web page and file downloading

[dave0]

It looks like you're specifying your proxy incorrectly. $mech->proxy() takes a URL as its second argument, not an IP address.

Try $mech->proxy('http', 'http://172.17.1.248/') and see if that works.

[reTard]

Yay! Thank you!!

This almost works now!

I can see the link to the file I want to download now but I'm now sure how to reference it.


                 'last_uri' => 'http://www-912.ibm.com/eserver/support
+/fixinfo/download?file=LatestFixData53',
                 'uri' => 'http://www-912.ibm.com/eserver/support/fixi
+nfo/download?file=LatestFixData53',


How do I save this? I've looked at lwp-download but that only confused me more.
Thanks

[reTard]

I know it's bad form to be replying to my own posts but this is fixed now thanks to a work mate.

The final code is:

use Data::Dumper;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new(
        cookie_jar => {},
        agent => "WWW-Mechanize/0.01",
        protocols_allowed => ['http','https'],
        protocols_forbidden => [undef],
        autocheck => 1);

$url = 'http://www.ibm.com/servers/eserver/support/pseries/aixfixes.ht
+ml';

$mech->proxy('http','http://PROXY/');
$mech->get( $url );
#print Dumper $mech;
$mech->follow_link( text_regex => qr/More fix services/) or die;
#print Dumper $mech;
$mech->follow_link( text_regex => qr/AIX 5.3/) or die;
#print Dumper $mech;
$mech->follow_link( text_regex => qr/Data file for AIX 5.3/) or die;
#print Dumper $mech;
$mech->get('http://www-912.ibm.com/eserver/support/fixinfo/download?fi
+le=LatestFixData53');
print $mech->content;