From aba3f550feb4e69d3df9c24097784f1cd94dadf6 Mon Sep 17 00:00:00 2001 From: Matt Selsky Date: Tue, 29 May 2012 17:24:17 +0200 Subject: Bug 661479: Add a debug/trace option to bz_webservice_demo.pl r/a=LpSolit --- contrib/bz_webservice_demo.pl | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) (limited to 'contrib') diff --git a/contrib/bz_webservice_demo.pl b/contrib/bz_webservice_demo.pl index 798a7621e..906db7d2c 100755 --- a/contrib/bz_webservice_demo.pl +++ b/contrib/bz_webservice_demo.pl @@ -45,6 +45,7 @@ my $add_comment; my $private; my $work_time; my $fetch_extension_info = 0; +my $debug; GetOptions('help|h|?' => \$help, 'uri=s' => \$Bugzilla_uri, @@ -58,7 +59,8 @@ GetOptions('help|h|?' => \$help, 'comment:s' => \$add_comment, 'private:i' => \$private, 'worktime:f' => \$work_time, - 'extension_info' => \$fetch_extension_info + 'extension_info' => \$fetch_extension_info, + 'debug' => \$debug ) or pod2usage({'-verbose' => 0, '-exitval' => 1}); =head1 OPTIONS @@ -130,6 +132,10 @@ An optional double precision number specifying the work time for B<--comment>. If specified on the command line, the script returns the information about the extensions that are installed. +=item --debug + +Enable tracing at the debug level of XMLRPC requests and responses. + =back =head1 DESCRIPTION @@ -167,6 +173,16 @@ of C. my $proxy = XMLRPC::Lite->proxy($Bugzilla_uri, 'cookie_jar' => $cookie_jar); +=head2 Debugging + +Enable tracing at the debug level of XMLRPC requests and responses if requested. + +=cut + +if ($debug) { + $proxy->import(+trace => 'debug'); +} + =head2 Checking Bugzilla's version To make sure the Bugzilla you're connecting to supports the methods you wish to -- cgit v1.2.3-24-g4f1b