From: hadaq@countinghouse <hadaq@CountingHouse>
Date: Thu, 17 Jul 2014 04:17:10 +0000 (+0200)
Subject: Latest changes to hmon scripts
X-Git-Tag: pre2018~70
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=44757fc891d0ea26f60eeb7fe77a5db279851d37;p=hadesdaq.git

Latest changes to hmon scripts
---

diff --git a/hmon/HPlot.pm b/hmon/HPlot.pm
index 195916a..4859b47 100755
--- a/hmon/HPlot.pm
+++ b/hmon/HPlot.pm
@@ -178,6 +178,7 @@ sub PlotInit {
       }
     else {
       plot_write($fh,"plot '-' matrix with image, '-' matrix using 1:2:(sprintf('%i', \$3)) with labels tc rgb \"#ffffff\" font ',10'");
+#      plot_write($fh,"plot '-' matrix with image, '-' matrix using 1:2:(sprintf('%i', \$3)):3 with labels tc palette  font ',10'");
       }
     }
   else {
diff --git a/hmon/doc/endp-mdc.htt b/hmon/doc/endp-mdc.htt
index faed10a..7304551 100644
--- a/hmon/doc/endp-mdc.htt
+++ b/hmon/doc/endp-mdc.htt
@@ -4,9 +4,9 @@ This button shows if all MDC front-end modules are active. The button is red if
 
 
 <h4>Error Handling</h4>
-<ul><li>If there is a Timeout reported at the same time, do a "Resync missing OEP"
-<li>If 1-3 boards show an error, do a power-cycle of the corresponding sector
-<li>If 7-9 boards show an error, do a DAQ restart
+<ul><li>If there is a Timeout reported at the same time, do a DAQ restart. If this doesn't help, do a power cycle of the MDC sector. If this doesn't help, use "Reboot MdcHub" plus 2 DAQ restarts.
+<!--<li>If 1-3 boards show an error, do a power-cycle of the corresponding sector
+<li>If 7-9 boards show an error, do a DAQ restart-->
 <li>If 14/18 boards show an error after a power-cycle, click "MDC LV Turn On ALL Relais"
 </ul>
 <br>
diff --git a/hmon/doc/mdc-blocked.htt b/hmon/doc/mdc-blocked.htt
index b02f4b7..6dd31b0 100644
--- a/hmon/doc/mdc-blocked.htt
+++ b/hmon/doc/mdc-blocked.htt
@@ -1,9 +1,12 @@
 <h3>MDC Blocked</h3>
 <p>
-This button gives the number of MDC-MBO that do not deliver data (updated only if rate per motherboard is above 1000, and trigger is running at more than 1000 Hz).
+This button gives the number of MDC-MBO that do not deliver data (updated only if rate per motherboard is above 1000, and trigger is running at 
+more than 1000 Hz).
 
 </p>
 <h4>Error Handling</h4>
-Do a power-cycle of the corresponding MDC chamber.
+Check with the MDC operator if high voltage is on on all chambers. 
+<br>Do a DAQ restart.
+<br>Do a power-cycle of the corresponding MDC chamber.
 
 
diff --git a/hmon/hmon_diamond.pl b/hmon/hmon_diamond.pl
index 7b6d501..1f08e54 100755
--- a/hmon/hmon_diamond.pl
+++ b/hmon/hmon_diamond.pl
@@ -28,6 +28,7 @@ $plot2->{xmin}    = 0.5;
 $plot2->{xmax}    = 6.5;
 $plot2->{ymin}    = 6.5;
 $plot2->{ymax}    = 0.5;
+$plot2->{cbmax}   = "100<*";
 $plot2->{showvalues} = 1;
 $plot2->{xlabel} = "column";
 $plot2->{ylabel} = "row";
diff --git a/hmon/hmon_hodo.pl b/hmon/hmon_hodo.pl
index a1cc580..27c219f 100755
--- a/hmon/hmon_hodo.pl
+++ b/hmon/hmon_hodo.pl
@@ -50,6 +50,7 @@ $plot->{xscale}  = -1;
 $plot->{xmin}    = -0.5;
 $plot->{xmax}    = 16.5;
 $plot->{ymin}    = 0;
+$plot->{ymax}    = "100<*";
 $plot->{buffer}  = 1;
 HPlot::PlotInit($plot);
 
diff --git a/hmon/hmon_hodo_hist.pl b/hmon/hmon_hodo_hist.pl
index 60aa584..c6a8020 100755
--- a/hmon/hmon_hodo_hist.pl
+++ b/hmon/hmon_hodo_hist.pl
@@ -47,7 +47,7 @@ $plot3->{curves}  = 1;
 $plot3->{curvewidth} = 1;
 $plot3->{type}    = HPlot::TYPE_BARGRAPH;
 $plot3->{output}  = HPlot::OUT_PNG;
-$plot3->{ylabel}  = "Hit Ratio (dark rate substracted)";
+$plot3->{ylabel}  = "Hit Ratio (dark rate subtracted)";
 $plot3->{sizex}   = 450;
 $plot3->{sizey}   = 360;
 $plot3->{buffer}  = 1;
@@ -69,7 +69,7 @@ $plot4->{curves}  = 4;
 $plot4->{xscale}  = 5;
 $plot4->{type}    = HPlot::TYPE_HISTORY;
 $plot4->{output}  = HPlot::OUT_PNG;
-$plot4->{ylabel}  = "Hit Ratio (dark rate substracted)";
+$plot4->{ylabel}  = "Hit Ratio (dark rate subtracted)";
 $plot4->{xlabel}  = "Time [s]";
 $plot4->{sizex}   = 650;
 $plot4->{sizey}   = 360;
@@ -90,7 +90,7 @@ $plot5->{curves}  = 6;
 $plot5->{xscale}  = 5;
 $plot5->{type}    = HPlot::TYPE_HISTORY;
 $plot5->{output}  = HPlot::OUT_PNG;
-$plot5->{ylabel}  = "Hit Rate (dark rate substracted)";
+$plot5->{ylabel}  = "Hit Rate (dark rate subtracted)";
 $plot5->{xlabel}  = "Time [s]";
 $plot5->{sizex}   = 650;
 $plot5->{sizey}   = 360;
@@ -111,7 +111,7 @@ $plot6->{entries} = 30;
 $plot6->{curves}  = 5;
 $plot6->{type}    = HPlot::TYPE_HISTORY;
 $plot6->{output}  = HPlot::OUT_PNG;
-$plot6->{ylabel}  = "Hit Rate per spill (dark rate substracted)";
+$plot6->{ylabel}  = "Hit Rate per spill (dark rate subtracted)";
 $plot6->{xlabel}  = "Spills";
 $plot6->{sizex}   = 650;
 $plot6->{sizey}   = 360;
@@ -120,7 +120,7 @@ $plot6->{titles}->[0] = "Pi1 Y";
 $plot6->{titles}->[1] = "Pi1 X";
 $plot6->{titles}->[2] = "Start";
 $plot6->{titles}->[3] = "Hodo";
-$plot6->{titles}->[4] = "Rec. Events (x20)";
+$plot6->{titles}->[4] = "Rec. Events (x50)";
 $plot6->{storable} = 1;
 HPlot::PlotInit($plot6);
 
@@ -133,7 +133,7 @@ $plot7->{curves}  = 4;
 $plot7->{xscale}  = 5;
 $plot7->{type}    = HPlot::TYPE_HISTORY;
 $plot7->{output}  = HPlot::OUT_PNG;
-$plot7->{ylabel}  = "Hit Rate (dark rate substracted)";
+$plot7->{ylabel}  = "Hit Rate (dark rate subtracted)";
 $plot7->{xlabel}  = "Time [s]";
 $plot7->{sizex}   = 1050;
 $plot7->{sizey}   = 360;
@@ -153,7 +153,7 @@ $plot8->{curves}  = 4;
 $plot8->{xscale}  = 5;
 $plot8->{type}    = HPlot::TYPE_HISTORY;
 $plot8->{output}  = HPlot::OUT_PNG;
-$plot8->{ylabel}  = "Hit Rate (dark rate substracted)";
+$plot8->{ylabel}  = "Hit Rate (dark rate subtracted)";
 $plot8->{xlabel}  = "Time [s]";
 $plot8->{sizex}   = 650;
 $plot8->{sizey}   = 360;
@@ -248,14 +248,14 @@ while (1) {
   $t = trb_registertime_read(0x3000,1);
   if (defined $t) {
     if (defined $olde) {
-      my $tdiff = $t->{0x3000}->{time}->[0] - ($oldtime->{0x3000}||0);
+      #my $tdiff = $t->{0x3000}->{time}->[0] - ($oldtime->{0x3000}||0);
       my $vdiff = ($t->{0x3000}->{value}->[0]&0xffff) - ($olde->{0x3000}&0xffff);
       if ($vdiff < 0) { $vdiff += 2**16;}
-      if ($tdiff < 0) { $tdiff += 2**16;}
-      $tdiff *= 16;
-      $diffe->{0x3000}   = $vdiff/($tdiff||1E6)*1E6;
+      #if ($tdiff < 0) { $tdiff += 2**16;}
+      #$tdiff *= 16;
+      $diffe->{0x3000}   = $vdiff;#/($tdiff||1E6)*1E6;
       }
-    $oldtime->{0x3000} = $t->{0x3000}->{time}->[0];
+    #$oldtime->{0x3000} = $t->{0x3000}->{time}->[0];
     $olde->{0x3000}    = $t->{0x3000}->{value}->[0];
     }   
  
@@ -331,7 +331,7 @@ while (1) {
       $spillsum->{0x3811} += (($diff2->{0x3811}->{0x8130}||0)-$offset->{0x3811})/5;
       $spillsum->{0x8880} += (($totalstart||0)-$offset->{0x8880})/5;
       $spillsum->{0x8890} += (($total||0)-$offset->{0x8890})/5/2;
-      $spillsum->{0x3000} += $diffe->{0x3000}/5;
+      $spillsum->{0x3000} += $diffe->{0x3000};
       }
     else {
       HPlot::PlotAdd("HitRatioHist",0,0);    
@@ -356,7 +356,7 @@ while (1) {
         HPlot::PlotAdd('SpillSumHist',$spillsum->{0x3811},1);
         HPlot::PlotAdd('SpillSumHist',$spillsum->{0x8880},2);
         HPlot::PlotAdd('SpillSumHist',$spillsum->{0x8890},3);
-        HPlot::PlotAdd('SpillSumHist',$spillsum->{0x3000}*20,4);
+        HPlot::PlotAdd('SpillSumHist',$spillsum->{0x3000}*50,4); #MT: why? times 20 should be fine....
         HPlot::PlotDraw('SpillSumHist');
         $spillsum->{0x8880} = 0;
         $spillsum->{0x8890} = 0; 
diff --git a/hmon/hmon_rate2.pl b/hmon/hmon_rate2.pl
index 726fbe1..1c0002c 100755
--- a/hmon/hmon_rate2.pl
+++ b/hmon/hmon_rate2.pl
@@ -127,7 +127,7 @@ while (1) {
   my $oos;
   
   #Out of spill?
-  if($store{0xa029} < 20) {
+  if($store{0xa029} < 50) {
     for my $b (0xa029, 0xa02a, 0xa02b, 0xa024, 0xa009, 0xa03c, 0xa037) {
       $offset->{$b} = ($offset->{$b}||0) + (($store{$b}||0) - ($offset->{$b}||0))/10;
       }
diff --git a/hmon/hmon_spill.pl b/hmon/hmon_spill.pl
index 791c9cd..021a857 100755
--- a/hmon/hmon_spill.pl
+++ b/hmon/hmon_spill.pl
@@ -106,6 +106,10 @@ while (1) {
 	} elsif ($spilllength > 20) {
 	    QA::WriteQALog($fqa, "trg", "spill", 30, QA::NOTE, "Spill Sum",
 			   "No Spills", "No Spills detected at the moment");  
+            
+            if($spilllength > 30 && !($spilllength%30)) {
+              Hmon::Speak('nobeam', "No beam")
+              }
 	}
 	
 	$qashort = sprintf(" %i ", $evtrate);
@@ -116,7 +120,7 @@ while (1) {
 	    $errtime++; 
 	}
 	elsif ($errtime > 1) {
-	    $errtime-=2;
+	    $errtime-=4;
 	}
 	$qastate = QA::WARN if $errtime > 10;
 	#####################
diff --git a/hmon/hmon_starthist.pl b/hmon/hmon_starthist.pl
old mode 100755
new mode 100644
diff --git a/hmon/permanent/hmon_qaplots.pl b/hmon/permanent/hmon_qaplots.pl
index 44b27a5..85053c7 100755
--- a/hmon/permanent/hmon_qaplots.pl
+++ b/hmon/permanent/hmon_qaplots.pl
@@ -32,16 +32,19 @@ my $out = $title;
   <div class="linkbox">
   <ul>
   <li><a href="qaplot_Main.htm">Main</a><br>
-  <li><a href="qaplot_Start.htm">Start</a><br>
   <li><a href="qaplot_Hodo.htm">Hodoscope</a><br>
+  <li><a href="qaplot_Start.htm">Start</a><br>
+  <li><a href="qaplot_PionTrackerRaw.htm">Pion Tracker Raw</a><br>
+  <li><a href="qaplot_PionTrackerCal.htm">Pion tracker Cal</a><br>
   <li><a href="qaplot_RICH.htm">RICH</a><br>
-  <li><a href="qaplot_MDC.htm">MDC</a><br>
+  <li><a href="qaplot_MDCMon.htm">MDC</a><br>
+  <li><a href="qaplot_MDCExpert.htm">MDC Expert</a><br>
   <li><a href="qaplot_MDCTimes.htm">MDCTimes</a><br>
-  <li><a href="qaplot_MDCTimesRaw.htm">MDCTimesRaw</a><br>
-  <li><a href="qaplot_TOF.htm">TOF</a><br>
+  <li><a href="qaplot_MDCTimesCal.htm">MDCTimesCal</a><br>
+  <li><a href="qaplot_TOFMon.htm">TOF</a><br>
   <li><a href="qaplot_RPC.htm">RPC</a><br>
-  <li><a href="qaplot_Wall.htm">Wall</a><br>
-  <li><a href="qaplot_Shower.htm">Shower</a>
+  <li><a href="qaplot_WALLMon.htm">Wall</a><br>
+  <li><a href="qaplot_SHOWERMon.htm">Shower</a>
   <li><a href="qaplot_Physics.htm">Physics</a>
   </ul></div>
   <div class="linkbox">
@@ -54,7 +57,7 @@ open ($fh,"> ".Hmon::HMONDIR."/files/qa.htm") or die;
 print $fh $out;
 close $fh;
 
-my @pages = qw(Main Hodo PionTrackerRaw PionTrackerCal RICH MDCMon MDCTimes MDCTimesRaw MDCExpert MDCTimesCal TOFMon RPC WALLMon SHOWERMon Physics);  
+my @pages = qw(Main Start Hodo PionTrackerRaw PionTrackerCal RICH MDCMon MDCTimes MDCTimesRaw MDCExpert MDCTimesCal TOFMon RPC WALLMon SHOWERMon Physics);  
 
 my $files = {};
 # $files->{'Main'} = ["MainPTScaler", "MainTRBNetDebugInfo", "MainTrigger", "MainTriggerTrend"];
@@ -108,4 +111,4 @@ $files-> { "Physics" } = [  "PhysMultCand" ,  "PhysMatch" ,  "PhysMultDist" ,  "
 #   sleep(60);
 #   }
 
- 
\ No newline at end of file
+