mg-show-flight-runvars: improvemenets, -a mode

diff --git a/mg-show-flight-runvars b/mg-show-flight-runvars
index 90fa99bdda559760f5470e09b8e8311b5b7d55c6..db012dc04ff4fc1d0289543b4e1a731a6a83f921 100755 (executable)
--- a/mg-show-flight-runvars
+++ b/mg-show-flight-runvars
@@ -25,19 +25,33 @@ use Osstest;
 
 csreadconfig();
 
+my $synthcond = '(NOT synth)';
+
+for (;;) {
+    last unless @ARGV;
+    last unless $ARGV[0] =~ m/^-/;
+    $_ = shift @ARGV;
+    last if m/^\-\-?$/;
+    if (m/^-a$/) {
+       $synthcond = 'TRUE';
+    } else {
+       die "$_ ?";
+    }
+}
+
 die unless @ARGV==1 && $ARGV[0] =~ m/^\d+/;
 
 our ($flight) = @ARGV;
 
 our @cols = qw(job name val);
 
-my $qfrom = "FROM runvars WHERE flight=$flight AND NOT synth";
+my $qfrom = "FROM runvars WHERE flight=$flight AND $synthcond";
 
 my @colws = $dbh_tests->selectrow_array
     ("SELECT ".(join ',', map { "max(length($_))" } @cols)." $qfrom");
 
 my $q = $dbh_tests->prepare
-    ("SELECT ".(join ',', @cols)." $qfrom ORDER BY job, name");
+    ("SELECT ".(join ',', @cols)." $qfrom ORDER BY name, job");
 $q->execute();
 
 while (my $row = $q->fetchrow_arrayref()) {