SVN: toys/stbr/queue_parser.pl

[sparky]

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;