From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ian Campbell Subject: [PATCH OSSTEST v1 4/5] mg-show-flight-runvars: include $flight. prefix on job name if -r (recurse) Date: Mon, 1 Feb 2016 14:28:31 +0000 Message-ID: <1454336912-28503-4-git-send-email-ian.campbell@citrix.com> References: <1454336890.28781.99.camel@citrix.com> Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Return-path: In-Reply-To: <1454336890.28781.99.camel@citrix.com> List-Unsubscribe: , List-Post: List-Help: List-Subscribe: , Sender: xen-devel-bounces@lists.xen.org Errors-To: xen-devel-bounces@lists.xen.org To: ian.jackson@eu.citrix.com, xen-devel@lists.xen.org Cc: Ian Campbell List-Id: xen-devel@lists.xenproject.org Adds a new -r (==recurse) option which for now only adds "$flight." to the job name, i.e. nothing is recursive yet. Signed-off-by: Ian Campbell --- mg-show-flight-runvars | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/mg-show-flight-runvars b/mg-show-flight-runvars index 0cf4e13..f96539f 100755 --- a/mg-show-flight-runvars +++ b/mg-show-flight-runvars @@ -27,6 +27,7 @@ csreadconfig(); my $synthcond = '(NOT synth)'; my $synthsufx = ''; +my $recurse = 0; for (;;) { last unless @ARGV; @@ -36,6 +37,8 @@ for (;;) { if (m/^-a$/) { $synthcond = '(1=1)'; $synthsufx = '~'; + } elsif (m/^-r$/) { + $recurse = 1; } else { die "$_ ?"; } @@ -59,6 +62,7 @@ sub collect ($) { while (my (@row) = $q->fetchrow_array()) { my $synth = shift @row; + $row[0] = "$flight.$row[0]" if $recurse; $row[1] .= $synthsufx if $synth && $synth ne 'f'; # sqlite3 is typeless push @rows, \@row; } -- 2.6.1