From: hadaq@countinghouse <hadaq@CountingHouse>
Date: Thu, 28 Aug 2014 15:20:17 +0000 (+0200)
Subject: status
X-Git-Tag: pre2018~46
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=2f041da45a1cbd9d48eb0b910ed0f92f6664e5fb;p=hadesdaq.git

status
---

diff --git a/hmon/permanent/hmon_pionsupply.pl b/hmon/permanent/hmon_pionsupply.pl
index 7eb2a2c..6d9ef1f 100755
--- 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]);