]> jspc29.x-matter.uni-frankfurt.de Git - hadesdaq.git/commitdiff
Latest updates before beamtime
authorhadaq@countinghouse <hadaq@hades33.gsi.de>
Mon, 30 Jun 2014 16:27:19 +0000 (18:27 +0200)
committerhadaq@countinghouse <hadaq@hades33.gsi.de>
Mon, 30 Jun 2014 16:27:19 +0000 (18:27 +0200)
28 files changed:
control/gui/eb/10_Restart_EB
control/gui/eb/60_Prefix_TC [new file with mode: 0755]
control/gui/eb/98_Prefix_Sh [new file with mode: 0755]
control/gui/monitor/10_CTS_Mon
control/gui/monitor/30_Epics_EB
hmon/HPlot.pm
hmon/QA.pm
hmon/hmon_busynew.pl
hmon/hmon_diamond.pl
hmon/hmon_endpoints.pl
hmon/hmon_hodo.pl
hmon/hmon_hodo_hist.pl
hmon/hmon_mdchv_plottemplate.pl
hmon/hmon_shower.pl [changed mode: 0644->0755]
hmon/index.cgi
hmon/permanent/hmon_cpu.pl
hmon/permanent/hmon_mdchv.pl
hmon/permanent/hmon_mdcpressure.pl
hmon/start.sh
hub/addresses_hub.db
hub/serials_hub.db
nettools/Perl2Epics.pm
rpc/addresses_rpc.db
start/addresses_start_trb3.db
start/serials_start_trb3.db
start/startup.script
utils/hldlast_store
utils/move_doublecpu_irq.sh

index 241b360fec798fbf75b8fc3625c175121edea1df..1aae676036ec7033465f168486537bc2d9322edc 100755 (executable)
@@ -6,7 +6,7 @@ ssh -X hadaq@lxhadesdaq "
   echo "Restarting Eventbuilder 1 - 16"
   stoptrigger.sh
   cd ~/trbsoft/hadesdaq/evtbuild/
-  sleep 5 && starttrigger.sh &
+  sleep 10 && starttrigger.sh &
   ./start_eb_gbe.sh
   '
  "
diff --git a/control/gui/eb/60_Prefix_TC b/control/gui/eb/60_Prefix_TC
new file mode 100755 (executable)
index 0000000..fa0a161
--- /dev/null
@@ -0,0 +1,13 @@
+#!/bin/bash
+
+# notifyall.sh "DAQ" "<I> Eventbuilders are being restarted." "EB" &
+
+ssh -X hadaq@lxhadesdaq "
+ xterm -geometry 80x24 -bg orange -fg black -e bash -c '
+  echo "Starting Eventbuilder 1 - 16 with prefix tc"
+  cd ~/trbsoft/hadesdaq/evtbuild/
+  ./start_eb_gbe.pl -e restart -n 1-16 -d on -p tc
+  '
+ "
+/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have been started. Writing TDC-Calibration Files" "EB" &
+
diff --git a/control/gui/eb/98_Prefix_Sh b/control/gui/eb/98_Prefix_Sh
new file mode 100755 (executable)
index 0000000..07c3ddf
--- /dev/null
@@ -0,0 +1,13 @@
+#!/bin/bash
+
+# notifyall.sh "DAQ" "<I> Eventbuilders are being restarted." "EB" &
+
+ssh -X hadaq@lxhadesdaq "
+ xterm -geometry 80x24 -bg orange -fg black -e bash -c '
+  echo "Starting Eventbuilder 1 - 16 with prefix sh"
+  cd ~/trbsoft/hadesdaq/evtbuild/
+  ./start_eb_gbe.pl -e restart -n 1-16 -d on -p sh
+  '
+ "
+/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have been started. Writing Shower sh files" "EB" &
+
index 0bd28a602418002b05bcb1714725776ba29935a6..9a92ec76ada61de7ef05fd990dc44c9393745993 100755 (executable)
@@ -5,13 +5,13 @@
 #notifyall.sh "DAQ" "<I> DAQ is going to be restarted." "STARTUP" &
 
 #xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@lxhadeb06 "
+  ssh -X hadaq@lxhadeb06 "
   source /home/hadaq/.bashrc
   export DAQOPSERVER=hadesp31
   cd /home/hadaq/trbsoft/hadesdaq/control/ctsmon
   perl ./mon_cts.pl 
-#  sleep 1
-#"
+  sleep 1
+"
 #'
 
 #sleep 1
index 4cf305c744e68013e38a569496e41d92073f122f..2fcbbf20c8364612615cb9b8f50ba4cf3a186c95 100755 (executable)
@@ -1,3 +1,4 @@
 #!/bin/bash
-ssh -X scs@lxhadeb06  'export EPICS_CA_ADDR_LIST=192.168.103.255; export EPICS_CA_AUTO_ADDR_LIST=NO; /home/epics/EPICS/EPICS-3.14.12.4/extensions/bin/linux-x86_64/medm -x -macro "SUBSYSNUM=24" ~/operator/ebmainctrl.adl'
+ssh -X scs@lxhadeb06  'export EPICS_CA_ADDR_LIST="192.168.103.255 192.168.103.255:10012 192.168.103.255:10008 192.168.103.255:10003 192.168.103.255:10002 192.168.103.255:10001 192.168.103.255:10014 192.168.103.255:10007 192.168.103.255:10004 192.168.103.255:10010 192.168.103.255:10013 192.168.103.255:10015 192.168.103.255:10016 192.168.103.255:10009 192.168.103.255:10005 192.168.103.255:10011 192.168.103.255:10006" ; export EPICS_CA_AUTO_ADDR_LIST=NO; /home/epics/EPICS/EPICS-3.14.12.4/extensions/bin/linux-x86_64/medm -x -macro "SUBSYSNUM=24" ~/operator/ebmainctrl.adl'
+
 #export EPICS_CA_ADDR_LIST=192.168.103.255; export EPICS_CA_AUTO_ADDR_LIST=NO; /home/epics/EPICS/EPICS-3.14.12.4/extensions/bin/linux-x86_64/medm -x -macro "SUBSYSNUM=24" /home/scs/operator/ebmainctrl.adl &
