For the code you show below to work for me, I had to add one line (because I do go through a proxy):
my $ua = LWP::UserAgent->new; $ua->env_proxy; # the line I added my $request = HTTP::Request->new(GET => $url); my $response = $ua->request($request); print $response->as_string; >From the LWP docs: "Load proxy settings from *_proxy environment variables." -- Mike Arms [EMAIL PROTECTED] -----Original Message----- From: Bill Stennett [mailto:[EMAIL PROTECTED] Sent: Wednesday, September 01, 2004 10:06 AM To: [EMAIL PROTECTED] Subject: RE: LPW UserAgent Hi All Thanks to everyone for the suggestions. Unfortunately I'm still having no luck. I have upgraded the Win2000 SP2 box to 5.8.4. When I run the example below I get this error and the machine makes no attempt to connect to the requested URL ( I can tell 'cos I'm using 'tcpview' to look for activity. It's almost as though the PERL library doesn't think that there is a TCP connection available. ########### 500 (Internal Server Error) Can't connect to perl.org:80 (Bad protocol 'tcp') Content-Type: text/plain Client-Date: Wed, 01 Sep 2004 15:59:37 GMT Client-Warning: Internal response 500 Can't connect to perl.org:80 (Bad protocol 'tcp') ########## Not sure what this is about. Anyone got any ideas. I have the machine connected to to the internet via ADSL and everything work fine for browsing, ftp etc. and I have tried disabling the firewall etc. Any other thoughts would be much appreciated Many thanks Bill -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Thomas Wetmore Sent: 01 September 2004 13:02 To: [EMAIL PROTECTED] Subject: RE: LPW UserAgent I have run this functionality on many WinXP/2000/2003 machines without problems (Perl 5.8.4 and others). Here is a short piece of code that works fine for me. use strict; use warnings; use HTTP::Request; use LWP::UserAgent; my $url = 'http://perl.org'; my $ua = LWP::UserAgent->new; my $request = HTTP::Request->new(GET => $url); my $response = $ua->request($request); print $response->as_string; >Can anyone tell me if they have had problems with the LPW::UserAgent >functions running from a windows platform. I have a short example (copied >from the documentation) which runs fine from a linux BOX running PERL 5.6.1 >but will not run properly from either a Windows 2000 or a Window XP system >running PERL 5.8.0 > >What happens is that my program appears to run but it does not actually >make >any attempt to create the TCP connection. I was just woundering if there >are >any known issues with LPW::UserAgent under Windows Perl 5.8. Any thoughts >on >this much appreciated _________________________________________________________________ Don't just Search. Find! http://search.sympatico.msn.ca/default.aspx The new MSN Search! Check it out! _______________________________________________ ActivePerl mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ ActivePerl mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ ActivePerl mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
