Re^3: Cookie protected web page and file downloading

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',
[download]

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

Comment on Re^3: Cookie protected web page and file downloading Download Code

Replies are listed 'Best First'.
Re^4: Cookie protected web page and file downloading by reTard (Sexton) on Jun 03, 2005 at 03:20 UTC
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; [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Cookie protected web page and file downloading
by reTard (Sexton) on Jun 03, 2005 at 03:20 UTC

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;
[download]

[reply]
[d/l]