Latest changes to hmon scripts

diff --git a/hmon/HPlot.pm b/hmon/HPlot.pm
index 195916aa8c19781ad032a7f91e9d6de0a23a5523..4859b47fa3d60cbb097d5e14ae57c71fc499183e 100755 (executable)
--- 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 faed10aafa5a2510be10fb7550a95256bdee390a..730455102225e32c0ab04d96e77bc4911df3bf3d 100644 (file)
--- 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 b02f4b778149100b2106f5b7c815b59896d46008..6dd31b08a483d8d0812a227bb7247c412eb770b2 100644 (file)
--- 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 7b6d501f3fc9d8a1ab4f53605cb5ffd529c69ec5..1f08e54ea3d4a6a781a81e1770455edd99c93442 100755 (executable)
--- 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 a1cc5807d75670271eb84551605e0d61fbc284a0..27c219f4494d870176878ccf26ba1513a9424375 100755 (executable)
--- 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 60aa58436857cd4b32ce49db8f3340f1c7d56870..c6a802062e0f4d91f0aae5f7964d93cae00e9679 100755 (executable)
--- 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 726fbe1cebbbbd1105e68cd032a94776ed8997fe..1c0002cacfb426584b4c2927975e2524fdc21092 100755 (executable)
--- 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 791c9cd3155275b5d13bdf3b6db1ecdc46a0c9eb..021a857427af675aea2f8c29a499fa7e9cf16d29 100755 (executable)
--- 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 (executable)
new mode 100644 (file)

diff --git a/hmon/permanent/hmon_qaplots.pl b/hmon/permanent/hmon_qaplots.pl
index 44b27a5b94dda8589b09fde865e3a6900ff7e388..85053c7d25213f91a592a1d35af76608b40eb503 100755 (executable)
--- 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
+