in reply to Cookie protected web page and file downloading
Hi again
I've made many of the suggested changes and the script now looks like:
Now I'm getting the following error:
Error GETing http://www.ibm.com/servers/eserver/support/pseries/aixfixes.html: Access to 'http' URIs has been disabled at aixfixes.pl line 15
It's dying on the $mech->get( $url ); line.
If I remove the protocols_allowed => ['http'], bit I get a different error:
Error GETing http://www.ibm.com/servers/eserver/support/pseries/aixfixes.html: Protocol scheme '' is not supported at lwp.pl line 15.
I can manually access this page with lynx so it must be something in the script I'm doing wrong. Any more ideas?
Thanks
I've made many of the suggested changes and the script now looks like:
#!/usr/bin/perl use Data::Dumper; use WWW::Mechanize; my $mech = WWW::Mechanize->new( cookie_jar => {}, agent => "WWW-Mechanize/0.01", protocols_allowed => ['http'], autocheck => 1); $url = 'http://www.ibm.com/servers/eserver/support/pseries/aixfixes.ht +ml'; $mech->proxy('http','172.17.1.248'); $mech->get( $url ); print Dumper $mech; $a=<STDIN>; `clear`; $mech->follow_link( text_regex => qr/More fix services/) or die; print Dumper $mech; $a=<STDIN>; `clear`; $mech->follow_link( text_regex => qr/AIX 5.3/) or die; print Dumper $mech; $a=<STDIN>; `clear`; $mech->follow_link( text_regex => qr/Data file for AIX 5.3/) or die; print Dumper $mech;
Now I'm getting the following error:
Error GETing http://www.ibm.com/servers/eserver/support/pseries/aixfixes.html: Access to 'http' URIs has been disabled at aixfixes.pl line 15
It's dying on the $mech->get( $url ); line.
If I remove the protocols_allowed => ['http'], bit I get a different error:
Error GETing http://www.ibm.com/servers/eserver/support/pseries/aixfixes.html: Protocol scheme '' is not supported at lwp.pl line 15.
I can manually access this page with lynx so it must be something in the script I'm doing wrong. Any more ideas?
Thanks
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Cookie protected web page and file downloading
by dave0 (Friar) on Jun 03, 2005 at 01:51 UTC | |
by reTard (Sexton) on Jun 03, 2005 at 03:00 UTC | |
by reTard (Sexton) on Jun 03, 2005 at 03:20 UTC |
In Section
Seekers of Perl Wisdom