Megatest: runner at [848a55348a]

File utils/runner artifact 429ba71354 part of check-in 848a55348a

#!/usr/bin/perl -w

#  Copyright 2006-2017, Matthew Welland.
# 
# This file is part of Megatest.
# 
#     Megatest is free software: you can redistribute it and/or modify
#     it under the terms of the GNU General Public License as published by
#     the Free Software Foundation, either version 3 of the License, or
#     (at your option) any later version.
# 
#     Megatest is distributed in the hope that it will be useful,
#     but WITHOUT ANY WARRANTY; without even the implied warranty of
#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#     GNU General Public License for more details.
# 
#     You should have received a copy of the GNU General Public License
#     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.

$starthr=`date +%k`;
$hrsper = 1;
$nexthr=$starthr + $hrsper;

$ltr='a';

while (1) {
  $runname = `date +%GWW%V.%u`;
  chomp $runname;
  $runname = $runname . $ltr;
  $cmd = "megatest -runall :datapath testing :fsname local :sysname ubuntu :runname $runname";
  print "Running $cmd\n";
  system $cmd;
  $currhr = `date +%k`;
  if ($currhr > $nexthr) {
    $ltr = chr(ord($ltr)+1);
    $nexthr=$nexthr + $hrsper;
  }
  if ($nexthr > 23) {
    $nexthr = 0;
  }
  sleep 10;
}