subject:"Getting error\- connect to Bugzilla\(Certificate Authorities to trust\)"

Re: Getting error- connect to Bugzilla(Certificate Authorities to trust)

2015-09-10 Thread Jitendra B

Thanks David, it resolved.

I am new to Bugzilla. I am really do not know where it went wrong in below
code snippet.
Error:


not well-formed (invalid token) at line 23, column 29, byte 846:

  enc1 = chr1 >> 2;

  enc2 = ((chr1 & 3) << 4) | (chr2 >> 4);

^

  enc3 = ((chr2 & 15) << 2) | (chr3 >> 6);

 at /Library/Perl/5.18/RPC/XML/Client.pm line 402. at
/Library/Perl/5.18/RPC/XML/Client.pm line 407.


Code Snnipet:

*

!/usr/bin/perl

#use strict;

use vars qw($VERSION);

use LEOCHARRE::CLI2 ':all','u:p:s:';

use LEOCHARRE::Dir ':all';

$VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ /(\d+)/g;

use WWW::Bugzilla3;

use Net::SSL;

#use Smart::Comments '###';


$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;


#$opt_u or die("Missing username");

#$opt_p or die("Missing password");

#$opt_s or die("Missing site");


my $b = WWW::Bugzilla3->new( site => 'https://bugzilla.mysite.com' );

my $r = $b->login( "jbarik","xxx" ) or die("Could not login");

### $r

print "HI--HI : $r\n";

On Thu, Sep 10, 2015 at 11:30 AM, Omega -1911 <1911...@gmail.com> wrote:

