From 2f041da45a1cbd9d48eb0b910ed0f92f6664e5fb Mon Sep 17 00:00:00 2001 From: "hadaq@countinghouse" Date: Thu, 28 Aug 2014 17:20:17 +0200 Subject: [PATCH] status --- hmon/permanent/hmon_pionsupply.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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° / %.1f°",$val[47],$val[53]); $longtext = sprintf("Pion 1: is %.1f°, soll %.1f°
Pion 2: is %.1f°, soll %.1f°",$val[47],$val[49],$val[53],$val[55]); -- 2.43.0