]> jspc29.x-matter.uni-frankfurt.de Git - hadesdaq.git/commitdiff
current state,mt
authorHades DAQ <jan@lxhadeb07>
Fri, 1 Mar 2019 01:11:49 +0000 (02:11 +0100)
committerHades DAQ <jan@lxhadeb07>
Fri, 1 Mar 2019 01:11:49 +0000 (02:11 +0100)
hmon/hmon_eb_rate.pl

index e88c39a9e1c44a0993d9f3432bd7a0aa776218a1..6e606c2ebad24e79410d764fd8c4e71bafe5dd15 100755 (executable)
@@ -14,7 +14,7 @@ use JSON qw( decode_json );
 use HADES::TrbNet;
 
 my $SLEEP_TIME = .5;   # in seconds
-my $NUM_AVERAGES = 5;
+my $NUM_AVERAGES = 10;
 my $offset = 2;
 my $last_rate_endp = 0;
 my $opt_addr = 3;    #CTS 
@@ -59,10 +59,10 @@ while (1) {
                $rate_endp >= $last_rate_endp ? $rate_endp - $last_rate_endp
                : ($rate_endp + 2**16) - $last_rate_endp;
        }
-       if ($ctr >= $offset) { 
+       if ($ctr >= $offset) {
          # JAM2018: direct access to dabc http server instead of epics now:
          $evtrate_eb_tot += get ($url_erate);
-         $evtrate_eb_tot += 0  unless defined $evtrate_eb_tot;  
+         $evtrate_eb_tot += 0  unless defined $evtrate_eb_tot;
          #print Dumper $evtrate_eb_tot;
          my $builders = get ($url_builders);
          #print Dumper $builders;
@@ -71,15 +71,15 @@ while (1) {
            my $builder_array = decode_json($builders);
            $actmask = scalar @$builder_array;
            # not exactly the bitmask, but this is not used here anyway JAM
-         }   
-           
+         }
+
        }
        $last_rate_endp = $rate_endp;
 
        ###cancel integration when spill break is detected
        my @result = trb_register_read_c($opt_addr, 0xa002 );
        $last_spill_on = $spill_on;
-       $spill_on  = !(($result[1] & 0x10) >> 4);    
+       $spill_on  = !(($result[1] & 0x10) >> 4);
 
        usleep($SLEEP_TIME * 1e6);
        $ctr++;
@@ -100,8 +100,8 @@ while (1) {
 
     my $limit = $diff / sqrt($rate_endp || 1);
     my $status = QA::GetQAState('inside', $limit, @QA::EBDeltaRateLimits);
-    $status = QA::OK if $rate_endp < 50;
-    
+    $status = QA::OK if $rate_endp < 150;
+
     if (! $actmask) {
        $status = QA::WARN_2;
        $diff_p_str = "---";
@@ -121,8 +121,8 @@ while (1) {
     $longtext = " $longtext ErrorCtr: $error_ctr" if ($error_ctr > 0);
     QA::WriteQALog($flog, "eb", "rate", $SLEEP_TIME * $ctr * 2,
                   $status, $title, $shorttext, $longtext) unless $opt_debug>0;
-    print "status:$status title:$title short:$shorttext long: $longtext \n" unless $opt_debug<1;                  
-                  
+    print "status:$status title:$title short:$shorttext long: $longtext \n" unless $opt_debug<1;
+
     if ($status >= QA::ERROR) {
       my $speakermsg = "CTS and Eventbuilder rate differ by ";
       my $pmesg = sprintf "%d", abs($diff_p);