On Tue, 02 May 2006 13:06:56 +0200, luis wrote:
> the following code is part of a bigger script. I would like to know if
> there is a way to print out or store into a file all the messages that
> my script sends to the server, I mean, the full header and data parts
> sent to the server, in order to debug my application.

use LWP::Debug qw(+conns);

> my $ua = LWP::UserAgent->new;
[snip]
> Storing into a file is preferred over printing out to screen.

Internally it is hardwired to print to STDERR.  You could override the
private method _log() that contains that code, but that would be rude. 
Better to redirect STDERR before your LWP calls.

-- 
Peter Scott
http://www.perlmedic.com/
http://www.perldebugged.com/


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to