Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Request by LWP Useragent refused by the web server but not by others

by Khen1950fx (Canon)
on Jun 10, 2014 at 07:33 UTC ( #1089395=note: print w/replies, xml ) Need Help??


in reply to Request by LWP Useragent refused by the web server but not by others

Don't forget to use strictures:
use strict; use warnings;
You can see what the handshake is doing by using IO::Socket::SSL.
#!/usr/bin/perl use strict; use warnings; use IO::Socket::SSL qw(debug3); require LWP::UserAgent; require HTTP::Request; my $ua = LWP::UserAgent->new; $ua->agent( "Mozilla/5.0 (Windows NT 6.1; rv:29.0) Gecko/20100101 Firefox/29.0 +"); $ua->timeout(10); $ua->protocols_allowed(['https']); my $req = new HTTP::Request 'GET' => 'https://tutorialregistration.uws.edu.au/aplus/admin/adminLogin.do +'; $req->header( 'Accept' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0 +.8', 'Accept-Language' => 'en-US,en;q=0.5', 'Accept-Encoding' => 'gzip, deflate', 'Cookie' => '', 'Referer' => 'https://www.uws.edu.au/', 'Connection' => 'keep-alive', ); my $res = $ua->request($req); print "content-type:text/html\n\n"; print $res->content;

Replies are listed 'Best First'.
Re^2: Request by LWP Useragent refused by the web server but not by others
by epoch4life (Initiate) on Jun 11, 2014 at 04:02 UTC
    Many thanks to all the helpers. It looks like there are some PERL configuration problems, because I now realised that the script does work on my laptop's PERL. I'll get my system admin to fix the PERL configuration.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2019-05-23 21:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you enjoy 3D movies?



    Results (146 votes). Check out past polls.

    Notices?
    • (Sep 10, 2018 at 22:53 UTC) Welcome new users!