Changed program names

[chksht.git] / runchecks

diff --git a/runchecks b/runchecks
deleted file mode 100755 (executable)
index 535fa68..0000000
--- a/runchecks
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/usr/bin/perl
-use strict;
-
-my $dir = shift;
-unless ($dir) {
-       print "No directory specified\n";
-       exit 1;
-}
-unless (-d $dir) {
-       print "$dir is not a directory\n";
-       exit 1;
-}
-
-$|++;
-
-while (1) {
-       opendir(CHECKS, $dir);
-       while (my $d = readdir(CHECKS)) {
-               next if (! -d "$dir/$d" || $d eq '.' || $d eq '..');
-               unless (-f "$dir/$d/check") {
-                       print "No check script in $dir/$d\n";
-                       next;
-               }
-               print "Running check $dir/$d: ";
-               system("runcheckdir $dir/$d");
-               my $exitstatus = $? >> 8;
-               if ($exitstatus) {
-                       print "FAILURE\n";
-               } else {
-                       print "OK\n";
-               }
-               sleep 10;
-       }
-       closedir(CHECKS);
-}