From 0a53c2f637c7d705433909e012b321035611a129 Mon Sep 17 00:00:00 2001
From: "hadaq@countinghouse" <hadaq@CountingHouse>
Date: Thu, 28 Aug 2014 17:19:35 +0200
Subject: [PATCH] status

---
 hmon/hmon_spill.pl | 16 +++++-----------
 1 file changed, 5 insertions(+), 11 deletions(-)

diff --git a/hmon/hmon_spill.pl b/hmon/hmon_spill.pl
index 18d1531..5a81dc0 100755
--- a/hmon/hmon_spill.pl
+++ b/hmon/hmon_spill.pl
@@ -63,18 +63,18 @@ while (1) {
     $lastspill = $outofspill;
     $outofspill = ($rh_result->{QA::CTSAddress} || 0) & 0x10;
     $spilllength++ ; #if($outofspill);
-    $rh_result = trb_register_read(0x3000, 0x01) or $trbneterr = 1; #sleep 5 and next;
+    $rh_result = trb_register_read(0x0002, 0x01) or $trbneterr = 1; #sleep 5 and next;
     # 0x3000 => a reliable guy to ask about rates
     
     if($trbneterr == 0) {
-	my $res = $rh_result->{0x3000} & 0xffff;
+	my $res = $rh_result->{0x0002} & 0xffff;
 	$evtrate = $res >= $lastres ? $res - $lastres : ($res + 2**16) - $lastres;
 	$events += $evtrate;
         $midlastres = $res;
         usleep(500000);
 
-        $rh_result = trb_register_read(0x3000, 0x01) or $trbneterr = 1; #sleep 5 and next;
-	$res = $rh_result->{0x3000} & 0xffff;
+        $rh_result = trb_register_read(0x0002, 0x01) or $trbneterr = 1; #sleep 5 and next;
+	$res = $rh_result->{0x0002} & 0xffff;
 	my $evtrate2 = $res >= $midlastres ? $res - $midlastres : ($res + 2**16) - $midlastres;
 	$events += $evtrate2;
         $evtrate += $evtrate2;
@@ -116,16 +116,10 @@ while (1) {
               QA::WriteQALog($fqa, "trg", "spill", 30, QA::NOTE, "Spill Sum",
 			   "No Spills", "No Spills detected at the moment");  
             
-            if($spilllength > 30 && !($spilllength%30)) {
+            if($spilllength >= 25 && !($spilllength%25)) {
               if($data->{'prefix'}->{val} eq 'be') {
                 Hmon::Speak('nobeam', "No beam");
                 }
-#               elsif($data->{'prefix'}->{val} eq 'co') {
-#                 Hmon::Speak('nobeam', "No beam, but cosmics are there anyways.");
-#                 }
-#               else {
-#                 Hmon::Speak('nobeam', "No beam, but nobody cares because test files are written.");
-#                 }
               }
 	}
 	
-- 
2.43.0