Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re^2: Cookie protected web page and file downloading

by dave0 (Friar)
on Jun 03, 2005 at 01:51 UTC ( #463077=note: print w/ replies, xml ) Need Help??


in reply to Re: Cookie protected web page and file downloading
in thread Cookie protected web page and file downloading

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.


Comment on Re^2: Cookie protected web page and file downloading
Select or Download Code
Re^3: Cookie protected web page and file downloading
by reTard (Sexton) on Jun 03, 2005 at 03:00 UTC
    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
      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;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://463077]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (14)
As of 2014-07-23 18:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (150 votes), past polls