X-Git-Url: http://git.bytex64.net/?a=blobdiff_plain;ds=sidebyside;f=runchecks;fp=runchecks;h=0000000000000000000000000000000000000000;hb=8d7475b3a36e68f80dc196a95fadc549c708f1cb;hp=535fa6834c353ef6d53679ca8c9b2f33b98c1be9;hpb=67d5ceff171336ae0a516c911b310f1d90e7062f;p=chksht.git

diff --git a/runchecks b/runchecks
deleted file mode 100755
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);
-}