Bug 661479: Add a debug/trace option to bz_webservice_demo.pl

r/a=LpSolit

1 files changed, 17 insertions, 1 deletions

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<http://your.bugzilla.installation/path/to/bugzilla/xmlrpc.cgi>.
 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