Well, this is working..

I can't get full description and comments.. but.. I get ok output.. 

#!/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 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 i
+n 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 joe\@cpan.org -p hahaha -s https://bugzilla.mysite.com/

}}

[download]

Sample output.. 

---
title: set ap on user fails
id: 004
product: DMS AdminUsers
status: FIXED

---
title: DMS Timing out
id: 008
product: DMS WUI
status: FIXED

---
title: add default restrict type APV for apusers
id: 017
product: DMS WUI
status: FIXED

In reply to Re: get list of bugzilla bugs as hashes? by leocharre
in thread get list of bugzilla bugs as hashes? by leocharre

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.