SVN: toys/stbr/queue_parser.pl

[sparky]

Author: sparky
Date: Fri Oct 30 14:05:45 2009
New Revision: 10887

Modified:
   toys/stbr/queue_parser.pl
Log:
- allow commands with flags


Modified: toys/stbr/queue_parser.pl
==============================================================================
--- toys/stbr/queue_parser.pl	(original)
+++ toys/stbr/queue_parser.pl	Fri Oct 30 14:05:45 2009
@@ -115,7 +115,8 @@
 		if ( $rpm ) {
 			$rpm =~ s/\.src\.rpm$//;
 		} else {
-			($rpm) = $p =~ m{<command flags="">(.*?)</command>};
+			$p =~ m{<command flags="(.*?)">(.*?)</command>};
+			$rpm = $1 ? "($1) $2" : $2;
 		}
 
 		my $e = color();