From 007d2572ecb02dcb002027f85fc7f8fd259fb345 Mon Sep 17 00:00:00 2001
From: "terry%netscape.com"
 <terry%netscape.com@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Fri, 23 Oct 1998 06:11:07 +0000
Subject: [PATCH] Stop lying and saying trees aren't busted when they are.  And
 bring back the word "Horked".

git-svn-id: svn://10.0.0.236/trunk@13367 18797224-902f-48f8-a5cc-f745e15eee43
---
 mozilla/webtools/mozbot/Tinderbox.pm | 8 ++++++--
 mozilla/webtools/mozbot/mozbot.pl    | 2 +-
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/mozilla/webtools/mozbot/Tinderbox.pm b/mozilla/webtools/mozbot/Tinderbox.pm
index 1ac1b2355f4..3c15e4692ef 100644
--- a/mozilla/webtools/mozbot/Tinderbox.pm
+++ b/mozilla/webtools/mozbot/Tinderbox.pm
@@ -83,8 +83,12 @@ sub status
 			}
 		elsif ($type eq "Build")
 			{
-			$state = "Horked" unless ($state ne "Success");
-			$info{$tree}{$build} = $state;
+				if ($state =~ /success/i) {
+					$state = "Success";
+				} else {
+					$state = "Horked";
+				}
+				$info{$tree}{$build} = $state;
 			}
 		}
 	
diff --git a/mozilla/webtools/mozbot/mozbot.pl b/mozilla/webtools/mozbot/mozbot.pl
index 20ee10a543a..a81c555b6ed 100755
--- a/mozilla/webtools/mozbot/mozbot.pl
+++ b/mozilla/webtools/mozbot/mozbot.pl
@@ -472,7 +472,7 @@ sub bot_tinderbox
             {
             foreach my $e (sort keys %{$$trees{$t}})
                 {
-                next if ($terse && $$trees{$t}{$e} ne "horked");
+                next if ($terse && $$trees{$t}{$e} ne "Horked");
                 $buf .= "[$e: $$trees{$t}{$e}] ";
                 $bustage++;
                 }