[gentoo-commits] proj/perl-overlay:master commit in: scripts/

[Kent Fredric]

commit:     1c7feeecca0a29934046cd02961022a3c1a4efe8
Author:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
AuthorDate: Thu Apr  5 10:01:36 2012 +0000
Commit:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
CommitDate: Thu Apr  5 10:01:36 2012 +0000
URL:        http://git.overlays.gentoo.org/gitweb/?p=proj/perl-overlay.git;a=commit;h=1c7feeec

[scripts/aggregate_tree.pl] Be more verbose about scraping the overlay/repo

---
 scripts/aggregate_tree.pl |   16 ++++++++++------
 1 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/scripts/aggregate_tree.pl b/scripts/aggregate_tree.pl
index 1e3f1c1..c2e3c55 100755
--- a/scripts/aggregate_tree.pl
+++ b/scripts/aggregate_tree.pl
@@ -52,25 +52,28 @@ else {
   $dest = $file->openw( iomode => ':utf8' );
 }
 
+my $cat; 
+$|++;
 $overlay->iterate(
   'packages' => sub {
     my ( $self, $c ) = @_;
     my $CP = $c->{category_name} . '/' . $c->{package_name};
     my $xmlfile = $root->subdir( $c->{category_name}, $c->{package_name} )->file('metadata.xml');
     if ( not -e $xmlfile ) {
-      warn "No metadata.xml for $CP\n";
+      warn "\e[31mNo metadata.xml for $CP\e[0m\n";
       return;
     }
-
-    # warn "Processing $xmlfile\n";
+    if( $c->{category_name} ne $cat ) {
+      *STDERR->print("\nProcessing " . $c->{category_name}  . " :");
+      $cat = $c->{category_name};
+    }
+    *STDERR->print(".");
     my $XML = XML::Smart->new( $xmlfile->absolute()->stringify() );
     if ( not exists $XML->{pkgmetadata} ) {
-
-      #     warn "<pkgmetadata> missing in $xmlfile\n";
+      warn "\e[31m<pkgmetadata> missing in $xmlfile\e[0m\n";
       return;
     }
     if ( not exists $XML->{pkgmetadata}->{upstream} ) {
-
       # warn "<pkgmetadata>/<upstream> missing in $xmlfile\n";
       return;
     }
@@ -91,6 +94,7 @@ $overlay->iterate(
     }
     my $upstream = $XML->{pkgmetadata}->{upstream}->{'remote-id'}->content();
     $packages->{$upstream} = $CP;
+    *STDERR->print("\e[32m $CP -> $upstream\e[0m ");
   }
 );