Author: sparky
Date: Fri Oct 30 22:47:25 2009
New Revision: 10896
Modified:
toys/stbr/queue_parser.pl
Log:
- print cvs branch/tag as well
Modified: toys/stbr/queue_parser.pl
==============================================================================
--- toys/stbr/queue_parser.pl (original)
+++ toys/stbr/queue_parser.pl Fri Oct 30 22:47:25 2009
@@ -118,6 +118,7 @@
next;
}
+ my $e = color();
my ($rpm) = $p =~ m{<src-rpm>(.*?)</src-rpm>};
if ( $rpm ) {
$rpm =~ s/\.src\.rpm$//;
@@ -125,8 +126,12 @@
$p =~ m{<command flags="(.*?)">(.*?)</command>};
$rpm = $1 ? "($1) $2" : $2;
}
+ if ( $p =~ m{<branch>(.+?)</branch>} ) {
+ my $branch = $1;
+ my $c = color( "blue" );
+ $rpm .= " ($c$branch$e)";
+ }
- my $e = color();
my $all_done = 1;
my $some_done = 0;
my @status;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
