I am using mod_perl with Apache 1.3 (Win32) and am having difficulty with the following code.
---------- use CGI; use Data::Dumper; use HTTP::Request; use LWP::UserAgent; my $q = new CGI; $ua = new LWP::UserAgent; $site = 'http://www.example.com/'; print $q->header; # create the HTTP header $request = new HTTP::Request GET => $site; $response = $ua->request($request); print $response->content; ---------- This works fine when $site = 'http://www.example.com/' or anything else that's not on my server. When it is on my server (say 'http://localhost/') the client hangs. Apache's access.log file lists: 127.0.0.1 - - [08/Dec/2003:16:57:30 -0500] "GET / HTTP/1.1" 200 3337 But, this file never seems to make it back to my script. http://localhost/ comes up fine in a browser, and when I telnet in and make the request manually. Any incite would be appreciated. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