> http://www.perlmonks.org/?node_id=892166
>
> Goggle is your friend.
>
> On Thu, Sep 10, 2015 at 1:54 AM, Jitendra B  wrote:
>
>> Dear Sir/Madam,
>>
>> while I try to connect and query some data from bugzilla, I am getting
>> following error.
>>
>> Error:
>>
>> RPC::XML::Client::send_request: HTTP server error: Can't verify SSL peers
>> without knowing which Certificate Authorities to trust at
>> /Library/Perl/5.18/RPC/XML/Client.pm line 416.
>>
>>
>> Script:
>>
>>
>> #!/usr/bin/perl
>>
>> use strict;
>>
>> use vars qw($VERSION);
>>
>> use LEOCHARRE::CLI2 ':all','u:p:s:';
>>
>> use LEOCHARRE::Dir ':all';
>>
>> $VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ /(\d+)/g;
>>
>> use WWW::Bugzilla3;
>>
>> use Net::SSL;
>>
>> use Smart::Comments '###';
>>
>>
>> $opt_u or die("Missing username");
>>
>> $opt_p or die("Missing password");
>>
>> $opt_s or die("Missing site");
>>
>>
>> my $b = WWW::Bugzilla3->new( site => $opt_s );
>>
>> my $r = $b->login( $opt_u, $opt_p ) or die("Could not login");
>>
>> ### $r
>>
>>
>> my @pids = $b->get_selectable_products(); # product ids
>>
>> ### product ids: @pids
>>
>> # get descriptive.. hashes..
>>
>>
>> my %product;
>>
>> for (@pids){
>>
>>my $p = ($b->get_products($_))[0];
>>
>>$product{$_} = $p;
>>
>> }
>>
>> ### %product
>>
>> my @all_bugs = $b->search;
>>
>> ### @all_bugs;
>>
>> my $count = scalar @all_bugs;
>>
>> warn("Have $count bugs");
>>
>> $count or exit;
>>
>> my @bugs = $b->get_bugs( @all_bugs ); # bug ids
>>
>> ## @bugs
>>
>> #my $c = scalar @bugs;
>>
>> #($c == 1) or warn("Got $c bugs in id $id, expected 1 only?");
>>
>> # get_bugs is weird
>>
>> BUG: for my $bug ( @bugs ){
>>
>>$bug->{internals}->{resolution} ||= 'OPEN';
>>
>>$bug->{internals}->{resolution}=~/INVALID|DUPLICATE/ and next BUG;
>>
>># example return for $bug
>>
>>
>>
>> ##   {
>>
>> ##alias => '',
>>
>> ##creation_time => '20090623T15:34:00',
>>
>> ##id => '15',
>>
>> ##internals => {
>>
>> ##   alias => '',
>>
>> ##   assigned_to => '1',
>>
>> ##   bug_file_loc => '',
>>
>> ##   bug_id => '15',
>>
>> ##   bug_severity => 'enhancement',
>>
>> ##   bug_status => 'RESOLVED',
>>
>> ##   cclist_accessible => '1',
>>
>> ##   cf_web_browser => '---',
>>
>> ##   component_id => '4',
>>
>> ##   creation_ts => '2009.06.23 15:34',
>>
>> ##   delta_ts => '2009-06-23 15:55:39',
>>
>> ##   everconfirmed => '1',
>>
>> ##   op_sys => 'All',
>>
>> ##   priority => 'P5',
>>
>> ##   product_id => '3',
>>
>> ##   qa_contact => '',
>>
>> ##   rep_platform => 'All',
>>
>> ##   reporter_accessible => '1',
>>
>> ##   reporter_id => '1',
>>
>> ##   resolution => 'FIXED',
>>
>> ##   short_desc => 'branding all the clients in
>> the dms',
>>
>> ##   status_whiteboard => '',
>>
>> ##   target_milestone => '---',
>>
>> ##   version => 'DMS2'
>>
>> ## },
>>
>> ##last_change_time => '20090623T15:55:39',
>>
>> ##summary => 'branding all the clients in the dms'
>>
>> ##  }
>>
>> ##]
>>
>>printf "---
>>
>> title: %s
>>
>> id: %0.3d
>>
>> product: %s
>>
>> status: %s
>>
>>
>> ",
>>
>>   $bug->{summary},
>>
>>   $bug->{id},
>>
>>   $product{

Re: Getting error- connect to Bugzilla(Certificate Authorities to trust)

2015-09-10 Thread Omega -1911

http://www.perlmonks.org/?node_id=892166

Goggle is your friend.

On Thu, Sep 10, 2015 at 1:54 AM, Jitendra B  wrote:

> Dear Sir/Madam,
>
> while I try to connect and query some data from bugzilla, I am getting
> following error.
>
> Error:
>
> RPC::XML::Client::send_request: HTTP server error: Can't verify SSL peers
> without knowing which Certificate Authorities to trust at
> /Library/Perl/5.18/RPC/XML/Client.pm line 416.
>
>
> Script:
>
>
> #!/usr/bin/perl
>
> use strict;
>
> use vars qw($VERSION);
>
> use LEOCHARRE::CLI2 ':all','u:p:s:';
>
> use LEOCHARRE::Dir ':all';
>
> $VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ /(\d+)/g;
>
> use WWW::Bugzilla3;
>
> use Net::SSL;
>
> use Smart::Comments '###';
>
>
> $opt_u or die("Missing username");
>
> $opt_p or die("Missing password");
>
> $opt_s or die("Missing site");
>
>
> my $b = WWW::Bugzilla3->new( site => $opt_s );
>
> my $r = $b->login( $opt_u, $opt_p ) or die("Could not login");
>
> ### $r
>
>
> my @pids = $b->get_selectable_products(); # product ids
>
> ### product ids: @pids
>
> # get descriptive.. hashes..
>
>
> my %product;
>
> for (@pids){
>
>my $p = ($b->get_products($_))[0];
>
>$product{$_} = $p;
>
> }
>
> ### %product
>
> my @all_bugs = $b->search;
>
> ### @all_bugs;
>
> my $count = scalar @all_bugs;
>
> warn("Have $count bugs");
>
> $count or exit;
>
> my @bugs = $b->get_bugs( @all_bugs ); # bug ids
>
> ## @bugs
>
> #my $c = scalar @bugs;
>
> #($c == 1) or warn("Got $c bugs in id $id, expected 1 only?");
>
> # get_bugs is weird
>
> BUG: for my $bug ( @bugs ){
>
>$bug->{internals}->{resolution} ||= 'OPEN';
>
>$bug->{internals}->{resolution}=~/INVALID|DUPLICATE/ and next BUG;
>
># example return for $bug
>
>
>
> ##   {
>
> ##alias => '',
>
> ##creation_time => '20090623T15:34:00',
>
> ##id => '15',
>
> ##internals => {
>
> ##   alias => '',
>
> ##   assigned_to => '1',
>
> ##   bug_file_loc => '',
>
> ##   bug_id => '15',
>
> ##   bug_severity => 'enhancement',
>
> ##   bug_status => 'RESOLVED',
>
> ##   cclist_accessible => '1',
>
> ##   cf_web_browser => '---',
>
> ##   component_id => '4',
>
> ##   creation_ts => '2009.06.23 15:34',
>
> ##   delta_ts => '2009-06-23 15:55:39',
>
> ##   everconfirmed => '1',
>
> ##   op_sys => 'All',
>
> ##   priority => 'P5',
>
> ##   product_id => '3',
>
> ##   qa_contact => '',
>
> ##   rep_platform => 'All',
>
> ##   reporter_accessible => '1',
>
> ##   reporter_id => '1',
>
> ##   resolution => 'FIXED',
>
> ##   short_desc => 'branding all the clients in
> the dms',
>
> ##   status_whiteboard => '',
>
> ##   target_milestone => '---',
>
> ##   version => 'DMS2'
>
> ## },
>
> ##last_change_time => '20090623T15:55:39',
>
> ##summary => 'branding all the clients in the dms'
>
> ##  }
>
> ##]
>
>printf "---
>
> title: %s
>
> id: %0.3d
>
> product: %s
>
> status: %s
>
>
> ",
>
>   $bug->{summary},
>
>   $bug->{id},
>
>   $product{ $bug->{internals}->{product_id} }->{name},
>
>   ( $bug->{internals}->{resolution} || 'OPEN'),
>
>
>
>;
>
>
>
> }
>
>
> exit;
>
> sub usage {
>
>qq{$0 [OPTION]..
>
> Show bugzilla summary for bureaucracy.
>
>
>-d  debug
>
>-h  help
>
>-v  version
>
>-p string   password
>
>-u string   username
>
>-s string   url of bugzilla website
>
>
> Example Usage:
>
>
>$0 -u jbarik -p hahaha -s https://bugzilla.mysite.com/
>
>
> }}
>
>

Re: Getting error- connect to Bugzilla(Certificate Authorities to trust)

2015-09-10 Thread Jitendra B

As already I have install Net::SSL. and I am new user to Bugzilla. I am not
sure how to authenticate the certification.

Regards,
Jitendra

On Thu, Sep 10, 2015 at 11:30 AM, Omega -1911 <1911...@gmail.com> wrote:

> http://www.perlmonks.org/?node_id=892166
>
> Goggle is your friend.
>
> On Thu, Sep 10, 2015 at 1:54 AM, Jitendra B  wrote:
>
>> Dear Sir/Madam,
>>
>> while I try to connect and query some data from bugzilla, I am getting
>> following error.
>>
>> Error:
>>
>> RPC::XML::Client::send_request: HTTP server error: Can't verify SSL peers
>> without knowing which Certificate Authorities to trust at
>> /Library/Perl/5.18/RPC/XML/Client.pm line 416.
>>
>>
>> Script:
>>
>>
>> #!/usr/bin/perl
>>
>> use strict;
>>
>> use vars qw($VERSION);
>>
>> use LEOCHARRE::CLI2 ':all','u:p:s:';
>>
>> use LEOCHARRE::Dir ':all';
>>
>> $VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ /(\d+)/g;
>>
>> use WWW::Bugzilla3;
>>
>> use Net::SSL;
>>
>> use Smart::Comments '###';
>>
>>
>> $opt_u or die("Missing username");
>>
>> $opt_p or die("Missing password");
>>
>> $opt_s or die("Missing site");
>>
>>
>> my $b = WWW::Bugzilla3->new( site => $opt_s );
>>
>> my $r = $b->login( $opt_u, $opt_p ) or die("Could not login");
>>
>> ### $r
>>
>>
>> my @pids = $b->get_selectable_products(); # product ids
>>
>> ### product ids: @pids
>>
>> # get descriptive.. hashes..
>>
>>
>> my %product;
>>
>> for (@pids){
>>
>>my $p = ($b->get_products($_))[0];
>>
>>$product{$_} = $p;
>>
>> }
>>
>> ### %product
>>
>> my @all_bugs = $b->search;
>>
>> ### @all_bugs;
>>
>> my $count = scalar @all_bugs;
>>
>> warn("Have $count bugs");
>>
>> $count or exit;
>>
>> my @bugs = $b->get_bugs( @all_bugs ); # bug ids
>>
>> ## @bugs
>>
>> #my $c = scalar @bugs;
>>
>> #($c == 1) or warn("Got $c bugs in id $id, expected 1 only?");
>>
>> # get_bugs is weird
>>
>> BUG: for my $bug ( @bugs ){
>>
>>$bug->{internals}->{resolution} ||= 'OPEN';
>>
>>$bug->{internals}->{resolution}=~/INVALID|DUPLICATE/ and next BUG;
>>
>># example return for $bug
>>
>>
>>
>> ##   {
>>
>> ##alias => '',
>>
>> ##creation_time => '20090623T15:34:00',
>>
>> ##id => '15',
>>
>> ##internals => {
>>
>> ##   alias => '',
>>
>> ##   assigned_to => '1',
>>
>> ##   bug_file_loc => '',
>>
>> ##   bug_id => '15',
>>
>> ##   bug_severity => 'enhancement',
>>
>> ##   bug_status => 'RESOLVED',
>>
>> ##   cclist_accessible => '1',
>>
>> ##   cf_web_browser => '---',
>>
>> ##   component_id => '4',
>>
>> ##   creation_ts => '2009.06.23 15:34',
>>
>> ##   delta_ts => '2009-06-23 15:55:39',
>>
>> ##   everconfirmed => '1',
>>
>> ##   op_sys => 'All',
>>
>> ##   priority => 'P5',
>>
>> ##   product_id => '3',
>>
>> ##   qa_contact => '',
>>
>> ##   rep_platform => 'All',
>>
>> ##   reporter_accessible => '1',
>>
>> ##   reporter_id => '1',
>>
>> ##   resolution => 'FIXED',
>>
>> ##   short_desc => 'branding all the clients in
>> the dms',
>>
>> ##   status_whiteboard => '',
>>
>> ##   target_milestone => '---',
>>
>> ##   version => 'DMS2'
>>
>> ## },
>>
>> ##last_change_time => '20090623T15:55:39',
>>
>> ##summary => 'branding all the clients in the dms'
>>
>> ##  }
>>
>> ##]
>>
>>printf "---
>>
>> title: %s
>>
>> id: %0.3d
>>
>> product: %s
>>
>> status: %s
>>
>>
>> ",
>>
>>   $bug->{summary},
>>
>>   $bug->{id},
>>
>>   $product{ $bug->{internals}->{product_id} }->{name},
>>
>>   ( $bug->{internals}->{resolution} || 'OPEN'),
>>
>>
>>
>>;
>>
>>
>>
>> }
>>
>>
>> exit;
>>
>> sub usage {
>>
>>qq{$0 [OPTION]..
>>
>> Show bugzilla summary for bureaucracy.
>>
>>
>>-d  debug
>>
>>-h  help
>>
>>-v  version
>>
>>-p string   password
>>
>>-u string   username
>>
>>-s string   url of bugzilla website
>>
>>
>> Example Usage:
>>
>>
>>$0 -u jbarik -p hahaha -s https://bugzilla.mysite.com/
>>
>>
>> }}
>>
>>
>

Getting error- connect to Bugzilla(Certificate Authorities to trust)

2015-09-09 Thread Jitendra B

Dear Sir/Madam,

while I try to connect and query some data from bugzilla, I am getting
following error.

Error:

RPC::XML::Client::send_request: HTTP server error: Can't verify SSL peers
without knowing which Certificate Authorities to trust at
/Library/Perl/5.18/RPC/XML/Client.pm line 416.


Script:


#!/usr/bin/perl

use strict;

use vars qw($VERSION);

use LEOCHARRE::CLI2 ':all','u:p:s:';

use LEOCHARRE::Dir ':all';

$VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ /(\d+)/g;

use WWW::Bugzilla3;

use Net::SSL;

use Smart::Comments '###';


$opt_u or die("Missing username");

$opt_p or die("Missing password");

$opt_s or die("Missing site");


my $b = WWW::Bugzilla3->new( site => $opt_s );

my $r = $b->login( $opt_u, $opt_p ) or die("Could not login");

### $r


my @pids = $b->get_selectable_products(); # product ids

### product ids: @pids

# get descriptive.. hashes..


my %product;

for (@pids){

   my $p = ($b->get_products($_))[0];

   $product{$_} = $p;

}

### %product

my @all_bugs = $b->search;

### @all_bugs;

my $count = scalar @all_bugs;

warn("Have $count bugs");

$count or exit;

my @bugs = $b->get_bugs( @all_bugs ); # bug ids

## @bugs

#my $c = scalar @bugs;

#($c == 1) or warn("Got $c bugs in id $id, expected 1 only?");

# get_bugs is weird

BUG: for my $bug ( @bugs ){

   $bug->{internals}->{resolution} ||= 'OPEN';

   $bug->{internals}->{resolution}=~/INVALID|DUPLICATE/ and next BUG;

   # example return for $bug



##   {

##alias => '',

##creation_time => '20090623T15:34:00',

##id => '15',

##internals => {

##   alias => '',

##   assigned_to => '1',

##   bug_file_loc => '',

##   bug_id => '15',

##   bug_severity => 'enhancement',

##   bug_status => 'RESOLVED',

##   cclist_accessible => '1',

##   cf_web_browser => '---',

##   component_id => '4',

##   creation_ts => '2009.06.23 15:34',

##   delta_ts => '2009-06-23 15:55:39',

##   everconfirmed => '1',

##   op_sys => 'All',

##   priority => 'P5',

##   product_id => '3',

##   qa_contact => '',

##   rep_platform => 'All',

##   reporter_accessible => '1',

##   reporter_id => '1',

##   resolution => 'FIXED',

##   short_desc => 'branding all the clients in the
dms',

##   status_whiteboard => '',

##   target_milestone => '---',

##   version => 'DMS2'

## },

##last_change_time => '20090623T15:55:39',

##summary => 'branding all the clients in the dms'

##  }

##]

   printf "---

title: %s

id: %0.3d

product: %s

status: %s


",

  $bug->{summary},

  $bug->{id},

  $product{ $bug->{internals}->{product_id} }->{name},

  ( $bug->{internals}->{resolution} || 'OPEN'),



   ;



}


exit;

sub usage {

   qq{$0 [OPTION]..

Show bugzilla summary for bureaucracy.


   -d  debug

   -h  help

   -v  version

   -p string   password

   -u string   username

   -s string   url of bugzilla website


Example Usage:


   $0 -u jbarik -p hahaha -s https://bugzilla.mysite.com/


}}

Re: Getting error- connect to Bugzilla(Certificate Authorities to trust)

Re: Getting error- connect to Bugzilla(Certificate Authorities to trust)

Re: Getting error- connect to Bugzilla(Certificate Authorities to trust)

Getting error- connect to Bugzilla(Certificate Authorities to trust)

4 matches

Site Navigation

Mail list logo

Footer information