runchecks

   1 #!/usr/bin/perl
   2 use strict;
   3
   4 my $dir = shift;
   5 unless (-d $dir) {
   6         print "$dir is not a directory\n";
   7         exit 1;
   8 }
   9
  10 $|++;
  11
  12 while (1) {
  13         opendir(CHECKS, $dir);
  14         while (my $d = readdir(CHECKS)) {
  15                 next if (! -d "$dir/$d" || $d eq '.' || $d eq '..');
  16                 unless (-f "$dir/$d/check") {
  17                         print "No check script in $dir/$d\n";
  18                         next;
  19                 }
  20                 print "Running check $dir/$d: ";
  21                 system("runcheckdir $dir/$d");
  22                 my $exitstatus = $? >> 8;
  23                 if ($exitstatus) {
  24                         print "FAILURE\n";
  25                 } else {
  26                         print "OK\n";
  27                 }
  28                 sleep 10;
  29         }
  30         closedir(CHECKS);
  31 }