status

diff --git a/hmon/permanent/hmon_pionsupply.pl b/hmon/permanent/hmon_pionsupply.pl
index 7eb2a2c9092edfb666676f6b92483f212edc8a72..6d9ef1fba7389192a4f5e81bc92cd4664c94417e 100755 (executable)
--- a/hmon/permanent/hmon_pionsupply.pl
+++ b/hmon/permanent/hmon_pionsupply.pl
@@ -79,19 +79,21 @@ while(1) {
     my $longtext = sprintf("Pion 1: %.1f V / %.4fuA",$val[3],$val[4]);
     my $state = QA::OK;
        $state = QA::WARN if($val[3]<140);    
+       $state = QA::WARN if($val[4] > 1.0);
        $state = QA::FATAL if($val[4] > 5);
        
     QA::WriteQALog($flog, "pion", "HV", 30,
-       QA::OK, 'Pion 0 HV', $shorttext, $longtext);
+       $state, 'Pion 0 HV', $shorttext, $longtext);
 
     $shorttext = sprintf("%.1f/%.3f",$val[25],$val[26]);
     $longtext = sprintf("Pion 2: %.2f V / %.3fuA",$val[25],$val[26]);
     $state = QA::OK;
     $state = QA::WARN if($val[25]<140);    
+    $state = QA::WARN if($val[26] > 1.5);
     $state = QA::FATAL if($val[26] > 5);
        
     QA::WriteQALog($flog, "pion", "HVcurr", 30,
-       QA::OK, 'Pion 1 HV', $shorttext, $longtext);
+       $state, 'Pion 1 HV', $shorttext, $longtext);
 
     $shorttext = sprintf("%.1f&deg; / %.1f&deg;",$val[47],$val[53]);
     $longtext = sprintf("Pion 1: is %.1f&deg;, soll %.1f&deg;<br>Pion 2: is %.1f&deg;, soll %.1f&deg;",$val[47],$val[49],$val[53],$val[55]);