6 print "No directory specified\n";
10 print "$dir is not a directory\n";
17 opendir(CHECKS, $dir);
18 while (my $d = readdir(CHECKS)) {
19 next if (! -d "$dir/$d" || $d eq '.' || $d eq '..');
20 unless (-f "$dir/$d/check") {
21 print "No check script in $dir/$d\n";
24 print "Running check $dir/$d: ";
25 system("runcheckdir $dir/$d");
26 my $exitstatus = $? >> 8;