Do not declare services to be down unless they're actually down.

perlDreamer · perlDreamer · commit e952ac98b865 · 2012-01-07T07:59:24.000-08:00
diff --git a/wre/lib/WRE/Mysql.pm b/wre/lib/WRE/Mysql.pm
@@ -209,7 +209,6 @@ sub start {
     my $count = 0;
     my $success = 0;
     my $config = $self->wreConfig;
-    $config->set("wreMonitor/mysqlAdministrativelyDown", 0);
     my $host = WRE::Host->new(wreConfig => $config);
     my $cmd = "mysql.server start --user=".$config->get("user");
     `$cmd`; # catch command line output
@@ -218,6 +217,9 @@ sub start {
         eval {$success = $self->ping };
         $count++;
     }
+    if ($success) {
+        $config->set("wreMonitor/mysqlAdministrativelyDown", 0);
+    }
     return $success;
 }
 
@@ -236,7 +238,6 @@ sub stop {
     my $count = 0;
     my $success = 1;
     my $config = $self->wreConfig;
-    $config->set("wreMonitor/mysqlAdministrativelyDown", 1);
     my $host = WRE::Host->new(wreConfig => $config);
     my $cmd = "mysql.server stop";
     `$cmd`; # catch command line output
@@ -245,6 +246,9 @@ sub stop {
         eval {$success = $self->ping };
         $count++;
     }
+    if (!$success) {
+        $config->set("wreMonitor/mysqlAdministrativelyDown", 1);
+    }
     return !$success;
 }
 