index 26af6683e1b6609b0263d061f11565e56b504ab2..0c3d79ce4b30daf7e597c7735df4956e7f2a6ec8 100755 (executable)
@@ -80,6 +80,9 @@ sub PlotInit {
   if  ($p->{$name}->{nokey}) {
     plot_write($fh,"unset key");
     }
+  else {
+    plot_write($fh,"set key left top");
+    }
 
 
   plot_write($fh,"set xlabel \"".$p->{$name}->{xlabel}."\"") if $p->{$name}->{xlabel};
index 4932e6fa26c05b55d0389de359c76d24590ef414..d523cafee7a1ec9d38a0081e648c30757f0320a6 100644 (file)
@@ -41,7 +41,7 @@ $entries->{'eb'}      = ['run', 'rate','bytes', 'lostevt', 'errbits'];
 $entries->{'mdc'}     = ['token', 'blocked', 'temp', 'linkqual', 'voltage'];
 $entries->{'endp'}    = ['mdc','rich', 'tof', 'rpc', 'other'];
 $entries->{'feeerr'}  = ['rich', 'trb', 'feeerr','trginp','trgqual'];
-$entries->{'other'}   = ['speech','rich','mdcinvalid'];                                        #'magnet','shower'
+$entries->{'other'}   = ['magnet','speech','rich','shower','mdcinvalid'];
 $entries->{'pion'}    = ['nxstatus', 'HV', 'HVcurr', 'cooling'];
 
 
@@ -94,7 +94,7 @@ use constant {CTSAddress => 0x0003};
 #  Missing Boards
 ###############################################################################
 
-# our @mdc_boards_removed =(0x2233,0x2257);
+our @mdc_boards_removed =(0x2257);
 our @mdc_chambers_removed =();
 our @rich_boards_removed =();
 our @tof_boards_removed =();
index dd27ca62615c81d680532361afa8a3f0d207bb34..aad7af1ada71b7e44bd1372a3e7f1fd31d4ddaa7 100755 (executable)
@@ -109,7 +109,7 @@ while (1) {
         $diff->{$b}->[$v] = $vdiff/($tdiff||1);
         }
       }
-
+      
     HPlot::PlotAdd('BusyTimes',$diff->{0x8000}->[6],0); #MDC12
     HPlot::PlotAdd('BusyTimes',$diff->{0x8000}->[7],1); #MDC34
     HPlot::PlotAdd('BusyTimes',$diff->{0x8000}->[3],2); #Shower
@@ -172,6 +172,11 @@ while (1) {
       }
     unless($iter % 8) {
       HPlot::PlotDraw('BusyTimes');
+      my $maxpercent = max($diff->{0x8000}->[6],$diff->{0x8000}->[7],$diff->{0x8000}->[3],$diff->{0x8000}->[2],$diff->{0x8000}->[1],$diff->{0x8000}->[0],);
+      my $msgstr = sprintf("%3.1f%%",$maxpercent);
+      my $qastate = QA::OK;
+      $qastate = QA::ERROR if ($maxpercent > 99);
+      QA::WriteQALog($fqa,"daq","busy",5,$qastate,"Busy",$msgstr,"");      
       }
     }
 
index a97b32452dfee08ce7d0c397d979428d792d8fbd..7b6d501f3fc9d8a1ab4f53605cb5ffd529c69ec5 100755 (executable)
@@ -106,13 +106,13 @@ my $time = time();
 my $diff;
 my $iter = 0;
 
