Hi,
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.
----------------------------------------------------------------------
my $ua = LWP::UserAgent->new;
my $request = POST "$remote_host/webct/systemIntegrationApi.dowebct",
Content_Type => 'form-data',
Content => [ ACTION => $params{'ACTION'},
OPTION => $params{'OPTION'},
TIMESTAMP => $params{'TIMESTAMP'},
AUTH => $params{'AUTH'},
FILENAME => [ $params{'FILENAME'} ] ];
my $response = $ua->request($request);
my $content = $response->content();
if (!$content)
{
print "Connection to $remote_host failed\n";
}
else
{
print $content;
}
----------------------------------------------------------------------
Storing into a file is preferred over printing out to screen.
Thank you very much.
Best regards,
Luis A.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
