From 85b34c534ede50ca84af77a17a70182a422967cb Mon Sep 17 00:00:00 2001
From: des <des@FreeBSD.org>
Date: Fri, 19 Sep 2003 09:15:10 +0000
Subject: Add support for stop files, the existence of which signals tbmaster
 to skip particular platforms or configs, or simply stop running.

---
 tools/tools/tinderbox/tbmaster.pl | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'tools')

diff --git a/tools/tools/tinderbox/tbmaster.pl b/tools/tools/tinderbox/tbmaster.pl
index 1f78667..01d6da4 100644
--- a/tools/tools/tinderbox/tbmaster.pl
+++ b/tools/tools/tinderbox/tbmaster.pl
@@ -358,11 +358,19 @@ MAIN:{
 	die("Where is the tinderbox script?\n");
     }
 
+    my $stopfile = expand('SANDBOX') . "/stop";
     foreach my $branch (@{$CONFIG{'BRANCHES'}}) {
 	foreach my $platform (@{$CONFIG{'PLATFORMS'}}) {
+	    if (-e $stopfile || -e "$stopfile.$config") {
+		die("stop file found, aborting\n");
+	    }
 	    my ($arch, $machine) = split('/', $platform, 2);
 	    $machine = $arch
 		unless defined($machine);
+	    if (-e "$stopfile.$arch" || -e "$stopfile.$arch.$machine") {
+		warn("stop file for $arch/$machine found, skipping\n");
+		next;
+	    }
 	    tinderbox($branch, $arch, $machine);
 	}
     }
-- 
cgit v1.1