-$ENV{'DAQOPSERVER'} = "xboxp:6";
+#$ENV{'DAQOPSERVER'} = "xboxp:6";
 trb_init_ports() or die trb_strerror();
 
 
 while (1) {
   my $o;
-  foreach my $b (0x50f0,0x50f2,0x50f3) {
+  foreach my $b (0x5000,0x5002,0x5003) {
     my $t = trb_register_read_mem($b,0xc000,0,33);
     $o->{$b} = $t->{$b};
     }
@@ -121,7 +121,7 @@ while (1) {
     foreach my $b (keys %$o) {
       for my $v (0..32) {
         my $tdiff = time() - $oldtime;
-        my $vdiff = ($o->{$b}->[$v]&0xffffff) - ($old->{$b}->[$v]&0xffffff);
+        my $vdiff = (($o->{$b}->[$v]||0)&0xffffff) - (($old->{$b}->[$v]||0)&0xffffff);
         if ($vdiff < 0) { $vdiff += 2**24;}
         $diff->{$b}->[$v] = $vdiff/($tdiff|1);
         }
@@ -130,7 +130,7 @@ while (1) {
 
     for my $x (0..5) {
       for my $y (0..5) {
-        HPlot::PlotFill('DiamondRate',$diff->{$fpga->[$y]->[$x]+0x50f0}->[$chan->[$y]->[$x]],$x+1,$y+1);
+        HPlot::PlotFill('DiamondRate',$diff->{$fpga->[$y]->[$x]+0x5000}->[$chan->[$y]->[$x]],$x+1,$y+1);
         }
       }
     HPlot::PlotDraw('DiamondRate');      
index cd4fbe9fe5457ab65daf5acc3aeaaa544cf7b456..6c72b585e38c7944f1430c265bed037a01dbb86c 100755 (executable)
@@ -115,7 +115,7 @@ while(1) {
        #Start TRB3
        0x8880,0x5000,0x5002,0x5003,
        #Hodo TRB3
-       0x8890,0x5010,0x5013
+       0x8890,0x5010,0x5011,0x5012,0x5013
        );
 
     ###strip the register value
index b7631c83e8ddceb39e002759b933bbffc567337d..6918f6f3d11681c574784d928428135828c797d8 100755 (executable)
@@ -74,26 +74,30 @@ trb_init_ports() or die trb_strerror();
 
 while (1) {
   my $o;
-  foreach my $b (0x5010,0x5013) {
+  foreach my $b (0x5010,0x5011,0x5012,0x5013) {
     my $t = trb_register_read_mem($b,0xc000,0,33);
     $o->{$b} = $t->{$b};
     }
 
   if (defined $old) {
     foreach my $b (keys %$o) {
-      for my $v (0..32) {
+      for my $v (0..7) {
         my $tdiff = time() - $oldtime;
-        my $vdiff = ($o->{$b}->[$v]&0xffffff) - ($old->{$b}->[$v]&0xffffff);
+        my $vdiff = ($o->{$b}->[$v*4+1]&0xffffff) - ($old->{$b}->[$v*4+1]&0xffffff);
         if ($vdiff < 0) { $vdiff += 2**24;}
-        $diff->{$b}->[$v] = $vdiff/($tdiff|1);
+        $diff->{$b}->[$v*4+1] = $vdiff/($tdiff|1);
         }
       }
-    for my $bar (0..7) {
+    for my $bar (0..3) {
       for my $x (0..1) {
-        HPlot::PlotFill('HodoRate',$diff->{0x5010}->[$bar*2+1+$x*16],$x,$bar+8);
-        HPlot::PlotFill('HodoRate',$diff->{0x5013}->[$bar*2+1+$x*16],$x,$bar);
-        HPlot::PlotFill('HodoRatePlot',$diff->{0x5010}->[$bar*2+1+$x*16],$bar+8,$x);
-        HPlot::PlotFill('HodoRatePlot',$diff->{0x5013}->[$bar*2+1+$x*16],$bar,$x);        
+        HPlot::PlotFill('HodoRate',    $diff->{0x5013}->[$bar*4+1+$x*16],$x,$bar);
+        HPlot::PlotFill('HodoRatePlot',$diff->{0x5013}->[$bar*4+1+$x*16],$bar,$x);
+        HPlot::PlotFill('HodoRate',    $diff->{0x5012}->[$bar*4+1+$x*16],$x,$bar+4);
+        HPlot::PlotFill('HodoRatePlot',$diff->{0x5012}->[$bar*4+1+$x*16],$bar+4,$x);
+        HPlot::PlotFill('HodoRate',    $diff->{0x5011}->[$bar*4+1+$x*16],$x,$bar+8);
+        HPlot::PlotFill('HodoRatePlot',$diff->{0x5011}->[$bar*4+1+$x*16],$bar+8,$x);
+        HPlot::PlotFill('HodoRate',    $diff->{0x5010}->[$bar*4+1+$x*16],$x,$bar+12);
+        HPlot::PlotFill('HodoRatePlot',$diff->{0x5010}->[$bar*4+1+$x*16],$bar+12,$x);
         }
       }
     HPlot::PlotDraw('HodoRate');  
index ca41168b610711019463df9dbeec05ca28c24e12..37eddf7fab4cf799d846481c805a896eaac19a63 100755 (executable)
@@ -38,24 +38,6 @@ $plot->{xlabel}  = "Time [s]";
 $plot->{ylabel}  = "Hits [1/s]";
 HPlot::PlotInit($plot);
 
-my $plot2 = ();
-$plot2->{name}    = "ScintiHist";
-$plot2->{file}    = "files/ScintiHist";
-$plot2->{curves}  = 1;
-$plot2->{entries} = 200;
-$plot2->{titles}->[0]   = "Scintillator";
-$plot2->{type}    = HPlot::TYPE_HISTORY;
-$plot2->{output}  = HPlot::OUT_PNG;
-$plot2->{zlabel}  = "Hitrate";
-$plot2->{sizex}   = 680;
-$plot2->{sizey}   = 365;
-$plot2->{nokey}   = 0;
-$plot2->{buffer}  = 1;
-$plot2->{xscale}  = 5;
-$plot2->{xlabel}  = "Time [s]";
-$plot2->{ylabel}  = "Hits [1/s]";
-HPlot::PlotInit($plot2);
-
 my $plot3 = ();
 $plot3->{name}    = "HitRatios";
 $plot3->{file}    = "files/HitRatios";
@@ -124,10 +106,10 @@ $str .= qq@<img src="%ADDPNG files/HodoHist.png%" type="image/png"><br>\n@;
 $str .= Hmon::MakeFooter();
 Hmon::WriteFile("HodoHist",$str);
 
-$str  = Hmon::MakeTitle(9, 8, "Scintillator Hit History");
-$str .= qq@<img src="%ADDPNG files/ScintiHist.png%" type="image/png"><br>\n@;
-$str .= Hmon::MakeFooter();
-Hmon::WriteFile("ScintiHist",$str);
+#$str  = Hmon::MakeTitle(9, 8, "Scintillator Hit History");
+#$str .= qq@<img src="%ADDPNG files/ScintiHist.png%" type="image/png"><br>\n@;
+#$str .= Hmon::MakeFooter();
+#Hmon::WriteFile("ScintiHist",$str);
 
 $str  = Hmon::MakeTitle(6, 8, "Hit Ratios");
 $str .= qq@<img src="%ADDPNG files/HitRatios.png%" type="image/png"><br>\n@;
@@ -166,7 +148,7 @@ trb_init_ports() or die trb_strerror();
 
 while (1) {
   my $o, my $o2; my $t;
-  foreach my $b (0x5010,0x5012,0x5013) {
+  foreach my $b (0x5010,0x5011,0x5012,0x5013) {
     $t = trb_registertime_read_mem($b,0xc000,0,33);
     $o->{$b} = $t->{$b};
     }
@@ -177,10 +159,6 @@ while (1) {
       }
     }
     
-#   $t = trb_registertime_read(0xfe49,0x841f);
-#   foreach my $b (keys $t) {
-#     $o2->{$b}->{0x841f} = $t->{$b};
-#     }   
 
   if (defined $old) {
     foreach my $b (keys %$o) {
@@ -210,19 +188,22 @@ while (1) {
     
     my @sum = qw(0 0 0 0 0 0 0 0);
     my $total = 0;
-    for my $bar (0..7) {
+    for my $bar (0..3) {
       for my $x (0..1) {
-        $sum[$bar/2+4] += $diff->{0x5010}->[$bar*2+1+$x*16];
-        $sum[$bar/2]   += $diff->{0x5013}->[$bar*2+1+$x*16];
-        $total         += $diff->{0x5010}->[$bar*2+1+$x*16];
-        $total         += $diff->{0x5013}->[$bar*2+1+$x*16];
+        $sum[$bar/2]   += $diff->{0x5013}->[$bar*4+1+$x*16];
+        $total         += $diff->{0x5013}->[$bar*4+1+$x*16];
+        $sum[$bar/2+2] += $diff->{0x5012}->[$bar*4+1+$x*16];
+        $total         += $diff->{0x5012}->[$bar*4+1+$x*16];
+        $sum[$bar/2+4] += $diff->{0x5011}->[$bar*4+1+$x*16];
+        $total         += $diff->{0x5011}->[$bar*4+1+$x*16];
+        $sum[$bar/2+6] += $diff->{0x5010}->[$bar*4+1+$x*16];
+        $total         += $diff->{0x5010}->[$bar*4+1+$x*16];
         }
       }
     for my $i (0..7) {  
       HPlot::PlotAdd("HodoHist",$sum[$i]/2,$i);  
-#       $total += $sum[$i]/2;
       }
-    HPlot::PlotAdd("ScintiHist",$diff->{0x5012}->[7],0);
+#    HPlot::PlotAdd("ScintiHist",$diff->{0x5012}->[7],0);
     HPlot::PlotAdd("HodoHist",$total/2,8);
     
 
@@ -267,7 +248,7 @@ while (1) {
       
     unless($timer++ %  5) {
       HPlot::PlotDraw('HodoHist');  
-      HPlot::PlotDraw('ScintiHist');  
+#      HPlot::PlotDraw('ScintiHist');  
       HPlot::PlotDraw('HitRatioHist');  
       HPlot::PlotDraw('HitRatios');  
       HPlot::PlotDraw('HitSumHist');
index 04c087104386546241dc421aee7315d71b519dfc..da44913edce2f271d039b9b33d8205541f948cd6 100755 (executable)
@@ -79,17 +79,17 @@ use Hmon;
 # close $fh; 
 
 foreach my $i (0..3) {
-  my $out = Hmon::MakeTitle(11, 19, "MDC High Voltage ");
-  $out .= "<h4>Plane ".($i+1)."</h4>";
-  $out .= qq%<img src="files/MDCHVP%.$i.qq%FV.png"> <img src="files/MDCHVP%.$i.qq%CV.png"><br>%;
+  my $out = Hmon::MakeTitle(18, 5, "MDC High Voltage Plane$i");
+  $out .= qq@<img src="%ADDPNG files/MDCHVP@.$i.qq@FV.png%">\n@;
+  $out .= qq@<img src="%ADDPNG files/MDCHVP@.$i.qq@CV.png%">\n@;
   $out .= Hmon::MakeFooter();
   Hmon::WriteFile("mdchvV$i",$out);
   }
 
 foreach my $i (0..3) {
-  my $out = Hmon::MakeTitle(11, 19, "MDC High Voltage Current");
-  $out .= "<h4>Plane ".($i+1)."</h4>";
-  $out .= qq%<img src="files/MDCHVP%.$i.qq%FI.png"> <img src="files/MDCHVP%.$i.qq%CI.png"><br>%;
+  my $out = Hmon::MakeTitle(18, 5, "MDC High Voltage Current Plane $i");
+  $out .= qq@<img src="%ADDPNG files/MDCHVP@.$i.qq@FI.png%">\n@;
+  $out .= qq@<img src="%ADDPNG files/MDCHVP@.$i.qq@CI.png%">\n@;
   $out .= Hmon::MakeFooter();
   Hmon::WriteFile("mdchvC$i",$out);
   }
old mode 100644 (file)
new mode 100755 (executable)
index a88af02..54483e9
@@ -45,7 +45,7 @@ while (1) {
     my $hexval = sprintf("%x", $board);
     my @a = split("", $hexval);
       if($a[0] == "3" && $a[1] == "2") {
-        $values{$board}->{"bytes"} = %$bytes_sent->{$board} - $values{$board}->{"prev_bytes"} if defined %$bytes_sent->{$board};
+        $values{$board}->{"bytes"} = %$bytes_sent->{$board} - ($values{$board}->{"prev_bytes"}||0) if defined %$bytes_sent->{$board};
         $values{$board}->{"prev_bytes"}  = %$bytes_sent->{$board};
 
         $sum += $values{$board}->{"bytes"};
index 784be41eaf0b5791074646866d27faaa5dc2b366..2fea507457d079ad990aef73fde762fb0ca0fe69 100755 (executable)
@@ -15,7 +15,7 @@ print qq$<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://
 <body class="index" style="position:relative;background:#d8e8f8;width:750px;margin:auto;padding:120px 0 40px 0">
 <script type="text/javascript">
 function openwin(url) {
-       win = window.open(url,"window1","width=600,height=400,scrollbars=no,status=no,location=no,menubar=no,resizable=no,titlebar=no");
+       win = window.open(url,"window1","width=600,height=400,scrollbars=no,status=no,location=no,menubar=no,resizable=no,titlebar=no,toolbar=no");
        win.focus();
        }
 </script>
@@ -82,8 +82,8 @@ function openwin(url) {
 <div class="linkbox" style="float:right"><h4>MDC</h4><ul>
 <li><a href="monitor.cgi?10-MDCRates-MDCBusy-MDCTemperature-MDCRetransmission-MDCTriggerError-MDCTokenMiss">MDC Overview</a></li>
 <li><a href="monitor.cgi?1-window-MDCHV">HV settings</a></li>
-<li><a href="monitor.cgi?30-mdchvV0-mdchvV1-mdchvV2-mdchvV3">HV voltage trend plots</a></li>
-<li><a href="monitor.cgi?30-mdchvC0-mdchvC1-mdchvC2-mdchvC3">HV current trend plots</a></li>
+<li><a href="monitor.cgi?15-window-mdchvV0-mdchvV1-mdchvV2-mdchvV3">HV voltage trend plots</a></li>
+<li><a href="monitor.cgi?15-window-mdchvC0-mdchvC1-mdchvC2-mdchvC3">HV current trend plots</a></li>
 <li><a href="monitor.cgi?2-window-MDCBusy">Busy Times</a></li>
 <li><a href="monitor.cgi?2-window-MDCRates">Data Rates</a></li>
 <li><a href="monitor.cgi?2-window-MDCTokenMiss">Missing Tokens</a></li>
@@ -91,6 +91,7 @@ function openwin(url) {
 <li><a href="monitor.cgi?10-window-MDCTemperature">Temperature</a></li>
 <li><a href="monitor.cgi?2-window-MDCTriggerError">Trigger Errors</a></li>
 <li><a href="monitor.cgi?10-window-MDCPressure">Gas System Pressures</a></li>
+<li><a href="monitor.cgi?10-window-MDCReflow">Gas System Reflow &amp; Scales</a></li>
 <li><a href="monitor.cgi?2-window-MDCLV">LV switch status</a></li>
 </ul></div>
 
index dfb3037bb47661144f6f8398c4a7da87c1f6f431..696f04c314f9d5101a1d102e32e7d3837b2ddb5f 100755 (executable)
@@ -85,7 +85,7 @@ while(1) {
           $str .= "<td ";
           $str .= sprintf("title=\"busy %.1f, sys %.1f, wait %.1f, irq %.1f\" ",$busy,$sys,$io,$irq);
           $str .= sprintf("style=\"background-color:%4s;\">%2i",Hmon::findcolor($busy||.001,0,100,0),$busy);
-          if($s>0 && $s<5 && $max < $busy && $c>=2 && $c<=11) {
+          if($s>0 && $s<4 && $max < $busy && $c>=2 && $c<=11) {
             $max = $busy;
             $maxstr = sprintf("%d%%",$max);
             $busystr = sprintf("Max. Load: %.1f%% on %s CPU %d (sys %.1f, wait %.1f, irq %.1f)",$max,$srv[$s],$c,$sys,$io,$irq);
index b4a8fe9809f63d26ac8ae5c80e11113bed5f50e5..b2a5f4d7fd0e81a946afcdd3829fc35781e3be96 100755 (executable)
@@ -30,39 +30,41 @@ my @plot;
 foreach my $s (0..1) {
   foreach my $p (0..3) {
     $plot[$p*2+$s] = ();
-    $plot[$p*2+$s]->{name}    = "P".$p.($s?'C':'F')."I";
+    $plot[$p*2+$s]->{name}    = "P".$p.($s?'F':'C')."I";
     $plot[$p*2+$s]->{file}    = "files/MDCHV".$plot[$p*2+$s]->{name};
     $plot[$p*2+$s]->{entries} = 360;
     $plot[$p*2+$s]->{xscale}  = 12;
     $plot[$p*2+$s]->{type}    = HPlot::TYPE_HISTORY;
     $plot[$p*2+$s]->{output}  = HPlot::OUT_PNG;
     $plot[$p*2+$s]->{xlabel}  = "Minutes";
-    $plot[$p*2+$s]->{ylabel}  = ($s?'C':'F')." Current";
-    $plot[$p*2+$s]->{sizex}   = 800;
-    $plot[$p*2+$s]->{sizey}   = 420;
+    $plot[$p*2+$s]->{ylabel}  = ($s?'F':'C')." Current";
+    $plot[$p*2+$s]->{sizex}   = 700;
+    $plot[$p*2+$s]->{sizey}   = 240;
     $plot[$p*2+$s]->{curves}  = 6;
     $plot[$p*2+$s]->{dots}    = 1;
     $plot[$p*2+$s]->{colors}  = \@colors;
+    $plot[$p*2+$s]->{buffer}  = 1;
     foreach my $c (0..5) {
-      $plot[$p*2+$s]->{titles}->[$c] = ($s?'C ':'F ').$names[$c];
+      $plot[$p*2+$s]->{titles}->[$c] = ($s?'F ':'C ').$names[$c];
       }
     HPlot::PlotInit($plot[$p*2+$s]);
 
-    $plot[$p*2+$s+8]->{name}    = "P".$p.($s?'C':'F')."V";
+    $plot[$p*2+$s+8]->{name}    = "P".$p.($s?'F':'C')."V";
     $plot[$p*2+$s+8]->{file}    = "files/MDCHV".$plot[$p*2+$s+8]->{name};
     $plot[$p*2+$s+8]->{entries} = 360;
     $plot[$p*2+$s+8]->{xscale}  = 12;
     $plot[$p*2+$s+8]->{type}    = HPlot::TYPE_HISTORY;
     $plot[$p*2+$s+8]->{output}  = HPlot::OUT_PNG;
     $plot[$p*2+$s+8]->{xlabel}  = "Minutes";
-    $plot[$p*2+$s+8]->{ylabel}  = ($s?'C':'F')." Voltage";
-    $plot[$p*2+$s+8]->{sizex}   = 800;
-    $plot[$p*2+$s+8]->{sizey}   = 420;
+    $plot[$p*2+$s+8]->{ylabel}  = ($s?'F':'C')." Voltage";
+    $plot[$p*2+$s+8]->{sizex}   = 700;
+    $plot[$p*2+$s+8]->{sizey}   = 240;
     $plot[$p*2+$s+8]->{curves}  = 6;
     $plot[$p*2+$s+8]->{dots}  = 1;
     $plot[$p*2+$s+8]->{colors}  = \@colors;
+    $plot[$p*2+$s+8]->{buffer}  = 1;
     foreach my $c (0..5) {
-      $plot[$p*2+$s+8]->{titles}->[$c] = ($s?'C ':'F ').$names[$c];
+      $plot[$p*2+$s+8]->{titles}->[$c] = ($s?'F ':'C ').$names[$c];
       }    
     HPlot::PlotInit($plot[$p*2+$s+8]);
     }
@@ -71,13 +73,13 @@ foreach my $s (0..1) {
 
 for(my $i = 1; $i<=4; $i++) {
   for(my $j = 1; $j<=6; $j++) {
-    my $s = sprintf("HAD:MDC:HV:P%i:S%i:C:vmon",$i,$j);
+    my $s = sprintf("HAD:MDC:HV:P%i:S%i:F:vmon",$i,$j);
     Perl2Epics::Connect("$i-$j-0-V",$s);
-    $s = sprintf("HAD:MDC:HV:P%i:S%i:F:vmon",$i,$j);
+    $s = sprintf("HAD:MDC:HV:P%i:S%i:C:vmon",$i,$j);
     Perl2Epics::Connect("$i-$j-1-V",$s);
-    $s = sprintf("HAD:MDC:HV:P%i:S%i:C:imon",$i,$j);
-    Perl2Epics::Connect("$i-$j-0-I",$s);
     $s = sprintf("HAD:MDC:HV:P%i:S%i:F:imon",$i,$j);
+    Perl2Epics::Connect("$i-$j-0-I",$s);
+    $s = sprintf("HAD:MDC:HV:P%i:S%i:C:imon",$i,$j);
     Perl2Epics::Connect("$i-$j-1-I",$s);
     }
   }
@@ -85,11 +87,11 @@ print "Connected.\n";
 
 while(1) {
   my $data = Perl2Epics::GetAll();
-  my $str = Hmon::MakeTitle(13, 9, "MDC HV", 1, "");
+  my $str = Hmon::MakeTitle(13, 6, "MDC HV", 1, "");
     $str .= "<table class=\"rates textbox\">"; #<div id=\"logbox\" class=\"textbox\" >
+    $str .= "<tr><th><th colspan=1>Sector 1<th colspan=1>Sector 2<th colspan=1>Sector 3<th colspan=1>Sector 4<th colspan=1>Sector 5<th colspan=1>Sector 6"; 
   for(my $i = 1; $i<=4; $i++) {
-    $str .= "<tr><th colspan=7>Plane $i\n";
-    $str .= "<tr><th><th colspan=1>Sector 1<th colspan=1>Sector 2<th colspan=1>Sector 3<th colspan=1>Sector 4<th colspan=1>Sector 5<th colspan=1>Sector 6";
+      $str .= "<tr><tr><th colspan=7>Plane $i\n";      
     for(my $v = 0; $v<=1; $v++) {
       $str .= "<tr><td>".$layerlabel[$v]."&nbsp;";
       for(my $s = 1; $s<=6; $s++) {
@@ -99,16 +101,22 @@ while(1) {
         my $tc   = strftime("%H:%M:%S",localtime($data->{"$i-$s-$v-I"}->{tme} || 0));
         $volt = -1 unless defined $volt;
         $curr = -1 unless defined $curr;
-        HPlot::PlotAdd("P".($i-1).(($v)?'C':'F')."I",$curr,$s-1);
-        HPlot::PlotAdd("P".($i-1).(($v)?'C':'F')."V",$volt,$s-1);
+        HPlot::PlotAdd("P".($i-1).(($v)?'F':'C')."I",$curr,$s-1);
+        HPlot::PlotAdd("P".($i-1).(($v)?'F':'C')."V",$volt,$s-1);
         my $tmp .= sprintf(" %4i V | %2.2f uA",$volt,$curr);
         $tmp =~ s/\s/&nbsp;/gi;
         $str .= "<td title=\"$tv / $tc\">".$tmp;
         }
       }
-    $str .= "<tr><th colspan=7>&nbsp;\n";      
+
+    #$str .= "<tr><th colspan=7>&nbsp;\n";      
     }  
-  $str .= "</table>";#</div>
+  $str .= "</table>\n";#</div>
+   $str .= "<br>currents trend <br>\n";
+ $str .= "<br>\n";
+  $str .= qq@<img src="%ADDPNG files/MDCHV1FI.png%" type="image/png">\n@; 
+   $str .= "<br>\n";
+  $str .= qq@<img src="%ADDPNG files/MdcPressurePlane1.png%" type="image/png">\n@;  
   $str .= Hmon::MakeFooter();
 
   if(!($timer%1)) {
@@ -117,8 +125,8 @@ while(1) {
   if(!($timer%3)) {
     foreach my $s (0..1){
       foreach my $p (0..3) {
-        HPlot::PlotDraw("P".$p.($s?'C':'F')."I");
-        HPlot::PlotDraw("P".$p.($s?'C':'F')."V");
+        HPlot::PlotDraw("P".$p.($s?'F':'C')."I");
+        HPlot::PlotDraw("P".$p.($s?'F':'C')."V");
         }
       }
     }
index 8a4e5beef07e9d1ecb0271ac7513bc158265591d..b72615b6bb51e1766334009d0ebe6e45e2225669 100755 (executable)
@@ -12,7 +12,7 @@ use Perl2Epics;
 use HPlot;
 
 
-my @names = qw( reflowPressureAthm reflowPressureCompr reflowInO2 reflowRatioIsob opensysFreshARGON opensysFreshCO2 reflowFreshArgon reflowFreshIsob pipePressureIsoB );
+my @names = qw( reflowPressureAthm:average reflowPressureCompr reflowInO2 reflowRatioIsob opensysFreshARGON opensysFreshCO2 reflowFreshArgon reflowFreshIsob pipePressureIsoB );
 my @namesLABEL = qw( AtmosphericPressure reflowPressureCompressor reflow_O2_concentration reflow_Isobutane_fraction planeI_argon planeI_CO2 reflowFreshArgon reflowFreshIsobutane pipePressureIsobutane );
 my @names2 = qw(waage_1_net waage_2_net);
 my @names2LABEL = qw(Scale_1 Scale_2);
@@ -66,7 +66,7 @@ $plotPrePlane1->{titles}->[3] = "sector 4";
 $plotPrePlane1->{titles}->[4] = "sector 5";
 $plotPrePlane1->{titles}->[5] = "sector 6";
 $plotPrePlane1->{xlabel}  = "Minutes";
-$plotPrePlane1->{ylabel}  = "Pa";
+$plotPrePlane1->{ylabel}  = "Plane I - [Pa]";
 $plotPrePlane1->{sizex}   = 630;
 $plotPrePlane1->{sizey}   = 220;
 $plotPrePlane1->{nokey} = 0;
@@ -88,7 +88,7 @@ $plotPrePlane2->{titles}->[3] = "sector 4";
 $plotPrePlane2->{titles}->[4] = "sector 5";
 $plotPrePlane2->{titles}->[5] = "sector 6";
 $plotPrePlane2->{xlabel}  = "Minutes";
-$plotPrePlane2->{ylabel}  = "Pa";
+$plotPrePlane2->{ylabel}  = "Plane II - [Pa]";
 $plotPrePlane2->{sizex}   = 630;
 $plotPrePlane2->{sizey}   = 220;
 $plotPrePlane2->{nokey} = 0;
@@ -110,7 +110,7 @@ $plotPrePlane3->{titles}->[3] = "sector 4";
 $plotPrePlane3->{titles}->[4] = "sector 5";
 $plotPrePlane3->{titles}->[5] = "sector 6";
 $plotPrePlane3->{xlabel}  = "Minutes";
-$plotPrePlane3->{ylabel}  = "Pa";
+$plotPrePlane3->{ylabel}  = "Plane III - [Pa]";
 $plotPrePlane3->{sizex}   = 630;
 $plotPrePlane3->{sizey}   = 220;
 $plotPrePlane3->{nokey} = 0;
@@ -129,6 +129,14 @@ $str .= qq@<img src="%ADDPNG files/MdcScales.png%" type="image/png">@;
 $str .= Hmon::MakeFooter();
 Hmon::WriteFile("MdcScales",$str);
 
+$str = Hmon::MakeTitle(8,15,"Mdc differential Pressure",0);
+$str .= qq@<img src="%ADDPNG files/MdcPressurePlane1.png%" type="image/png">@;
+$str .= qq@<img src="%ADDPNG files/MdcPressurePlane2.png%" type="image/png">@;
+$str .= qq@<img src="%ADDPNG files/MdcPressurePlane3.png%" type="image/png">@;
+$str .= Hmon::MakeFooter();
+Hmon::WriteFile("MdcPressure",$str);
+
+
 $str = Hmon::MakeTitle(8,5,"Mdc differential Pressure Plane1",0);
 $str .= qq@<img src="%ADDPNG files/MdcPressurePlane1.png%" type="image/png">@;
 $str .= Hmon::MakeFooter();
@@ -170,7 +178,7 @@ print "Connected.\n";
 
 while(1) {
   my $data = Perl2Epics::GetAll();
-  $str = Hmon::MakeTitle(8, 28, "MDC Gas Pressure", 1, "");
+  $str = Hmon::MakeTitle(8, 17, "MDC Gas Pressure", 1, "");
   $str .= "<h4>Chamber differential pressure  [Pa]</h4>\n";
   $str .= "<table class=\"rates \">\n"; #<div id=\"logbox\" class=\"textbox\" >
   $str .= "<tr><th colspan=1>plane/sector<th colspan=1>1<th colspan=1>2<th colspan=1>3<th colspan=1>4<th colspan=1>5<th colspan=1>6\n";
@@ -181,7 +189,22 @@ while(1) {
       }
     }
   $str .= "</table>\n";
-  $str .= "<h4>Gas System</h4>\n";
+ # $str .= "Plane 1 <br>\n";
+  $str .= qq@<img src="%ADDPNG files/MdcPressurePlane1.png%" type="image/png">\n@;  
+  #$str .= "<br> Plane 2 <br> \n";
+  $str .= qq@<img src="%ADDPNG files/MdcPressurePlane2.png%" type="image/png">\n@;  
+ # $str .= "<br> Plane 3 <br> \n";
+  $str .= qq@<img src="%ADDPNG files/MdcPressurePlane3.png%" type="image/png">\n@;  
+  $str .= Hmon::MakeFooter();
+  Hmon::WriteFile("MDCPressure", $str);
+  $str = Hmon::MakeTitle(8, 18, "MDC Reflow & Scales", 1, "");  
+  $str .= "<h4>Atmospheric Pressure</h4>\n";
+  $str .= qq@<img src="%ADDPNG files/AtmosPress.png%" type="image/png">\n@; 
+  $str .= "<h4>Isobutane scales</h4>";
+  $str .= qq@<img src="%ADDPNG files/MdcScales.png%" type="image/png">\n@;
+  
+   $str .= "<h4>Gas System</h4>";
   $str .= "<table class=\"rates \" style=\"margin:auto\">\n";
   foreach my $i (0.. (scalar @names)-1) {
     $str .= sprintf("<tr><td>%s<td>%.2f\n",$namesLABEL[$i],$data->{$names[$i]}->{val} || -1);
@@ -194,22 +217,11 @@ while(1) {
   foreach my $i (0.. (scalar @names3)-1) {
     $str .= sprintf("<tr><td>%s<td>%.2f\n",$names3[$i],$data->{$names3[$i]}->{val} || -1);
     }  
-  $str .= "</table>\n";
-  $str .= "<h6>Chamber differential pressure</h6>\n";
-  $str .= "Plane 1 <br>\n";
-  $str .= qq@<img src="%ADDPNG files/MdcPressurePlane1.png%" type="image/png">\n@;  
-  $str .= "<br> Plane 2 <br> \n";
-  $str .= qq@<img src="%ADDPNG files/MdcPressurePlane2.png%" type="image/png">\n@;  
-  $str .= "<br> Plane 3 <br> \n";
-  $str .= qq@<img src="%ADDPNG files/MdcPressurePlane3.png%" type="image/png">\n@;   
-  $str .= "<h4>Isobutane scales</h4>\n";
-  $str .= qq@<img src="%ADDPNG files/MdcScales.png%" type="image/png">\n@;
-  $str .= "<br>\n";
-  $str .= "<h4>Atmospheric Pressure</h4>\n";
-  $str .= qq@<img src="%ADDPNG files/AtmosPress.png%" type="image/png">\n@;  
+  $str .= "</table>";
+  
   $str .= Hmon::MakeFooter();
 
-  Hmon::WriteFile("MDCPressure", $str);  
+  Hmon::WriteFile("MDCReflow", $str);  
 
   if(!($timer%6)) {
     HPlot::PlotAdd("MdcScales",$data->{waage_1_net}->{val},0);
@@ -219,7 +231,7 @@ while(1) {
   
   
   if(!($timer%6)) {
-    HPlot::PlotAdd("AtmosPress",$data->{reflowPressureAthm}->{val});
+    HPlot::PlotAdd("AtmosPress",$data->{reflowPressureAthm:average}->{val});
     HPlot::PlotDraw("AtmosPress");  
     }
 
@@ -227,7 +239,7 @@ while(1) {
   if(!($timer%6)) {
     for(my $i = 1; $i<=3; $i++) {
       for(my $j = 1; $j<=6; $j++) {
-        HPlot::PlotAdd("MdcPressurePlane$i",$data->{"p$i$j"}->{val},$j);
+        HPlot::PlotAdd("MdcPressurePlane$i",$data->{"p$i$j"}->{val},$j-1);
         HPlot::PlotDraw("MdcPressurePlane$i"); 
         }
       }
index 6a555197d26150507a0799a5592a8087cd8efcd6..4b8953194f60d96cc464305e3972bc93f2aafdd8 100755 (executable)
@@ -10,7 +10,7 @@ echo "  <Hmon>     Renewing tunnels and environment..."
 pgrep -f 'hmon_ssh -f -R 8888' >/dev/null
 if [ $? -eq 1 ]; then
 echo "  <Hmon>     No tunnel found, digging new one";
-./hmon_ssh -f -R 8888:hades33.gsi.de:80 -R 3060:hades33.gsi.de:80 cerberus.x-matter.uni-frankfurt.de -N &
+./hmon_ssh -f -R 8888:hades33.gsi.de:80 -R 3060:hades33.gsi.de:80 -R 8889:hades33.gsi.de:1234 -R 9999:lxhadeb06.gsi.de:80  cerberus.x-matter.uni-frankfurt.de -N &
 fi
 
 killall speakdaemon.pl
index 785daa6a71388d46d8a77fbf57a2a9c5cfbc348e..118b7e050c7b18fe97a3c20d4a6745757e2f7550 100644 (file)
@@ -48,5 +48,5 @@
 0x8910        0815        5          0        081
 
 #StartTRB3
-0x8880        0745        5          0        074
+0x8880        0065        5          0        006
 0x8890        1065        5          0        106
index b2b17437c1017d28c571b98247f142c6c73d3822..cad693b9d8e30ac2119cdcbd45fe8b0494e6e990 100644 (file)
@@ -28,3 +28,4 @@
  0805 0x330000031349ed28
  0815 0x6b0000031319f428
  1065 0x4b000004f9decd28
+ 0065 0xc4000003481ef228
index 15e6018326a96d9ff917ad73285dd7b542e385ea..6ad470102d29e5e79a655141fc2ef52bffef6005 100644 (file)
@@ -8,8 +8,9 @@ use lib '/home/scs/EPICS/gcc-4.4/EPICS-3.14.12.2_linux-x86_64/base/' . '/lib/per
 use CA;
 
 $ENV{EPICS_CA_AUTO_ADDR_LIST} = 'YES';
-$ENV{EPICS_CA_ADDR_LIST} = "192.168.100.11 192.168.100.12 192.168.100.13 192.168.100.14 192.168.100.15 localhost";
-
+# JAM added fixed port numbers of EB epics
+$ENV{EPICS_CA_ADDR_LIST} = "192.168.103.255 192.168.103.255:10012 192.168.103.255:10008 192.168.103.255:10003 192.168.103.255:10002 192.168.103.255:10001 192.168.103.255:10014 192.168.103.255:10007 192.168.103.255:10004 192.168.103.255:10010 192.168.103.255:10013 192.168.103.255:10015 192.168.103.255:10016 192.168.103.255:10009 192.168.103.255:10005 192.168.103.255:10011 192.168.103.255:10006 localhost";
+#$ENV{EPICS_CA_ADDR_LIST} = "192.168.100.11 192.168.100.12 192.168.100.13 192.168.100.14 192.168.100.15 localhost";
 
 my $EpicsValues = {};
 my $EpicsStore = {};
index 89bfffae63db0eb1269df30fc7309fd9d9e0a192..2fc571b86ec5916ed5c32aa71e5e46af68a1372e 100644 (file)
@@ -2,7 +2,7 @@
 ###################################################
 0x4800        059        1          7        059
 0x4801        067        1          7        067
-0x4802        110        1          7        110
+0x4802        052        1          7        052
 0x4803        056        1          7        056
 0x4810        094        1          7        094
 0x4811        085        1          7        085
@@ -19,7 +19,7 @@
 0x4833        122        1          7        122
 0x4840        054        1          7        054
 0x4841        053        1          7        053
-0x4842        052        1          7        052
+0x4842        110        1          7        110
 0x4843        051        1          7        051
 0x4850        092        1          7        092
 0x4851        083        1          7        083
index cfd3589f37ba3a26b856c67f16469c3b35283936..7a73863f7c6162bbd22f864df5d0ba9d6ecf8cf6 100644 (file)
@@ -1,9 +1,9 @@
 #Address  #   S/N   #   FPGA  #   Design  #  TRB  #
 ###################################################
-0x5000       0740        0           0       0
-0x5001       0741        1           0       0
-0x5002       0742        2           0       0
-0x5003       0743        3           0       0
+0x5000       0060        0           0       0
+0x5001       0061        1           0       0
+0x5002       0062        2           0       0
+0x5003       0063        3           0       0
 
 0x5010       1060        0           0       0
 0x5011       1061        1           0       0
index ac040dd0f62641fdde9281ba963cb3de5a0ab256..acef26cb8c1791cab1696923f4ea3a67d8123b07 100644 (file)
@@ -12,3 +12,8 @@
  1062   0xea000004fa000028
  1063   0xc7000004fa00c628
 
+ 0065   0xc4000003481ef228
+ 0060   0xb5000003482d3d28
+ 0061   0xd5000003481eef28
+ 0062   0xec00000348284328
+ 0063   0x34000003482d1c28
index f5abd782f1a728476b1b3df5f31a59046be5a9c1..157e7935042bedf44b338b3050e0064169adcf5e 100644 (file)
@@ -25,17 +25,17 @@ trbcmd w 0xfe4e 0xc804 0x00000080
 
 
 #Hodoscope inputs
- trbcmd w 0x5010 0xc802 0xffffffff # disable channel 0-31
- trbcmd w 0x5010 0xc803 0x00000000 # disable channel 32-63
- trbcmd w 0x5011 0xc802 0x00000000 # disable channel 0-31
- trbcmd w 0x5011 0xc803 0x00000000 # disable channel 32-63
- trbcmd w 0x5012 0xc802 0x000000c0 # disable channel 0-31
- trbcmd w 0x5012 0xc803 0x00000000 # disable channel 32-63
- trbcmd w 0x5013 0xc802 0xffffffff # disable channel 0-31
- trbcmd w 0x5013 0xc803 0x00000000 # disable channel 32-63
+# trbcmd w 0x5010 0xc802 0xffffffff # disable channel 0-31
+# trbcmd w 0x5010 0xc803 0x00000000 # disable channel 32-63
+# trbcmd w 0x5011 0xc802 0x00000000 # disable channel 0-31
+# trbcmd w 0x5011 0xc803 0x00000000 # disable channel 32-63
+# trbcmd w 0x5012 0xc802 0x000000c0 # disable channel 0-31
+# trbcmd w 0x5012 0xc803 0x00000000 # disable channel 32-63
+# trbcmd w 0x5013 0xc802 0xffffffff # disable channel 0-31
+# trbcmd w 0x5013 0xc803 0x00000000 # disable channel 32-63
 
 #Start inputs
- trbcmd w 0x5000 0xc802 0xfffcfcfc # disable channel 0-31
+# trbcmd w 0x5000 0xc802 0xfffcfcfc # disable channel 0-31
  trbcmd w 0x5000 0xc803 0x00000000 # disable channel 32-63
  trbcmd w 0x5001 0xc802 0x00000000 # disable channel 0-31
  trbcmd w 0x5001 0xc803 0x00000000 # disable channel 32-63
@@ -45,10 +45,10 @@ trbcmd w 0xfe4e 0xc804 0x00000080
  trbcmd w 0x5003 0xc803 0x00000000 # disable channel 32-63
 
 
- trbcmd w 0x5000 0xc802 0x00000000 # disable channel 32-63
- trbcmd w 0x5002 0xc802 0x00000000 # disable channel 32-63
- trbcmd w 0x5003 0xc802 0x00000000 # disable channel 32-63
-
+ trbcmd w 0x5000 0xc802 0xffffffff # eneable 32 channels in 0x5000
+ trbcmd w 0x5001 0xc802 0xffffffff # eneable 32 channels in 0x5001
+ trbcmd w 0x5002 0xc802 0xffffffff # eneable 32 channels in 0x5002
+ trbcmd w 0x5003 0xc802 0xffffffff # eneable 32 channels in 0x5003
 
 
 
@@ -56,16 +56,22 @@ trbcmd w 0xfe4e 0xc804 0x00000080
 trbcmd w 0x5000 0xcf00 0xfeee
 trbcmd w 0x5001 0xcf00 0x0000
 trbcmd w 0x5002 0xcf00 0xfeee
-trbcmd w 0x5003 0xcf00 0xfc1e
+trbcmd w 0x5003 0xcf00 0x7e1e
 trbcmd w 0x8880 0xcf00 0x1101   #Forward to CTS via central FPGA
 #Connected to second Start input on CTS
 
-trbcmd w 0x5010 0xcf00 0xffff
-trbcmd w 0x5011 0xcf00 0x0000
-trbcmd w 0x5012 0xcf00 0x0000
-trbcmd w 0x5013 0xcf00 0xffff
-trbcmd w 0x8890 0xcf00 0x1001   #Forward to CTS via central FPGA
+trbcmd w 0x5010 0xcf00 0x0055
+trbcmd w 0x5011 0xcf00 0x0055
+trbcmd w 0x5012 0xcf00 0x0055
+trbcmd w 0x5013 0xcf00 0x0055
+trbcmd w 0x5010 0xcf02 0x5500
+trbcmd w 0x5011 0xcf02 0x5500
+trbcmd w 0x5012 0xcf02 0x5500
+trbcmd w 0x5013 0xcf02 0x5500
 
+trbcmd w 0x8890 0xcf00 0x0000   #Forward to CTS via central FPGA
+trbcmd w 0x8890 0xcf25 0x1111
+trbcmd w 0x8890 0xcf26 0x2222
 
 
 #Input Monitor Settings
@@ -80,14 +86,19 @@ trbcmd w 0x5012 0xcf80 0x0008
 trbcmd w 0x5013 0xcf80 0xffff
 
 
-trbcmd clearbit 0x8880 0xc0 0x2
-trbcmd clearbit 0x8880 0xc1 0x2
-trbcmd clearbit 0x8880 0xc3 0x2
+#trbcmd clearbit 0x8880 0xc0 0x2
+#trbcmd clearbit 0x8880 0xc1 0x2
+#trbcmd clearbit 0x8880 0xc3 0x2
 
-trbcmd clearbit 0x8890 0xc0 0x2
-trbcmd clearbit 0x8890 0xc1 0x2
-trbcmd clearbit 0x8890 0xc3 0x2
+#trbcmd clearbit 0x8890 0xc0 0x0
+#trbcmd clearbit 0x8890 0xc1 0x0
+#trbcmd clearbit 0x8890 0xc3 0x0
 
+#invert inputs of slow channels
+exec_cmd{local} /home/hadaq/trbsoft/daqtools/tools/padiwa.pl 0x5010 0 invert 0xaaaa
+exec_cmd{local} /home/hadaq/trbsoft/daqtools/tools/padiwa.pl 0x5011 0 invert 0xaaaa
+exec_cmd{local} /home/hadaq/trbsoft/daqtools/tools/padiwa.pl 0x5012 0 invert 0xaaaa
+exec_cmd{local} /home/hadaq/trbsoft/daqtools/tools/padiwa.pl 0x5013 0 invert 0xaaaa
 
 exec_cmd{local} /home/hadaq/trbsoft/daqtools/tools/dac_program.pl ../start/ThreshPadiwaVeto.db       
 exec_cmd{local} /home/hadaq/trbsoft/daqtools/tools/dac_program.pl ../start/ThreshNinoStart.db
index ba4f9d518c7e5161596f0cfb96552a51650655f9..f7c879f82cc6a353afe08d3189e855ed47d27589 100755 (executable)
@@ -1,5 +1,9 @@
 #!/bin/bash
-find /store -mtime 0 -name \*$1\* -size +100c -printf %A@\\t%p\\n 2>/dev/null | sort | tail -n 20 | cut -f 2
+export num=$2
+#-mtime 0
+find /store -type f -regex .\*$1.\* -size +100c -printf %A@\\t%p\\t%s\\n  | sort | tail -n ${num:-20} | cut -f 2,3
+# JAM added type argument to suppress directories in list 11-06-2014
+#find /store -mtime 0 -name \*$1\* -size +100c -printf %A@\\t%p\\n 2>/dev/null | sort | tail -n 20 | cut -f 2
 
 
 #zsh
index 7c0ccd1cb1917c87bd423d8df13d74ee9e14396e..76916fdd0eee48cf47ddae7e8e19d90cc66ed357 100755 (executable)
@@ -1,8 +1,9 @@
 #!/bin/bash
 # JAM moved actual setting of interrupt affinities to scripts on target machines
-ssh root@lxhadeb02p '/root/bin/set_eth_affinity.sh'
-ssh root@lxhadeb03p '/root/bin/set_eth_affinity.sh'
-ssh root@lxhadeb04p '/root/bin/set_eth_affinity.sh'
+#ssh root@lxhadeb02p '/usr/bin/perl -w /root/bin/set_eth_affinity_lxhadeb02.pl'
+#ssh root@lxhadeb03p '/usr/bin/perl -w /root/bin/set_eth_affinity_lxhadeb03.pl'
+#ssh root@lxhadeb04p '/usr/bin/perl -w /root/bin/set_eth_affinity_lxhadeb04.pl'
+echo use default eth interrupt affinities on lxhadeb02-lxhadeb04
 ssh root@lxhadeb05p '/usr/bin/perl -w /root/bin/set_eth_affinity_lxhadeb05.pl'
 
 #ssh root@lxhadeb05 '/root/bin/set_eth_affinity_lxhadeb05.sh'