]> jspc29.x-matter.uni-frankfurt.de Git - hadesdaq.git/commitdiff
updates of control GUI
authorHades DAQ <jan@lxhadeb07>
Tue, 12 Mar 2019 12:30:15 +0000 (13:30 +0100)
committerHades DAQ <jan@lxhadeb07>
Tue, 12 Mar 2019 12:30:15 +0000 (13:30 +0100)
103 files changed:
control/gui/50_Reboot_TRB3 [new file with mode: 0644]
control/gui/Buttons2.pm
control/gui/daq/20_Reprogram_FPGA
control/gui/daq/30_Reboot_OEP
control/gui/daq/35_Reboot_MDCHub
control/gui/daq/40_ReSync_Missing_OEP
control/gui/daq/41_Resync_DiRich [new file with mode: 0755]
control/gui/daq/50_Reboot_CentralHubs [new file with mode: 0755]
control/gui/daq/50_Reboot_Dirich [new file with mode: 0755]
control/gui/daq/50_Reboot_Ecal [new file with mode: 0755]
control/gui/daq/50_Reboot_RICH_Hubs [new file with mode: 0755]
control/gui/daq/50_Reboot_Rich_Combiner [new file with mode: 0755]
control/gui/daq/50_Reboot_TRB3 [deleted file]
control/gui/eb/27_Start_TDC_CAL
control/gui/eb/28_Stop_TDC_CAL
control/gui/eb/29_BEAM_Files
control/gui/eb/50_COSMICS_Files
control/gui/eb/52_TEST_File
control/gui/eb/55_NO_FILE
control/gui/eb/60_Restart_EB
control/gui/eb/65_____Stop_EB
control/gui/eb/70_Set_1_EB
control/gui/eb/73_Set_4_EB
control/gui/eb/75_Set_8_EB
control/gui/eb/76_Set_12_EB
control/gui/expert/90_MDC_HighVoltageRamp
control/gui/expert/BLR_Reinit_FPGA
control/gui/expert/MDC_LV_Turn_On_ALL_Relais
control/gui/expert/Nxyter_Rescue
control/gui/expert/Reload_RICH
control/gui/expert/Reload_RPC_Thresholds
control/gui/expert/Restart_BNET_Control
control/gui/expert/Restart_Hmon
control/gui/expert/Restart_Rawdata_Mon
control/gui/expert/Restart_Sequencer
control/gui/expert/Set_ECAL_Thr [new file with mode: 0755]
control/gui/expert/Set_RICH_HV
control/gui/expert/Set_RICH_Thr
control/gui/expert/Start_Speech_Output
control/gui/expert/Stop_Speech_Output
control/gui/monitor/10_CTS_Mon
control/gui/monitor/20_Hmon
control/gui/monitor/40_BNET
control/gui/monitor/80_Daq_VNC
control/gui/monitor/91_Hmon_Snaphot [new file with mode: 0755]
control/gui/power/00_Powercycle_all
control/gui/power/10_RICH_Powercycle
control/gui/power/20_ECAL_RPC_48V_Powercycle [new file with mode: 0755]
control/gui/power/21_ECAL_Padiwa_Powercycle [new file with mode: 0755]
control/gui/power/22_ECAL_Rack_Powercycle [new file with mode: 0755]
control/gui/power/40_Start_Powercycle
control/gui/power/50_MdcTofCentral_Powercycle [new file with mode: 0755]
control/gui/power/90_HUBS_Powercycle
control/gui/power/MDC_LV_Powercycle
control/gui/power/RPC_special_PwrCyc
control/mdcHVgui/Buttons2.pm
control/mdcHVgui/S1/Plane_1
control/mdcHVgui/S1/Plane_2
control/mdcHVgui/S1/Plane_3
control/mdcHVgui/S1/Plane_4
control/mdcHVgui/S2/Plane_1
control/mdcHVgui/S2/Plane_2
control/mdcHVgui/S2/Plane_3
control/mdcHVgui/S2/Plane_4
control/mdcHVgui/S3/Plane_1
control/mdcHVgui/S3/Plane_2
control/mdcHVgui/S3/Plane_3
control/mdcHVgui/S3/Plane_4
control/mdcHVgui/S4/Plane_1
control/mdcHVgui/S4/Plane_2
control/mdcHVgui/S4/Plane_3
control/mdcHVgui/S4/Plane_4
control/mdcHVgui/S5/Plane_1
control/mdcHVgui/S5/Plane_2
control/mdcHVgui/S5/Plane_3
control/mdcHVgui/S5/Plane_4
control/mdcHVgui/S6/Plane_1
control/mdcHVgui/S6/Plane_2
control/mdcHVgui/S6/Plane_3
control/mdcHVgui/S6/Plane_4
control/mdcLVgui/Buttons2.pm
control/mdcLVgui/S0/200x
control/qa/Buttons2.pm
control/qa/QA/10_Start_OnlineQA.png [new file with mode: 0644]
control/qa/QA/11_Stop_OnlineQA [new file with mode: 0755]
control/qa/QA/11_Stop_OnlineQA.png [new file with mode: 0644]
control/qa/QA/15_Vertex_Reconstruction.png [new file with mode: 0644]
control/qa/QA/screenshot_QHF_1.png [new file with mode: 0644]
control/qa/call_programs_local.sh
control/qa/call_programs_wrapper.sh
utils/ECAL_5V_Entrance_Powercycle.sh [new file with mode: 0755]
utils/ECAL_LV5_Powercycle.sh [new file with mode: 0755]
utils/ECAL_Powercycle.pl [new file with mode: 0755]
utils/HMP_Powersupply.pl [new file with mode: 0755]
utils/HUB_Powercycle.pl [new file with mode: 0755]
utils/MdcTofCentral_Powercycle.pl [new file with mode: 0755]
utils/RICH_Fan_Powercycle.sh [new file with mode: 0755]
utils/RICH_HV_Switch.sh [new file with mode: 0755]
utils/RICH_Powercycle.pl [new file with mode: 0755]
utils/RICH_Thr_Call.sh [new file with mode: 0755]
utils/control_gui_logger.sh [new file with mode: 0755]
utils/mdc_lv.pl [new file with mode: 0755]
utils/odroid_HMP_Powercycle.sh [new file with mode: 0755]

diff --git a/control/gui/50_Reboot_TRB3 b/control/gui/50_Reboot_TRB3
new file mode 100644 (file)
index 0000000..47c1ce7
--- /dev/null
@@ -0,0 +1,18 @@
+#!/bin/bash
+
+export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "reboot the TRB3s in the system")
+if [ $myvar == "256" ]; then exit; fi
+
+notifyall.sh "DAQ" "<I> The TRB3 in the system are going to be rebooted." "STARTUP" &
+
+
+xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
+  ssh hadaq@lxhadesdaqp "
+  source /home/hadaq/.bash_profile
+  ~/trbsoft/hadesdaq/nettools/reboot_TRB3.pl
+  sleep 10
+  "
+'
+
+notifyall.sh "DAQ" "<I> The TRB3 in the system are going to be rebooted." "STARTUP" &
+
index c6c839a1408f1c3aca0d3fcce37f6b53b3074c47..4ced96a2d84e7411b5c2c6e8958f0963a8affb86 100644 (file)
@@ -373,7 +373,7 @@ sub make_subroutine {
     # make subroutines
     #sub slot0Pressed { my $c = buttons->[0]; $c = "cd ../control; ./$c"; print "will execute: $c\n"; qx($c); }
 
-    my $str = qq|sub slot| . $i . qq|Pressed { my \$c = this->{self}->{ra_buttons}->[$i]; \$c = "cd $dir; control_gui_logger.sh \$c; ./\$c &"; print "will execute: \$c\n"; system(\$c); }|;
+    my $str = qq|sub slot| . $i . qq|Pressed { my \$s = this->{self}->{ra_buttons}->[$i]; my \$str = "\$dir/\$s"; my \$c = "cd \$dir; control_gui_logger.sh CONTROL \$str; ./\$s &"; print "will execute: \$c\n"; system(\$c); }|;
 #    my $str = qq|sub slot| . $i . qq|Pressed { print "$i pressed\n"; }|;
 #system(\$c); }|;
     #print "sub: $str\n";
index 0fb05bcd2193add9e641b65b86f34798fcbc8da9..fba434fbe19b43b98e091c47ed2d89e1937285eb 100755 (executable)
@@ -1,6 +1,6 @@
 #!/bin/bash
 
-export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl " reprogramm the FPGAs")
+export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "reprogramm the FPGAs")
 
 if [ $myvar == "256" ]; then exit; fi
 
@@ -12,9 +12,9 @@ xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
   ssh -X hadaq@lxhadesdaqp "
   cd ~/trbsoft/hadesdaq/main/
   ./startup.pl -f main_hades.script -o file  -m TOF -m RPC -m WALL -m RICH -m STARTCTS -m MDC -m MDCDATASET --eb off
-  echo \"First config run\"
-  bash startup_briccolage.sh
-"
+  #echo \"First config run\"
+  #bash startup_briccolage.sh
+  "
 '
 notifyall.sh "DAQ" "<I> FPGA have been programmed and DAQ is started." "STARTUP" &
 
index 6a1ec2ca5ba8669642976e78f59ea3e485d7297a..1ab4e9e7a5d488d2ca8e1fe7e2dbfba1d6809c96 100755 (executable)
@@ -3,11 +3,11 @@
 export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl " reboot the MDC-OEPs")
 if [ $myvar == "256" ]; then exit; fi
 
+notifyall.sh "DAQ" "<I> OEPs are going to be rebooted." "STARTUP" &
+
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-ssh hadaq@lxhadesdaqp "
-~/bin/rebootoep_x11.sh
-sleep 2
-"
+  ~/bin/rebootoep_x11.sh
+  sleep 2
 '
 
 notifyall.sh "DAQ" "<I> OEPs rebooted" "MDC"&
index cb5b1f9370b747803656bdca1a3334b44ec96108..7c20ef35216f26b2f7951522c26bb06d799d84eb 100755 (executable)
@@ -7,11 +7,13 @@
 export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl " reboot the MDC-Hubs")
 if [ $myvar == "256" ]; then exit; fi
 
+notifyall.sh "DAQ" "<I> MDC-Hubs are going to be rebooted." "STARTUP" &
+
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
   trbcmd reset
   trbcmd reload 0xfe11
+  sleep 8
 '
 
-sleep 8;
-notifyall.sh "DAQ" "<I> MDC-Hubs rebooted" "MDC"&
+notifyall.sh "DAQ" "<I> MDC-Hubs rebooted" "MDC" &
 
index cc2c59a407efd6c5430c9c6e9ddb76483fc43589..e58656e7b808dcd895c9c2483b30d8d18c6b3a34 100755 (executable)
@@ -1,8 +1,8 @@
 #!/bin/bash
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-ssh hadaq@lxhadesdaqp "
-echo "reviveoep.pl"
-reviveoep.pl
-sleep 10
-"
+  ssh hadaq@lxhadesdaqp "
+  echo "reviveoep.pl"
+  reviveoep.pl
+  sleep 10
+  "
 '
diff --git a/control/gui/daq/41_Resync_DiRich b/control/gui/daq/41_Resync_DiRich
new file mode 100755 (executable)
index 0000000..f6d0d8c
--- /dev/null
@@ -0,0 +1,8 @@
+#!/bin/bash
+xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
+  ssh hadaq@lxhadesdaqp "
+  echo "revivedirich.pl"
+  revivedirich.pl
+  sleep 10
+  "
+'
diff --git a/control/gui/daq/50_Reboot_CentralHubs b/control/gui/daq/50_Reboot_CentralHubs
new file mode 100755 (executable)
index 0000000..33d2bff
--- /dev/null
@@ -0,0 +1,19 @@
+#!/bin/bash
+
+export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "reboot the TRB3s in the system")
+if [ $myvar == "256" ]; then exit; fi
+
+notifyall.sh "DAQ" "<I> The TRB3 in the system are going to be rebooted." "STARTUP" &
+
+
+xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
+  ssh hadaq@lxhadesdaqp "
+  source /home/hadaq/.bash_profile
+  trbcmd reload 0xfe65
+  trbcmd reload 0x8000
+  sleep 10
+  "
+'
+
+notifyall.sh "DAQ" "<I> The Central Hubs are going to be rebooted." "STARTUP" &
+
diff --git a/control/gui/daq/50_Reboot_Dirich b/control/gui/daq/50_Reboot_Dirich
new file mode 100755 (executable)
index 0000000..dd899c1
--- /dev/null
@@ -0,0 +1,18 @@
+#!/bin/bash
+
+export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "reboot the TRB3s in the system")
+if [ $myvar == "256" ]; then exit; fi
+
+#notifyall.sh "DAQ" "<I> The TRB3 in the system are going to be rebooted." "STARTUP" &
+notifyall.sh "DAQ" "<I> The DiRich are going to be rebooted." "STARTUP" &
+
+
+xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
+  ssh hadaq@lxhadesdaqp "
+  source /home/hadaq/.bash_profile
+  trbcmd reload 0xfe51
+  sleep 10
+  "
+'
+
+
diff --git a/control/gui/daq/50_Reboot_Ecal b/control/gui/daq/50_Reboot_Ecal
new file mode 100755 (executable)
index 0000000..a112eae
--- /dev/null
@@ -0,0 +1,19 @@
+#!/bin/bash
+
+export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "reboot the TRB3s in the system")
+if [ $myvar == "256" ]; then exit; fi
+
+notifyall.sh "DAQ" "<I> The TRB3 in the system are going to be rebooted." "STARTUP" &
+
+
+xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
+  ssh hadaq@lxhadesdaqp "
+  source /home/hadaq/.bash_profile
+  trbcmd reload 0xfe71
+  trbcmd reload 0xfe61
+  sleep 10
+  "
+'
+
+notifyall.sh "DAQ" "<I> The ECal TRB3sc are going to be rebooted." "STARTUP" &
+
diff --git a/control/gui/daq/50_Reboot_RICH_Hubs b/control/gui/daq/50_Reboot_RICH_Hubs
new file mode 100755 (executable)
index 0000000..b91ae1e
--- /dev/null
@@ -0,0 +1,17 @@
+#!/bin/bash
+
+export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "reboot the TRB3s in the system")
+if [ $myvar == "256" ]; then exit; fi
+
+notifyall.sh "DAQ" "<I> The TRB3 in the system are going to be rebooted." "STARTUP" &
+
+
+xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
+  ssh hadaq@lxhadesdaqp "
+  source /home/hadaq/.bash_profile
+  trbcmd reload 0xfe66
+  sleep 10
+  "
+'
+
+notifyall.sh "DAQ" "<I> The RICH Hubs are going to be rebooted." "STARTUP" &
diff --git a/control/gui/daq/50_Reboot_Rich_Combiner b/control/gui/daq/50_Reboot_Rich_Combiner
new file mode 100755 (executable)
index 0000000..6fe9c25
--- /dev/null
@@ -0,0 +1,18 @@
+#!/bin/bash
+
+export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "reboot the TRB3s in the system")
+if [ $myvar == "256" ]; then exit; fi
+
+#notifyall.sh "DAQ" "<I> The TRB3 in the system are going to be rebooted." "STARTUP" &
+notifyall.sh "DAQ" "<I> The Rich Combiner are going to be rebooted." "STARTUP" &
+
+
+xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
+  ssh hadaq@lxhadesdaqp "
+  source /home/hadaq/.bash_profile
+  trbcmd reload 0xfe52
+  sleep 10
+  "
+'
+
+
diff --git a/control/gui/daq/50_Reboot_TRB3 b/control/gui/daq/50_Reboot_TRB3
deleted file mode 100755 (executable)
index c98ab9d..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/usr/bin/perl
-
-use warnings;
-use HADES::TrbNet;
-
-$ENV{'DAQOPSERVER'} = "hadesp31";
-trb_init_ports() or die "could not reach trbnet-daemon.", trb_strerror();
-
-#system("trbcmd i 0xffff");
-#exit;
-
-system("trbcmd reload 0xfe49");
-
-system("trbcmd reload 0x8880");
-system("trbcmd reload 0x8890");
-system("trbcmd reload 0x8900");
-system("trbcmd reload 0x8910");
-  
index ec01ccea744531f5635da8d97979e5a0fcd41e9b..5bc360449d8e15997d426fd2fd4387e0d3f576d1 100755 (executable)
@@ -1,15 +1,18 @@
 #!/bin/bash
 # 100Hz -> 2e6 pulservalue = 0x1E8480
 
-export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "start the TDC calibration")
-if [ $myvar == "256" ]; then exit; fi                            
+export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "start the TDC calibration process")
+if [ $myvar == "256" ]; then exit; fi
+
+notifyall.sh "DAQ" "<I> TDC-Calibration process on eventbuilders started." "STARTUP" &
+
 
-/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> TDC calibration is starting." "EB" &
 
 xterm -geometry 80x24 -bg orange -fg black -e bash -c '
-   /home/hadaq/trbsoft/hadesdaq/evtbuild/tdc_calib_start.sh
-   sleep 20 
+  ssh hadaq@lxhadesdaqp "
+  /home/hadaq/trbsoft/hadesdaq/evtbuild/tdc_calib_start.sh
+  "
 '
 
-/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have started the calibration procedure." "EB" &
+/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have started TDC-Calibration procedure." "EB" &
 
index 2d5bd9f100cb636634c4faa9ce9ec0d6c197c7b1..694a6a7c943044ee830fac6ceceaec82d18d4a40 100755 (executable)
@@ -1,14 +1,16 @@
 #!/bin/bash
 
-export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "stop the TDC calibration")
-if [ $myvar == "256" ]; then exit; fi                            
+export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "stop the TDC calibration process")
+if [ $myvar == "256" ]; then exit; fi
 
-/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> TDC calibration is stopping." "EB" &
+notifyall.sh "DAQ" "<I> TDC-Calibration process on eventbuilders is going to be stopped." "STARTUP" &
 
- xterm -geometry 80x24 -bg orange -fg black -e bash -c '
- /home/hadaq/trbsoft/hadesdaq/evtbuild/tdc_calib_stop.sh
- sleep 30;
- '
-
-/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have stopped the TDC-Calibration procedure." "EB" &
+xterm -geometry 80x24 -bg orange -fg black -e bash -c '
+  ssh hadaq@lxhadesdaqp "
+  /home/hadaq/trbsoft/hadesdaq/evtbuild/tdc_calib_stop.sh
+  sleep 30;
+   "
+'
+  
+/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have stopped TDC-Calibration procedure." "EB" &
 
index 22a3f40ef34299bc49b0b426b4c82891d7a7be20..05183e64da87d51f302cc4e0d5982ec9c102b4c4 100755 (executable)
 #   '
 #  "
 
-export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "start the TDC calibration")
+export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "change the EBs to Beam Files")
 if [ $myvar == "256" ]; then exit; fi                            
 
-$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> TDC calibration is starting." "EB" &
+$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> EBs are going to be changed to write beam files." "EB" &
 
 
- xterm -geometry 80x24 -bg orange -fg black -e bash -c '
-   echo "Setting file prefix be"
-   /usr/bin/wget  -a /tmp/EB_filestart.log -O /tmp/EB_fileres.txt \"http://lxhadeb07:8099/Master/BNET/StartRun/execute?prefix=be&oninit=10\"
-   echo set prefix te on BNET master controller
-   sleep 2 
-   '
+xterm -geometry 80x24 -bg orange -fg black -e bash -c '
+  ssh -X hadaq@lxhadesdaqp "
+  echo "Setting file prefix be"
+  /usr/bin/wget  -a /tmp/EB_filestart.log -O /tmp/EB_fileres.txt \"http://lxhadeb07:8099/Master/BNET/StartRun/execute?prefix=be&oninit=10\"
+  echo set prefix te on BNET master controller
+  sleep 2 
+  "
+'
 $HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders are writing beam files." "EB" &
 
 
index 84fb1a81f2871a057425ba5ced2cb7e84f24c2b4..1e2a6b3d9339245993adbce040719471a3dfa6da 100755 (executable)
 #  "
 #/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have been started. Writing Cosmics Files" "EB" &
 
-ssh -X hadaq@lxhadesdaq "
- xterm -geometry 80x24 -bg orange -fg black -e bash -c '
+export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "change the EBs to Cosmic Files")
+if [ $myvar == "256" ]; then exit; fi                            
+
+$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> EBs are going to be changed to write cosmic files." "EB" &
+
+xterm -geometry 80x24 -bg orange -fg black -e bash -c '
+   ssh -X hadaq@lxhadesdaqp "
    echo "Setting file prefix co"
    /usr/bin/wget  -a /tmp/EB_filestart.log -O /tmp/EB_fileres.txt \"http://lxhadeb07:8099/Master/BNET/StartRun/execute?prefix=co&oninit=10\"
    echo set prefix te on BNET master controller
    sleep 2 
-   '
   "
-/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders are writing Cosmics Files." "EB" &
+'
+ $HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders are writing Cosmics Files." "EB" &
 
index c8fbd437530e3d85904edddbe1790272d440b29e..5f1dd292a5bf320e0289e6d7b37aec6c5c4eba8e 100755 (executable)
 # 
 # /home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have been started. Writing test files" "EB" &
 
-ssh -X hadaq@lxhadesdaq "
- xterm -geometry 80x24 -bg orange -fg black -e bash -c '
-   echo "Setting file prefix te"
-   /usr/bin/wget  -a /tmp/EB_filestart.log -O /tmp/EB_fileres.txt \"http://lxhadeb07:8099/Master/BNET/StartRun/execute?prefix=te&oninit=10\"
-   echo set prefix te on BNET master controller
-   sleep 2 
-   '
+export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "change the EBs to Test Files")
+if [ $myvar == "256" ]; then exit; fi                            
+
+$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> EBs are going to be changed to write test files." "EB" &
+
+xterm -geometry 80x24 -bg orange -fg black -e bash -c '
+  ssh -X hadaq@lxhadesdaqp "
+  echo "Setting file prefix te"
+  /usr/bin/wget  -a /tmp/EB_filestart.log -O /tmp/EB_fileres.txt \"http://lxhadeb07:8099/Master/BNET/StartRun/execute?prefix=te&oninit=10\"
+  echo set prefix te on BNET master controller
+  sleep 2 
   "
-/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders are writing test files." "EB" &
+'
+$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders are writing test files." "EB" &
 
index ed22b3cbf1132bd0e82cb7e71c0859540654aef2..76ac5215e4857a1b1d2cda50f0a58c5577930cb1 100755 (executable)
 # "
 # /home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have been started. NO FILES are being written" "EB" &
 
-ssh -X hadaq@lxhadesdaq "
- xterm -geometry 80x24 -bg orange -fg black -e bash -c '
+export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "change the EBs to \"No-Files\"")
+if [ $myvar == "256" ]; then exit; fi                            
+
+$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> EBs are going to be changed to write no files." "EB" &
+
+ssh -X hadaq@lxhadesdaq " xterm -geometry 80x24 -bg orange -fg black -e bash -c '
    echo "Setting file prefix --n NO FILES"
    /usr/bin/wget  -a /tmp/EB_filestart.log -O /tmp/EB_fileres.txt \"http://lxhadeb07:8099/Master/BNET/StartRun/execute?prefix='--'&oninit=10\"
    echo set prefix -- on BNET master controller
    sleep 2 
  '
-  "
-/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders are writing NO FILES." "EB" &
+ '
+"
+$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders are writing NO FILES." "EB" &
 
index 30de264bde8adc813a7b139b715ef6af0713f249..6b2b0b2f3c88bffbcf910987c119e55e09a50595 100755 (executable)
@@ -3,10 +3,10 @@
 export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "restart the Eventbuilders")
 if [ $myvar == "256" ]; then exit; fi                            
 
-/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders are being restarted." "EB" &
+$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders are being restarted." "EB" &
 
 xterm -geometry 80x24 -bg orange -fg black -e bash -c '
-ssh -X hadaq@lxhadesdaq "
+  ssh hadaq@lxhadesdaqp "
   echo \"Restarting Eventbuilder 1 - 16\"
   stoptrigger.sh
   cd ~/trbsoft/hadesdaq/evtbuild/
@@ -15,5 +15,5 @@ ssh -X hadaq@lxhadesdaq "
   "
 '
 
-/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have been restarted with last prefix" "EB" &
+$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have been restarted with last prefix" "EB" &
 
index 4846ee73f122278f277b89747a3d4523cc306f55..013c3b448748bd6686628930909179fe56c1af08 100755 (executable)
@@ -2,11 +2,19 @@
 
 # notifyall.sh "DAQ" "<I> Eventbuilders are being stopped." "EB" &
 
-ssh -X hadaq@lxhadesdaq "
- xterm -geometry 80x24 -bg orange -fg black -e bash -c '
+export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "stop the Eventbuilders")
+if [ $myvar == "256" ]; then exit; fi                            
+
+$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders are being stopped." "EB" &
+
+
+
+xterm -geometry 80x24 -bg orange -fg black -e bash -c '
+  ssh -X hadaq@lxhadesdaqp "
   echo "Stopping Eventbuilder 1 - 16"
   cd ~/trbsoft/hadesdaq/evtbuild/
   ./start_eb_gbe.pl -e stop -n 1-16
-  '
- "
-/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have been stopped" "EB" &
+  "
+'
+
+$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have been stopped" "EB" &
index 5fcabfe61c570b6a437ac339f2db525512c96baf..ae1fec6f90e5675a713ad46c183a5b2a2c7964a2 100755 (executable)
@@ -2,14 +2,21 @@
 
 # notifyall.sh "DAQ" "<I> Eventbuilders are being restarted." "EB" &
 
-ssh -X hadaq@lxhadesdaq "
- xterm -geometry 80x24 -bg orange -fg black -e bash -c '
+export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "restart the EBs with 1 builder node")
+if [ $myvar == "256" ]; then exit; fi                            
+
+$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders are being started with only one builder node." "EB" &
+
+
+
+xterm -geometry 80x24 -bg orange -fg black -e bash -c '
+  ssh -X hadaq@lxhadesdaqp "
   echo "Starting Eventbuilders  with one BNET builder node"
   cd ~/trbsoft/hadesdaq/evtbuild/
   ./start_eb_gbe.pl -e restart -n 1-16  -d on -p te -b 1
   sleep 2
- '
  "
+'
 
-/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have been restarted using 1 BNET builder node" "EB" &
+$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have been restarted using 1 BNET builder node" "EB" &
 
index 295b438e579af0e90fe5d9e3d733299ceca910d0..bdad11f0e836a70ea75fe3543f24332fa9c38a24 100755 (executable)
@@ -2,14 +2,19 @@
 
 # notifyall.sh "DAQ" "<I> Eventbuilders are being restarted." "EB" &
 
-ssh -X hadaq@lxhadesdaq "
- xterm -geometry 80x24 -bg orange -fg black -e bash -c '
+export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "restart the EBs with 4 builder nodes")
+if [ $myvar == "256" ]; then exit; fi                            
+
+$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders are being started with 4 builder nodes." "EB" &
+
+xterm -geometry 80x24 -bg orange -fg black -e bash -c '
+  ssh -X hadaq@lxhadesdaqp "
   echo "Starting Eventbuilders  with 4 BNET builder nodes"
   cd ~/trbsoft/hadesdaq/evtbuild/
   ./start_eb_gbe.pl -e restart -n 1-16  -d on -p te -b 4
   sleep 2
- '
  "
+'
 
-/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have been restarted using 4 BNET builder nodes" "EB" &
+$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have been restarted using 4 BNET builder nodes" "EB" &
 
index 20a8104e3b2256c568cbc8fa5d7a70ccd3ccc1bd..8176a47f8f309b38c5a7fc7c0fc5f08df95612b2 100755 (executable)
@@ -2,14 +2,19 @@
 
 # notifyall.sh "DAQ" "<I> Eventbuilders are being restarted." "EB" &
 
-ssh -X hadaq@lxhadesdaq "
- xterm -geometry 80x24 -bg orange -fg black -e bash -c '
+export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "restart the EBs with 8 builder nodes")
+if [ $myvar == "256" ]; then exit; fi                            
+
+$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders are being started with 8 builder nodes." "EB" &
+
+xterm -geometry 80x24 -bg orange -fg black -e bash -c '
+  ssh -X hadaq@lxhadesdaqp "
   echo "Starting Eventbuilders  with 8 BNET builder nodes"
   cd ~/trbsoft/hadesdaq/evtbuild/
   ./start_eb_gbe.pl -e restart -n 1-16  -d on -p te -b 8
   sleep 2
- '
  "
+'
 
-/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have been restarted using 8 BNET builder nodes" "EB" &
+$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have been restarted using 8 BNET builder nodes" "EB" &
 
index a8440bf89b9dfffe632392e392ee81293312c3be..c3de4cf5b1e0bf338edc48dfcce4668172db9fe6 100755 (executable)
@@ -2,14 +2,20 @@
 
 # notifyall.sh "DAQ" "<I> Eventbuilders are being restarted." "EB" &
 
-ssh -X hadaq@lxhadesdaq "
- xterm -geometry 80x24 -bg orange -fg black -e bash -c '
+export myvar=$(/home/hadaq/trbsoft/hadesdaq/utils/doyoureallywant.pl "restart the EBs with 12 builder nodes")
+if [ $myvar == "256" ]; then exit; fi                            
+
+$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders are being started with 12 builder nodes." "EB" &
+
+
+xterm -geometry 80x24 -bg orange -fg black -e bash -c '
+  ssh -X hadaq@lxhadesdaqp "
   echo "Starting Eventbuilders  with 12 BNET builder nodes"
   cd ~/trbsoft/hadesdaq/evtbuild/
   ./start_eb_gbe.pl -e restart -n 1-16  -d on -p te -b 12
   sleep 2
- '
  "
+'
 
-/home/hadaq/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have been restarted using 12 BNET builder nodes" "EB" &
+$HOME/trbsoft/hadesdaq/utils/notifyall.sh "DAQ" "<I> Eventbuilders have been restarted using 12 BNET builder nodes" "EB" &
 
index e607ec19ec4bc119f1b0d03c84c2e9723b813a28..94134c32f9f188ef2fd9d5d3b1e911465ced6552 100755 (executable)
@@ -3,5 +3,5 @@ export myvar=$(doyoureallywant.pl "to RAMP DOWN High Voltage!")
 if [ $myvar == "256" ]; then exit; fi
 
 cd /home/hadaq/trbsoft/hadesdaq/control/mdcHVgui/
-/home/hadaq/trbsoft/hadesdaq/control/mdcHVgui/call_programs2.pl
+PERLLIB=. $HOME/trbsoft/hadesdaq/control/mdcHVgui/call_programs2.pl
 
index 9ea919b9aa1203e42cb8f5bb6ebfb1b500e5ca77..4dda2233e214ca620a36b1b2e80906efaa2c47c0 100755 (executable)
@@ -4,11 +4,11 @@ export myvar=$(doyoureallywant.pl "to reprogram the BLR-FPGA \(should not have a
 if [ $myvar == "256" ]; then exit; fi
 
 xterm  -geometry 80x24 -bg orange -fg black -e bash -c '
-echo "reinit FPGA"
-command_client.pl -e etraxp107 -c "jam_trbv2 --trb -aRUN_XILINX_PROC /home/hadaq/rpc/fpga/20110301_rpc_a.stapl"
-sleep 1
-echo "reload the BLR settings"
-command_client.pl -e etraxp107 -c "spi_trbv2_7 /home/hadaq/cts/mult_thresholds/ctsblr_thresholds"
-sleep 4
+       echo "reinit FPGA"
+       command_client.pl -e etraxp107 -c "jam_trbv2 --trb -aRUN_XILINX_PROC /home/hadaq/rpc/fpga/20110301_rpc_a.stapl"
+       sleep 1
+       echo "reload the BLR settings"
+       command_client.pl -e etraxp107 -c "spi_trbv2_7 /home/hadaq/cts/mult_thresholds/ctsblr_thresholds"
+       sleep 4
 '
 
index 0859841394f45ba500e387b5dc112bd78f79b24b..77c2b14820bfeb3a37eb48763e3563ce12ae7571 100755 (executable)
@@ -1,5 +1,7 @@
 #!/bin/bash
+
 xterm -e 'echo "Enabling the MDC-LV-Relais. Wait 4 Seconds..."; sleep 4' &
+
 ~/bin/command_client.pl -e etraxp204 -c "/home/hadaq/bin/writetty.sh 'OWDS 0'"
 sleep 2
 ~/bin/command_client.pl -e etraxp204 -c "/home/hadaq/bin/writetty.sh 'OWDS 0'"
index 96541f20f8c8d3de0cab3a214cc8a860de48ddee..32b0c463bd42f6b090bde1840bc0671734eb386c 100755 (executable)
@@ -1,8 +1,9 @@
 #!/bin/bash
+
 xterm -geometry 80x24 -bg orange -fg black -e bash -c "
-echo -e '\033[1mNxyter Rescue Script called\n\n'
-/home/hadaq/trbsoft/daq/pion/tools/Nxyter_Rescue.pl
-sleep 30
-echo -e '\n\n\nDone'
-sleep 5
+      echo -e '\033[1mNxyter Rescue Script called\n\n'
+      /home/hadaq/trbsoft/daq/pion/tools/Nxyter_Rescue.pl
+      sleep 30
+      echo -e '\n\n\nDone'
+      sleep 5
 "
index df1f52fb4843028f4a11d001efb44fdbfaa161d3..2f087fb326699c395a698d37c06817f70f861fdf 100755 (executable)
@@ -2,7 +2,14 @@
 export myvar=$(doyoureallywant.pl "to Reload the RICH?")
 if [ $myvar == "256" ]; then exit; fi
 
+notifyall.sh "DAQ" "<I> RICH FPGAs are going to be reloaded." "STARTUP" &
+
+
 export DAQOPSERVER=hadesp31
+
 trbcmd reload 0xfe51
 trbcmd reload 0xfe52
 
+sleep 2
+
+notifyall.sh "DAQ" "<I> RICH FPGAs have been reloaded." "STARTUP" &
index 65390dee55f27a851eadb40f2e3bd729d3b4c784..f41d2fdd7b23f8dcc0c77f5aca783597c40ab899 100755 (executable)
@@ -1,14 +1,12 @@
 #!/bin/bash
 
 
-
-ssh -X lxhadesdaq "
 xterm -geometry 80x24 -bg orange -fg black -e bash -c '
   echo Reloading RPC thresholds
-  cd /home/hadaq/rpc/utilities/
+  cd /home/hadaq/trbsoft/hadesdaq/rpc/utilities/
   ./setTriggerBoardSX.sh
   ./setThresholdsAll.sh
   sleep 5
 '
-"
-notifyall.sh "DAQ" "<I> RPC-Thresholds have been reloaded." "RPC" &
\ No newline at end of file
+
+notifyall.sh "DAQ" "<I> RPC-Thresholds have been reloaded." "RPC" &
index 282f5a3d7916f5ff0ba5a91b1726515bb5b926dd..a19d7ff6205a49245beee32f7cdaed79ef0d16ce 100755 (executable)
@@ -3,7 +3,15 @@
 #lxhadeb07 140.181.80.125
 # lxhadeb 08 (140.181.80.62
 #xterm -geometry 80x24 -bg orange -fg black -e bash -c ' ssh hadaq@140.181.91.154 "/home/hadaq/bin/restart_bnetmaster.sh ; echo closing window in 5 secs...; sleep 5" '
-xterm -geometry 80x24 -bg orange -fg black -e bash -c ' ssh hadaq@140.181.80.125 "/home/hadaq/bin/restart_bnetmaster.sh ; echo closing window in 5 secs...; sleep 5" '
+
+
+xterm -geometry 80x24 -bg orange -fg black -e bash -c ' 
+      ssh hadaq@lxhadeb07p "
+      /home/hadaq/bin/restart_bnetmaster.sh
+      echo closing window in 5 secs...
+      sleep 5
+      " 
+'
 
 
 
index e20d5ca90c2ec868ed724abf80a2f276a2875cea..8be126f3fbd01e765be0dd7f8e58e995e7109d67 100755 (executable)
@@ -8,8 +8,8 @@ xterm -geometry 80x24 -bg orange -fg black -e bash -c '
   ./start.sh #1>/dev/null 2>/dev/null
   echo "Hmon has been restarted"
   sleep 5
- "
-  '
 "
+'
 
 
 
index cfc8977eece04008f78c8e90463196776cbc412d..db29d8ce4e9aafceaaff6acacb851a2fafbb948f 100755 (executable)
@@ -5,7 +5,14 @@
 # below for lxhadeb13, given back to Jochen
 #xterm -geometry 80x24 -bg orange -fg black -e bash -c ' ssh hadaq@140.181.83.176 "/home/hadaq/bin/restart_rawmon.sh ; echo closing window in 5 secs...; sleep 5" '
 # below lxhadeb12:
-xterm -geometry 80x24 -bg orange -fg black -e bash -c ' ssh hadaq@140.181.83.168 "/home/hadaq/bin/restart_rawmon.sh ; echo closing window in 5 secs...; sleep 5" '
+
+xterm -geometry 80x24 -bg orange -fg black -e bash -c ' 
+      ssh hadaq@lxhadeb12p "
+      /home/hadaq/bin/restart_rawmon.sh
+      echo closing window in 5 secs...
+      sleep 5
+      " 
+'
 
 
 
index dd84524221dcba446dd077d6f8e8039023d70c20..96d92442343debdd2796ac14c72d2b2615281bc4 100755 (executable)
@@ -5,10 +5,10 @@ xterm -geometry 80x24 -bg orange -fg black -e bash -c '
   echo Re-starting Sequencers
   echo -en \"\x18\"| netcat -w 1 localhost 4813
   sleep 5
- "
-  '
-  
 "
+'
   
   # | netcat -w 1 localhost 4813
   
-  
\ No newline at end of file
+  
diff --git a/control/gui/expert/Set_ECAL_Thr b/control/gui/expert/Set_ECAL_Thr
new file mode 100755 (executable)
index 0000000..b8ff19b
--- /dev/null
@@ -0,0 +1,20 @@
+#!/bin/bash
+export myvar=$(doyoureallywant.pl "to reset the ECAL thresholds?")
+if [ $myvar == "256" ]; then exit; fi
+
+xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
+  ssh hadaq@lxhadesdaqp "
+  export DAQOPSERVER=hadesp31
+  echo \"  <ECAL_Thr> Connected to lxhadesdaq...\"
+  echo \"  <ECAL_Thr> Setting Thresholds...\"
+  ssh hadesp33 \"pkill -f ./hmon_ecal_recover_dead_slow_channels.pl\"
+  cd /home/hadaq/trbsoft/hadesdaq/ecal/ecal_thresholds/trb_dirich_threshold/
+  .  ./setLD 
+  ./HADESthreshscan_v1 -l 0 --loading-file 20190220_155833_std_save.thr -t 0 500 500
+  ./HADESthreshscan_v1 -l 0 --loading-file 20190220_155833_std_save.thr -t 0 45 n200
+  echo \"Done\"
+  tmux new-session -d -s \"ecal_recover_dead_channels\" \"cd ~/trbsoft/hadesdaq/hmon/; export PERL5LIB=.; ./hmon_ecal_recover_dead_slow_channels.pl\"
+  sleep 10
+"
+'
+
index 3da26386aca44b7f01a520dd88fae362d5de6fec..c1cf51b500c56f05b75ea9318362f76bb7854553 100755 (executable)
@@ -3,19 +3,11 @@ export myvar=$(doyoureallywant.pl "to set the RICH HV and switch it on/off?")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh hadaq@lxhadeb06 "
+  ssh hadaq@lxhadesdaqp "
   export DAQOPSERVER=hadesp31
-  echo \"  <RICH_Thr> Connected to lxhadeb06...\"
+  echo \"  <RICH_Thr> Connected to lxhadesdaq...\"
   echo \"  <RICH_Thr> Setting HV...\"
-  cd /home/hadaq/JoF/HV_RICH/
-  . epics
-  ./setCrate.sh 1
-#  ./setHV.sh gain_alignement_HV_1.5E+06_fifth.dat
-  ./setHV.sh gain_alignement_HV_1.5E+06.dat
-#  ./setHV.sh gain_alignement_HV_2.0E+06.dat
-#  ./setHVon_off.sh gain_alignement_HV_1.5E+06_fifth.dat 2
-  ./setHVon_off.sh gain_alignement_HV_1.5E+06.dat 2
-#  ./setHVon_off.sh gain_alignement_HV_2.0E+06.dat 2
+  /home/hadaq/trbsoft/hadesdaq/utils/RICH_HV_Switch.sh /home/hadaq/hadesdaq/richhv/rich700/generated_HV_sets/gain_alignement_HV_2.0E+06.dat
   echo \"Done\"
   sleep 10
 "
index f5b2461b989265e7cc890e8e0b2bc640b6ded9a4..274d0275c799485aeb8605c6725614ba1b99f366 100755 (executable)
@@ -3,15 +3,11 @@ export myvar=$(doyoureallywant.pl "to reset the RICH thresholds?")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh hadaq@lxhadeb06 "
+  ssh hadaq@lxhadesdaqp "
   export DAQOPSERVER=hadesp31
-  echo \"  <RICH_Thr> Connected to lxhadeb06...\"
+  echo \"  <RICH_Thr> Connected to lxhadesdaq...\"
   echo \"  <RICH_Thr> Setting Thresholds...\"
-  cd /home/hadaq/trbsoft/daqtools/thresholds/threshold_wuppertal/trb_dirich_threshold/
-  source ./setLD
-  #./HADESthreshscan_v1
-  #./HADESthreshscan_v1 --loading-file /home/hadaq/trbsoft/daqtools/thresholds/threshold_wuppertal/trb_dirich_threshold/standard_baselines.thr -l 0 -n 0 5
-  ./HADESthreshscan_v1 --loading-file /home/hadaq/trbsoft/daqtools/thresholds/threshold_wuppertal/trb_dirich_threshold/threshold_files/standard_baselines.thr -l 0 -t 0 50
+  /home/hadaq/trbsoft/hadesdaq/utils/RICH_Thr_Call.sh --loading-file /home/hadaq/hadesdaq/rich/trb_dirich_threshold/threshold_files/standard_baselines.thr -l 0 -t 0 70
   echo \"Done\"
   sleep 10
 "
index 9f8f29f7a7817a3ed7a65a862e7b625cf671c43d..8dd0f8a8f5fc7b57221dd60466e83d5d5d5d3eaa 100755 (executable)
@@ -1,5 +1,5 @@
 #!/bin/bash
-ssh hadaq@hades33 "killall -USR2 speakdaemon.pl"
+ssh hadaq@hadesp50 "killall -USR2 speakdaemon.pl"
 
 
 
index b03ebef471d25ddaece6b5766dbab5d80c4037cc..6dd423196e974b2f31cb732d230e803cb65b301e 100755 (executable)
@@ -1,6 +1,6 @@
 #!/bin/bash
 #ssh hadaq@hades33 "killall -USR1 speakdaemon.pl"
 
-ssh hadaq@hades33 "killall -USR1 speakdaemon.pl; pkill -f espeak"
+ssh hadaq@hadesp50 "killall -USR1 speakdaemon.pl; pkill -f espeak"
 
 
index 7c377ad0acf8e74fad3ec4599d1d7716dd0a2fcc..6214a041326a19e3450ac633f7a0b98bb760d623 100755 (executable)
@@ -8,6 +8,7 @@ export DAQOPSERVER=hadesp31
 cd /home/hadaq/trbsoft/hadesdaq/control/ctsmon
 perl ./mon_cts.pl 
 sleep 1
+
 exit
 
 
index faccd515a21d445923c3153cca34af88a428bbe7..65a73f964deb663e45d54f17f550ff92353f8a7b 100755 (executable)
@@ -1,4 +1,3 @@
 #!/bin/bash
-#ssh -X hades30 " firefox -p Hmon  http://hadesdaq02/mon"
-MOZ_NO_REMOTE=1 firefox -p Hmon  http://hades33/mon
+MOZ_NO_REMOTE=1 firefox -P Hmon_forDaqOnly  http://hades33/mon
 
index 1a03ab6849ca28b9ecdaee7d8b3dd627025344f2..4cddd81f50e253f68d09c8284a9ae1651ed17b62 100755 (executable)
@@ -1,3 +1,3 @@
 #!/bin/bash
-MOZ_NO_REMOTE=1 firefox -P Eventbuilding  http://hades33/eb
+MOZ_NO_REMOTE=1 firefox -P Eventbuilding  http://hades33/eb/?monitoring=2000
 
index 99f2329cdd030ba501157ece00ac77c8770e3e4c..dcd1d3d3654fa14553169783b260e521da1f58c8 100755 (executable)
@@ -1,3 +1,3 @@
 #!/bin/bash
-vncviewer -passwd ~/.vnc/passwd hades30:1 &
+vncviewer --shared -passwd ~/.vnc/passwd hades30:1 &
 
diff --git a/control/gui/monitor/91_Hmon_Snaphot b/control/gui/monitor/91_Hmon_Snaphot
new file mode 100755 (executable)
index 0000000..b09aa2d
--- /dev/null
@@ -0,0 +1,7 @@
+#!/bin/bash
+
+#ssh -X -l scs lxhadeb06 '. /home/scs/.profile; medm -x hades.adl' 
+xterm -geometry 80x24 -bg green -fg black -e bash -c "
+  ssh -X hadaq@hades33 'cd /home/hadaq/trbsoft/daq/hmon; PERL5LIB=. perl ./permanent/hmon_archiver.pl once'
+  sleep 1000
+  ";
index 5ba8ab51b0588752a1d7c1a7c42014d9397e0d17..a7ce529f324e8e2013aec53593b98dda489e5551 100755 (executable)
@@ -4,16 +4,17 @@ export myvar=$(doyoureallywant.pl "to powercycle RICH,ECAL LV?")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm  -e bash --login -c  '
-  ssh hadaq@lxhadesdaq "
-  source /home/hadaq/.bash_profile        
+  ssh hadaq@lxhadesdaqp "
+  source /home/hadaq/.bash_profile
   echo \'Starting power cycle...\'
 
   cd /home/hadaq/hadesdaq/utils;
   export PERLLIB=/home/hadaq/EPICS/EPICS-3.15.6/base/lib/perl
-  ./RICH_Powercycle.pl;           
+  ./RICH_Powercycle.pl;
   #./ECAL_5V_Entrance_Powercycle.sh;
   #./ECAL_LV5_Powercycle;
   #./HUB_Powercycle.pl;
-
+  ./ECAL_Powercycle.pl
+  ./MdcTofCentral_Powercycle.pl
 sleep 5
 "
index 7d4fd19662984d28ccd2f2c4c04b570c870859e0..54859fa3eda05870c2c0636478342d9f953526ed 100755 (executable)
@@ -4,11 +4,14 @@ export myvar=$(doyoureallywant.pl "to powercycle the RICH LV?")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm  -e bash --login -c  '
-  ssh hadaq@lxhadesdaq "
+  ssh hadaq@lxhadesdaqp "
   source /home/hadaq/.bash_profile        
+#  export DAQOPSERVER=hadesp31
   echo \"Starting a RICH power cycle...\"
   cd /home/hadaq/hadesdaq/utils;
   PERLLIB=/home/hadaq/EPICS/EPICS-3.15.6/base/lib/perl ./RICH_Powercycle.pl;
   sleep 5
+ # /home/hadaq/trbsoft/hadesdaq/utils/RICH_Thr_Call.sh --loading-file /home/hadaq/hadesdaq/rich/trb_dirich_threshold/threshold_files/standard_baselines.thr -l 0 -t 0 50
+ # sleep 5
   "
 '
diff --git a/control/gui/power/20_ECAL_RPC_48V_Powercycle b/control/gui/power/20_ECAL_RPC_48V_Powercycle
new file mode 100755 (executable)
index 0000000..69e8e17
--- /dev/null
@@ -0,0 +1,14 @@
+#!/bin/bash
+
+export myvar=$(doyoureallywant.pl "to powercycle the RPC/ECAL LV?")
+if [ $myvar == "256" ]; then exit; fi
+
+xterm  -e bash --login -c  '
+  ssh hadaq@lxhadesdaqp "
+  source /home/hadaq/.bash_profile        
+  echo \"Starting a RPC/ECAL power cycle...\"
+  cd /home/hadaq/hadesdaq/utils;
+  PERLLIB=/home/hadaq/EPICS/EPICS-3.15.6/base/lib/perl ./ECAL_Powercycle.pl;
+  sleep 5
+  "
+'
diff --git a/control/gui/power/21_ECAL_Padiwa_Powercycle b/control/gui/power/21_ECAL_Padiwa_Powercycle
new file mode 100755 (executable)
index 0000000..f696d16
--- /dev/null
@@ -0,0 +1,9 @@
+#!/bin/bash
+
+export myvar=$(doyoureallywant.pl "to make a ECAL Padiwa 5V powercycle? There will be no further warnings!")
+if [ $myvar == "256" ]; then exit; fi
+
+xterm -e "
+cd ../../../../hadesdaq/utils;
+./ECAL_LV5_Powercycle.sh;
+"
diff --git a/control/gui/power/22_ECAL_Rack_Powercycle b/control/gui/power/22_ECAL_Rack_Powercycle
new file mode 100755 (executable)
index 0000000..09a4dcf
--- /dev/null
@@ -0,0 +1,9 @@
+#!/bin/bash
+
+export myvar=$(doyoureallywant.pl "to make a ECAL 5V Entrance Rack powercycle? There will be no further warnings!")
+if [ $myvar == "256" ]; then exit; fi
+
+xterm -e "
+cd ../../../../hadesdaq/utils;
+./ECAL_5V_Entrance_Powercycle.sh
+"
index e49b61d4b7f0bb5396e1a5161eb1565bfdbc4823..81ea82cf995587387ca6629d1453daa2de7252cc 100755 (executable)
@@ -1,6 +1,6 @@
 #!/bin/bash
 
-export myvar=$(doyoureallywant.pl "to powercycle the RICH Fans?")
+export myvar=$(doyoureallywant.pl "to powercycle the Start detector?")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -e "
diff --git a/control/gui/power/50_MdcTofCentral_Powercycle b/control/gui/power/50_MdcTofCentral_Powercycle
new file mode 100755 (executable)
index 0000000..b658928
--- /dev/null
@@ -0,0 +1,14 @@
+#!/bin/bash
+
+export myvar=$(doyoureallywant.pl "to powercycle the MDC/TOF/Central LV?")
+if [ $myvar == "256" ]; then exit; fi
+
+xterm  -e bash --login -c  '
+  ssh hadaq@lxhadesdaqp "
+  source /home/hadaq/.bash_profile        
+  echo \"Starting a MDC/TOF/Central power cycle...\"
+  cd /home/hadaq/hadesdaq/utils;
+  PERLLIB=/home/hadaq/EPICS/EPICS-3.15.6/base/lib/perl ./MdcTofCentral_Powercycle.pl;
+  sleep 5
+  "
+'
index 59b40e5d2221f749833275134e863644f8434db5..dabc474ad4791cc001228d0046800def853bbbe3 100755 (executable)
@@ -1,11 +1,14 @@
 #!/bin/bash
-
+#JAM 5-mar-2019 7:56 added missing perrlib environment. cannot test this during data taking, still to do
 export myvar=$(doyoureallywant.pl "to powercycle the Hubs and Rich Sensor Board?")
 if [ $myvar == "256" ]; then exit; fi
 
-xterm -e "
-echo 'Starting power cycle...'
-cd ../../../../hadesdaq/utils;
-./HUB_Powercycle.pl;
-sleep 5
+xterm  -e bash --login -c  '
+  ssh hadaq@lxhadesdaqp "
+  source /home/hadaq/.bash_profile        
+  echo \"Starting a HUB-Power-Cycle...\"
+  cd /home/hadaq/hadesdaq/utils;
+  PERLLIB=/home/hadaq/EPICS/EPICS-3.15.6/base/lib/perl ./HUB_Powercycle.pl;
+  sleep 5
 "
+'
index ced25ed850b969402e067076929c3a89adbe915e..e2cb10173e2297d76b69716e0f0f6a8f188b6c13 100755 (executable)
@@ -3,6 +3,7 @@
 export myvar=$(doyoureallywant.pl "to make a MDC powercycle? There will be no further warnings!")
 if [ $myvar == "256" ]; then exit; fi
 
+
 cd /home/hadaq/trbsoft/hadesdaq/control/mdcLVgui/
-/home/hadaq/trbsoft/hadesdaq/control/mdcLVgui/call_programs2.pl
+PERL5LIB=. /home/hadaq/trbsoft/hadesdaq/control/mdcLVgui/call_programs2.pl
 
index a2a4c91c5281ba102c66e79f583a4226699a23d9..a9790f666bec0f185346a632391cc9279e62eaa4 100755 (executable)
@@ -1,13 +1,15 @@
 #!/bin/bash
-xterm -e "
+
+
 export myvar=$(doyoureallywant.pl 'to do a power cycle on RPC')
 if [ $myvar == '256' ]; then exit; fi
 
-echo 'Sending power cycle request'
-wget -O /dev/null --http-password kaese --http-user admin -d http://haepcp15/RESET.CGI?a=0\&bi=5\&t=0\&b=1
-sleep 5
-echo 'waiting a minute until boards are rebooted'
-sleep 60
-echo 'Done'
-sleep 5
+xterm -e "
+      echo 'Sending power cycle request'
+      wget -O /dev/null --http-password kaese --http-user admin -d http://haepcp15/RESET.CGI?a=0\&bi=5\&t=0\&b=1
+      sleep 5
+      echo 'waiting a minute until boards are rebooted'
+      sleep 60
+      echo 'Done'
+      sleep 10
 "
index 1b78d68353006ddb3ccbb4eee23c9c26c9e6da60..6abae06559b32bdb0ccff4366eb93a215762cb79 100755 (executable)
@@ -381,7 +381,8 @@ sub make_subroutine {
     # make subroutines
     #sub slot0Pressed { my $c = buttons->[0]; $c = "cd ../control; ./$c"; print "will execute: $c\n"; qx($c); }
     
-    my $str = qq|sub slot| . $i . qq|Pressed { my \$c = this->{self}->{ra_buttons}->[$i]; \$c = "cd $dir; ./\$c &"; print "will execute: \$c\n"; system(\$c); }|;
+    my $str = qq|sub slot| . $i . qq|Pressed { my \$s = this->{self}->{ra_buttons}->[$i]; my \$str="Powercycle in \$dir / \$s"; my \$c = "cd \$dir; control_gui_logger.sh MDC_HV \$str; ./\$s &"; print "going to execute: \$c\n"; system(\$c); }|;
+
 #    my $str = qq|sub slot| . $i . qq|Pressed { print "$i pressed\n"; }|;
 #system(\$c); }|;
     #print "sub: $str\n";
index f9933bf1b94cf039fcfa21423bad2f4ded22095a..2b7647170aa1681dbaecac5b84f4e81c6eaa8978 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 1 1
   sleep 5
index 987f338b7a821b183f76aed1257a385cc1c3437e..49f2f0124a30d0b6772f59c3ad35f5ff04aab165 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 2 1
   sleep 5
index 4b87a31f5af6d742e93dffbb72225e00242d3750..a9357dc4e3a47b59c50632ec46634d12695845a4 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 3 1
   sleep 5
index ff61089e7af19592b0cc06c7697cf1dc02edbfba..7531a710c5bd5138b6333a849e156ce328117326 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 4 1
   sleep 5
index fba21e05cf388cacfe9a64427a90eed8ff22688e..f5d566c36c2cb30de77c75a70a7bc3bbc4781ca8 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 1 2
   sleep 5
index b9a8d2252ad1c221d2351924c55ae20d94821076..fe623f6eb6ae51e60dd7f9ed48dd2e78fca8ac23 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 2 2
   sleep 5
index 9b683588b471b4341fb777223a75ff55cd7352f7..1cd34161427310ae4c7c83773e609ddab646a069 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 3 2
   sleep 5
index b6c1cbde79a2ed559981c739901a5379495abab6..885f16354c22e2b9595750b0f2d4787afd161f8d 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 4 2
   sleep 5
index d3a887688b98341b52a0102f1004fe40aab109d9..3a8e15d67c37be5bc2477b613fa52aedb6c17a3b 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 1 3
   sleep 5
index b282f91105aeb74b265a98b8360bd086ecef786f..3f66eb484639a9dc9902cd3559b7122c9c296c10 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 2 3
   sleep 5
index f7b96ef67ab8e4c4b40e8ddcada22f4a1ff92743..8b371fa9cd8529c227d5d55a02d2a656c7995d17 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 3 3
   sleep 5
index 2148e5ecc41e4915f1597560ccb057fd65721cee..7263a0cefe9816189ee56700ad97d216da3c291e 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 4 3
   sleep 5
index 1a89d0f34656ba21a64cadefdf6e29472c11960f..ceec487bd835f70a2e2f528c7b2192d6ba99d89c 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 1 4
   sleep 5
index dd7e0a49885b66b658304981e92c538d31c2011f..bee78d6d70f6530cd966996770ee601d9d7ad2cc 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 2 4
   sleep 5
index c71eef619b2793bcc15bc538b2b1c0ca8d0e6226..1016b0302c2b0618b4b14dd1f29d704b0f791a89 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 3 4
   sleep 5
index ff915762e8d269231136dfbbf18b725e8ac777cb..203c01978969d99d3ca655299110816a9be6d476 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 4 4
   sleep 5
index c11bd400dc6eb8788eb20a94cecf92713ad602e1..507701d2937c3bebf776659377df8fb49cf7a502 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 1 5
   sleep 5
index 34caeb50d665808205634f640632bb0d261af0b7..f30b97017cfa2436fcc4b41fdf19852625df12ad 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 2 5
   sleep 5
index 195d1c572865b1147363c8af8337da02120730bc..3984bea11eef8a62e07cbad4ee8f102806f2f343 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 3 5
   sleep 5
index 6afbb24c3d8ee87d1426539f0b68e6947d36a718..87e0cc21676183e39ed10d36691be234af7a3bb5 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 4 5
   sleep 5
index f444d4cc1f7632fb7aa8700e6146474951376bb0..368cb1e70bee5bb86219c72d3c2c088c953e95b1 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 1 6
   sleep 5
index e95cc9eb045bda7eb82497ecbd06c4ebce9e99e0..ed31ae368bdc0798a945adc4e39826f72ce052ff 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 2 6
   sleep 5
index 4873ff029336140d7bc3db967641d249c19ff56e..f4fa287f2e18026e940a14af981d8f4d0d9e4a2e 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 3 6
   sleep 5
index a1d3f6bdecaa61a8d17e7ef11672a4d50800835d..7b7d82547db8ffe249cab562b4ade7b786865c93 100755 (executable)
@@ -4,9 +4,9 @@ export myvar=$(doyoureallywant.pl "to do a HV ramping cycle")
 if [ $myvar == "256" ]; then exit; fi
 
 xterm -geometry 80x24 -bg orange -fg black -e bash --login -c '
-  ssh -X hadaq@hadesdaq02 "
+  ssh -X hadaq@lxhadesdaqp "
   source /home/hadaq/.bashrc
-  echo \"  <Startup> Connected to hadesdaq02...\"
+  echo \"  <Startup> Connected to lxhadesdaqp...\"
   cd /home/hadaq/trbsoft/mdc/
   ./mdc_ramping.pl 4 6
   sleep 5
index 9bd65f0d9f551abae891319561366a1292a4d4a5..9df0ccbfc95a53464706053c1cd3826daf5c9c45 100755 (executable)
@@ -380,8 +380,9 @@ sub make_subroutine {
     (my $i, my $dir) = @_;
     # make subroutines
     #sub slot0Pressed { my $c = buttons->[0]; $c = "cd ../control; ./$c"; print "will execute: $c\n"; qx($c); }
-    
-    my $str = qq|sub slot| . $i . qq|Pressed { my \$c = this->{self}->{ra_buttons}->[$i]; \$c = "cd $dir; ./\$c &"; print "will execute: \$c\n"; system('logger -p local1.info -t DAQ MdcLV \\<I\\> Powercycle in '.$dir.'/'.this->{self}->{ra_buttons}->[$i]); system(\$c); }|;
+
+    my $str = qq|sub slot| . $i . qq|Pressed { my \$s = this->{self}->{ra_buttons}->[$i]; my \$str="Powercycle in \$dir / \$s"; my \$c = "cd \$dir; control_gui_logger.sh MDC_LV \$str; ./\$s &"; print "going to execute: \$c\n"; system(\$c); }|;
+
 #    my $str = qq|sub slot| . $i . qq|Pressed { print "$i pressed\n"; }|;
 #system(\$c); }|;
     #print "sub: $str\n";
index 5804121d65113f51b7b2b2e97302fbd03924a5a5..249e643858e25f23c998e74d6fb89854934c6972 100755 (executable)
@@ -1,4 +1,4 @@
 #!/bin/bash
 command_client.pl -e etraxp204 -c "/home/hadaq/bin/writetty.sh 'OWDS 3AA5E702000000A4 1'"
 sleep 5
-command_client.pl -e etraxp204 -c "/home/hadaq/bin/writetty.sh 'OWDS 3AA5E702000000A4 0'"
\ No newline at end of file
+command_client.pl -e etraxp204 -c "/home/hadaq/bin/writetty.sh 'OWDS 3AA5E702000000A4 0'"
index e56e84f59a7ac399a29a4b55cc14f0681761394a..7773799eb6d99480c7a854a465e2d3b770675ef9 100644 (file)
@@ -324,7 +324,7 @@ sub make_subroutine {
     # make subroutines
     #sub slot0Pressed { my $c = buttons->[0]; $c = "cd ../control; ./$c"; print "will execute: $c\n"; qx($c); }
     
-    my $str = qq|sub slot| . $i . qq|Pressed { my \$c = this->{self}->{ra_buttons}->[$i]; \$c = "cd $dir; ./\$c &"; print "will execute: \$c\n"; system('logger -p local1.info -t DAQ MdcLV \\<I\\> Powercycle in '.$dir.'/'.this->{self}->{ra_buttons}->[$i]); system(\$c); }|;
+    my $str = qq|sub slot| . $i . qq|Pressed { my \$s = this->{self}->{ra_buttons}->[$i]; my \$str="\$dir/\$s"; my \$c = "cd \$dir; control_gui_logger.sh QA \$str; ./\$s &"; print "will execute: \$c\n"; system(\$c); }|;
 #    my $str = qq|sub slot| . $i . qq|Pressed { print "$i pressed\n"; }|;
 #system(\$c); }|;
     #print "sub: $str\n";
diff --git a/control/qa/QA/10_Start_OnlineQA.png b/control/qa/QA/10_Start_OnlineQA.png
new file mode 100644 (file)
index 0000000..7b3568d
Binary files /dev/null and b/control/qa/QA/10_Start_OnlineQA.png differ
diff --git a/control/qa/QA/11_Stop_OnlineQA b/control/qa/QA/11_Stop_OnlineQA
new file mode 100755 (executable)
index 0000000..d0aa708
--- /dev/null
@@ -0,0 +1,3 @@
+#!/bin/bash
+
+/home/hades-qa/bin/stop_OLM.sh
diff --git a/control/qa/QA/11_Stop_OnlineQA.png b/control/qa/QA/11_Stop_OnlineQA.png
new file mode 100644 (file)
index 0000000..cd4fd05
Binary files /dev/null and b/control/qa/QA/11_Stop_OnlineQA.png differ
diff --git a/control/qa/QA/15_Vertex_Reconstruction.png b/control/qa/QA/15_Vertex_Reconstruction.png
new file mode 100644 (file)
index 0000000..ea34349
Binary files /dev/null and b/control/qa/QA/15_Vertex_Reconstruction.png differ
diff --git a/control/qa/QA/screenshot_QHF_1.png b/control/qa/QA/screenshot_QHF_1.png
new file mode 100644 (file)
index 0000000..2fb3c91
Binary files /dev/null and b/control/qa/QA/screenshot_QHF_1.png differ
index 88dd62cb8ff965907daf2ed0c1a8333d12988055..800f03aa19466ac50c94e7d8ae3cbae80d32ecf7 100755 (executable)
@@ -1,7 +1,7 @@
 #!/bin/bash
 
 cd /home/hadaq/trbsoft/hadesdaq/control/qa/
-./call_programs_wrapper.sh -geometry -0-0 &
+./call_programs_wrapper.sh -geometry 300x300-0-0 &
 #/home/hadaq/trbsoft/hadesdaq/control/gui/call_programs_wrapper.sh -geometry -0-0 &
 
 #cd /home/hadaq/trbsoft/daq/control/gui/
index fe7b756970cf974ce04bd88c4056b615eed4431b..b10ce53dd37b997b280876ce913c419a18076a49 100755 (executable)
@@ -2,4 +2,4 @@
 #ssh -X lxhadeb06 ". .bashrc; export PATH=\$PATH:\$HOME/bin; echo $PATH; cd /home/hadaq/trbsoft/hadesdaq/control/gui/; ./call_programs2.pl -geometry -0-0" 
 
 cd /home/hadaq/trbsoft/daq/control/qa/
-/home/hadaq/trbsoft/daq/control/qa/call_programs2.pl -geometry -0-0
+/home/hadaq/trbsoft/daq/control/qa/call_programs2.pl $ARGV
diff --git a/utils/ECAL_5V_Entrance_Powercycle.sh b/utils/ECAL_5V_Entrance_Powercycle.sh
new file mode 100755 (executable)
index 0000000..efdf2d1
--- /dev/null
@@ -0,0 +1,17 @@
+#!/bin/bash
+
+echo 'Sending power cycle request'
+echo -n 'current status: '
+echo 'OUTPUT:STATE? CH1' | ssh odroid6 'cat > /dev/FTDI_USB_Serial_Converter_FTGZLM92; timeout 2 cat /dev/FTDI_USB_Serial_Converter_FTGZLM92'
+echo 'switching off...'
+echo 'OUTPUT:STATE CH1,OFF' | ssh odroid6 'cat > /dev/FTDI_USB_Serial_Converter_FTGZLM92'
+sleep 2
+echo -n 'current status: '
+echo 'OUTPUT:STATE? CH1' | ssh odroid6 'cat > /dev/FTDI_USB_Serial_Converter_FTGZLM92; timeout 2 cat /dev/FTDI_USB_Serial_Converter_FTGZLM92'
+
+echo 'switching on...'
+echo 'OUTPUT:STATE CH1,ON' | ssh odroid6 'cat > /dev/FTDI_USB_Serial_Converter_FTGZLM92'
+echo -n 'current status: '
+echo 'OUTPUT:STATE? CH1' | ssh odroid6 'cat > /dev/FTDI_USB_Serial_Converter_FTGZLM92; timeout 2 cat /dev/FTDI_USB_Serial_Converter_FTGZLM92'
+
+sleep 5
diff --git a/utils/ECAL_LV5_Powercycle.sh b/utils/ECAL_LV5_Powercycle.sh
new file mode 100755 (executable)
index 0000000..1279177
--- /dev/null
@@ -0,0 +1,21 @@
+#!/bin/bash
+
+echo 'Sending power cycle request'
+echo -n 'current status: '
+echo 'OUTPUT:GENERAL ?' | ssh odroid5 'cat > /dev/HAMEG_HAMEG_HO720_100030505473; timeout 1 cat /dev/HAMEG_HAMEG_HO720_100030505473'
+echo 'switching off...'
+echo 'OUTPUT:GENERAL OFF' | ssh odroid4 'cat > /dev/HAMEG_HAMEG_HO720_100030271763'
+echo 'OUTPUT:GENERAL OFF' | ssh odroid5 'cat > /dev/HAMEG_HAMEG_HO720_100030505473'
+echo 'OUTPUT:GENERAL OFF' | ssh odroid6 'cat > /dev/HAMEG_HAMEG_HO720_100030805647'
+sleep 2
+echo -n 'current status: '
+echo 'OUTPUT:GENERAL ?' | ssh odroid5 'cat > /dev/HAMEG_HAMEG_HO720_100030505473; timeout 1 cat /dev/HAMEG_HAMEG_HO720_100030505473'
+
+echo 'switching on...'
+echo 'OUTPUT:GENERAL ON' | ssh odroid4 'cat > /dev/HAMEG_HAMEG_HO720_100030271763'
+echo 'OUTPUT:GENERAL ON' | ssh odroid5 'cat > /dev/HAMEG_HAMEG_HO720_100030505473'
+echo 'OUTPUT:GENERAL ON' | ssh odroid6 'cat > /dev/HAMEG_HAMEG_HO720_100030805647'
+echo -n 'current status: '
+echo 'OUTPUT:GENERAL ?' | ssh odroid5 'cat > /dev/HAMEG_HAMEG_HO720_100030505473; timeout 1 cat /dev/HAMEG_HAMEG_HO720_100030505473'
+
+sleep 5
diff --git a/utils/ECAL_Powercycle.pl b/utils/ECAL_Powercycle.pl
new file mode 100755 (executable)
index 0000000..6ad2d1d
--- /dev/null
@@ -0,0 +1,17 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+use lib "../nettools/";
+use Perl2Epics;
+use Data::Dumper;
+
+print "Connect..\n";
+my $s = "HAD:RPC:PS:11:SETONOFF";
+Perl2Epics::Connect("ECALLV_Power",$s);
+
+Perl2Epics::Put("ECALLV_Power",1); #Off
+my $data = Perl2Epics::GetAll();
+print $data->{"ECALLV_Power"}->{val}."\n";
+sleep 8;
+Perl2Epics::Put("ECALLV_Power",0); #On
diff --git a/utils/HMP_Powersupply.pl b/utils/HMP_Powersupply.pl
new file mode 100755 (executable)
index 0000000..94615ed
--- /dev/null
@@ -0,0 +1,116 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+# use Device::SerialPort;
+use IO::Socket;
+use IO::Handle;
+use feature 'state';
+use URI::Escape;
+use Time::HiRes qw( usleep);
+use POSIX qw/floor ceil strftime/;
+use Fcntl;
+use Storable qw(lock_store lock_retrieve);
+use JSON::XS;
+
+
+my @new_command = split('&',$ARGV[0]); 
+my $ser_dev     = "IP10.0.0.2";#shift(@new_command);
+my $ser_type    = "HMP";#shift(@new_command);
+my $ser_speed   = "5025";#shift(@new_command);  #speed or port number
+
+if (!defined $ser_dev || !defined $ser_type || !defined $ser_speed) {
+  exit 0;
+  }
+
+
+my $port;
+my $isIP = 0;
+my $cnt = 0;
+my $isRemote = undef;
+
+## Load stored values
+#my $file = $ser_dev; 
+#  $file =~ s/\W//g;
+#  $file = "/dev/shm/pwrsup-".$file.".dump";
+#my $db;
+# if(-e $file && -r $file) {
+#   $db = lock_retrieve($file);
+#   }
+
+
+if($ser_dev =~ /^IP(.*)/) {
+  $ser_dev = $1;
+  $isIP = 1;
+  }
+
+print HMP_ethernet() if (($ser_type eq "HMP" or $ser_type eq "HMC") && $isIP == 1);
+
+
+  
+sub HMP_ethernet {
+  print strftime("%H:%M:%S &", localtime());
+  my $data;
+  my $JSONcnt=0;
+  my $port = IO::Socket::INET->new(PeerAddr => $ser_dev, PeerPort => $ser_speed, Proto => "tcp", Type => 
+SOCK_STREAM, Timeout => 1) 
+              or (print("Device not found") && return);  
+              
+  #$data->{time} = strftime("%H:%M:%S", localtime());      
+  while ( my $command = shift(@new_command) ) {
+    $command = uri_unescape($command);
+    #print $command."\n";
+    my $x = getValue($port,$command,$cnt++);
+    $x =~ s/\&//;
+    print $x."&" if $command =~ /\?/;
+  } 
+  return;
+}
+  
+
+sub serial_rw {
+  my ($fh, $command,$forceread) = @_;
+  my $x = "";
+  if ($ser_type eq 'PSP') {$command .= "\r";} else {$command .= "\n";}
+  print $fh  "$command";
+#   print $command;
+  if($ser_type eq 'PWRSW' || $forceread || $command =~ /\?/) {
+    for my $i (0..500) {
+      $x .=   <$fh>;
+      if($x && ($x =~ /\n/ || $x =~ /\r/) ) {
+        chomp $x;
+        last;
+        }
+      usleep(1000);
+      }
+    }
+  else {
+    usleep(1000);
+    }
+  return $x;  
+  }
+  
+
+sub getValue {
+  my ($fh,$cmd,$cnt,$forceread) = @_;
+#  if (0 && defined $db->{$cmd.$cnt}{tim} && $db->{$cmd.$cnt}{tim} > time()-10) {
+#    return $db->{$cmd.$cnt}{val};
+#    }
+#  else {
+    my $val = serial_rw($fh,$cmd,$forceread);
+ #   addDB($cmd.$cnt,$val);
+    return $val;
+ #   }
+  }
+
+  
+#sub addDB {
+# my ($cmd,$val) = @_;
+# $db->{$cmd}{val} = $val;
+# $db->{$cmd}{tim} = time();
+#  }
+  
+#lock_store($db,$file);  
+print "\n";
+  
+exit 1;
diff --git a/utils/HUB_Powercycle.pl b/utils/HUB_Powercycle.pl
new file mode 100755 (executable)
index 0000000..dcbacb1
--- /dev/null
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+use lib "../nettools/";
+use Perl2Epics;
+use Data::Dumper;
+
+print "Connect..\n";
+my $s = "HAD:RICH:PS:16:SETONOFF";
+Perl2Epics::Connect("RICHLV_PowerOnOff",$s);
+
+
+Perl2Epics::Put("RICHLV_PowerOnOff",1);
+Perl2Epics::GetAll();
+
+sleep 8;
+Perl2Epics::Put("RICHLV_PowerOnOff",0);
diff --git a/utils/MdcTofCentral_Powercycle.pl b/utils/MdcTofCentral_Powercycle.pl
new file mode 100755 (executable)
index 0000000..d965ac2
--- /dev/null
@@ -0,0 +1,17 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+use lib "../nettools/";
+use Perl2Epics;
+use Data::Dumper;
+
+print "Connect..\n";
+my $s = "HAD:RPC:PS:03:SETONOFF";
+Perl2Epics::Connect("MDCTOFCENTRLV_Power",$s);
+
+Perl2Epics::Put("MDCTOFCENTRLV_Power",1);
+my $data = Perl2Epics::GetAll();
+print $data->{"MDCTOFCENTRLV_Power"}->{val}."\n";
+sleep 8;
+Perl2Epics::Put("MDCTOFCENTRLV_Power",0);
diff --git a/utils/RICH_Fan_Powercycle.sh b/utils/RICH_Fan_Powercycle.sh
new file mode 100755 (executable)
index 0000000..9c5a816
--- /dev/null
@@ -0,0 +1,17 @@
+#!/bin/bash
+
+odroid="odroid1";
+devicename="/dev/HAMEG_HAMEG_HO720_100030280929";
+
+echo "Sending power cycle request to $odroid @ $devicename"
+
+echo -n 'Current Status: '
+echo 'OUTPUT:GENERAL ?' | ssh $odroid "cat > $devicename; timeout 2 cat $devicename"
+echo 'Switching Off...'
+echo 'OUTPUT:GENERAL OFF' | ssh $odroid "cat > $devicename; timeout 2 cat $devicename"
+echo -n 'Current Status: '
+echo 'OUTPUT:GENERAL ?' | ssh $odroid "cat > $devicename; timeout 2 cat $devicename"
+echo 'Switching ON...'
+echo 'OUTPUT:GENERAL ON' | ssh $odroid "cat > $devicename; timeout 2 cat $devicename"
+echo -n 'Current Status: '
+echo 'OUTPUT:GENERAL ?' | ssh $odroid "cat > $devicename; timeout 2 cat $devicename"
diff --git a/utils/RICH_HV_Switch.sh b/utils/RICH_HV_Switch.sh
new file mode 100755 (executable)
index 0000000..a6b7b81
--- /dev/null
@@ -0,0 +1,8 @@
+#!/bin/bash
+first_input=$1
+#shift
+. epics --
+/home/hadaq/hadesdaq/richhv/rich700/setCrate.sh 1
+/home/hadaq/hadesdaq/richhv/rich700/setHV.sh $first_input
+/home/hadaq/hadesdaq/richhv/rich700/setHVon_off.sh $first_input 2
+#~/trbsoft/hadesdaq/richhv/rich700/infoHV.sh $1
diff --git a/utils/RICH_Powercycle.pl b/utils/RICH_Powercycle.pl
new file mode 100755 (executable)
index 0000000..7973c48
--- /dev/null
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+use lib "../nettools/";
+use Perl2Epics;
+use Data::Dumper;
+
+print "Connect..\n";
+my $s = "HAD:RICH:PS:poweron";
+Perl2Epics::Connect("RICHLV_PowerOn",$s);
+
+$s    = "HAD:RICH:PS:poweroff";
+Perl2Epics::Connect("RICHLV_PowerOff",$s);
+
+Perl2Epics::Put("RICHLV_PowerOff",1);
+Perl2Epics::GetAll();
+
+sleep 8;
+Perl2Epics::Put("RICHLV_PowerOn",1);
diff --git a/utils/RICH_Thr_Call.sh b/utils/RICH_Thr_Call.sh
new file mode 100755 (executable)
index 0000000..84683a5
--- /dev/null
@@ -0,0 +1,4 @@
+#!/bin/bash
+cd /home/hadaq/hadesdaq/rich/trb_dirich_threshold
+. ./setLD
+./HADESthreshscan_v1 "$@"
diff --git a/utils/control_gui_logger.sh b/utils/control_gui_logger.sh
new file mode 100755 (executable)
index 0000000..56286a9
--- /dev/null
@@ -0,0 +1,11 @@
+#!/usr/bin/perl 
+
+use warnings;
+use strict;
+
+my $str = join " ", @ARGV[1..$#ARGV];
+my $command = qq|logger -p local1.info -t "DAQ" "$ARGV[0]  <I> $str"|;
+qx($command);
+
+exit;
+
diff --git a/utils/mdc_lv.pl b/utils/mdc_lv.pl
new file mode 100755 (executable)
index 0000000..38bf807
--- /dev/null
@@ -0,0 +1,144 @@
+#!/usr/bin/perl -w
+
+use Data::Dumper;
+
+my $numArg = $#ARGV +1;
+my $LastArg = 0;
+my @Sector;
+my @Plane;
+
+my $DEBUGLEVEL = 1;
+my $DoAll = 0;
+my $Powercycle = 2; # 0-Off; 1-On, 2-Cycle
+my $LV =  [
+           ["3AA5E702000000A4","3A14E3020000008B","3A5CDB02000000E5","3ABEF0020000002A"], #S0; 200x,210X,220X,230X  1
+           ["3AA5E702000000A4","3A14E3020000008B","3A5CDB02000000E5","3ABEF0020000002A"], #S1; 201x,211X,221X,231X  2
+           ["3A11DA0200000017","3A3AD90200000017","3A05E5020000007B","3A53E602000000A9"], #S2; 202x,212X,222X,232X  1
+           ["3A11DA0200000017","3A3AD90200000017","3A05E5020000007B","3A53E602000000A9"], #S3; 203x,213X,223X,233X  2
+           ["3A6EE302000000DC","3A6FDA020000009C","3A1FF4020000005E","3AF6DB0200000076"], #S4; 204x,214X,224X,234X  1
+           ["3A6EE302000000DC","3A6FDA020000009C","3A1FF4020000005E","3AF6DB0200000076"]  #S5; 205x,215X,225X,235X  2
+          ];
+
+if ($numArg == 0) {
+  #No Arguments
+  print "usage: mdc_lv.pl --sector --plane --off\n";
+  print "usage: mdc_lv.pl --sector --plane\n";
+  print "usage: mdc_lv.pl -s -p \n";
+  print "usage: mdc_lv.pl -a \n";
+  print "usage: mdc_lv.pl --all \n";
+
+} elsif ($ARGV[0] eq "-h" || $ARGV[0] eq "--help") {
+  help();
+} else {
+  for (my $i=0; $i<$numArg;$i++){
+    my ($letter) = $ARGV[$i] =~ /^[-][-]*(.*)/;
+    if (defined $letter) {
+      #print $letter."\n";
+      #--
+      if ($letter eq "s" || $letter eq "sector"){
+        #sector selection
+        $LastArg = 1;
+      } elsif ($letter eq "p" || $letter eq "plane") {
+        #level
+        $LastArg = 2;
+      } elsif ($letter eq "a" || $letter eq "all") {
+        #all
+        $LastArg = 3;
+        $DoAll = 1;
+        last;
+      } elsif ( $letter eq "off") {
+        #all
+        $LastArg = 4;
+        $Powercycle = 0;
+      } elsif ( $letter eq "on") {
+        #all
+        $LastArg = 5;
+        $Powercycle = 1;
+      } else {
+        print "$letter: not a supported Parameter!\n";
+        $LastArg = 0;
+      }
+    } else {
+      # Values
+      if ($LastArg == 0) {
+        print "ERROR\n";
+      } else {
+        ##Values to last Parameter
+        if ($LastArg == 1) {
+          if ($ARGV[$i] >= 0 && $ARGV[$i] < 6) {
+            push(@Sector,$ARGV[$i]);
+          } else {
+            print "Sector value not between 0 and 5.\n";
+          }
+        } elsif ($LastArg == 2) {
+          if ($ARGV[$i] >= 0 && $ARGV[$i] < 4) {
+            push(@Plane ,$ARGV[$i]);
+          } else {
+            print "Plane value not between 0 and 3.\n";
+          }
+        } elsif ($LastArg == 3) {
+           print "Switch All...\n"; 
+        } else {
+          print "ERROR\n";
+        }
+      }
+    }
+  }
+  
+  if ( $DoAll == 0) {
+    my $SectorSize = @Sector;
+    my $PlaneSize = @Plane;
+    for (my $s = 0; $s<$SectorSize;$s++){
+      my $factor = $Sector[$s]%2 + 1;
+      if ($PlaneSize == 0) {
+        print "no Plane!\n";  
+      } else {
+        for (my $p = 0; $p<$PlaneSize;$p++){
+          my $addr = $LV->[$Sector[$s]][$Plane[$p]];
+          print "Sec: $Sector[$s]  Plane: $Plane[$p] Factor: $factor    Addr: $addr\n" if ($DEBUGLEVEL >= 1);
+          if ($Powercycle == 2) {
+            run($addr,$factor);
+          } else {
+            print "Switch only Off...\n";
+            run_off($addr,$factor);
+          }
+        }
+      }
+    }
+  } else {
+  ## Do all
+    print "Do All...\n";
+    run_all();
+  }
+}
+
+
+sub help {
+  print "HELP ME!!!\n";
+}
+
+sub run { 
+  my ($addr,$factor) = @_;
+  print "$addr  $factor \n";
+  print qx(command_client.pl -e etraxp204 -c "/home/hadaq/bin/writetty.sh 'OWDS $addr $factor'";
+           sleep 5;
+           command_client.pl -e etraxp204 -c "/home/hadaq/bin/writetty.sh 'OWDS $addr 0'";
+          )."\n";  
+}
+
+sub run_off { 
+  my ($addr,$factor) = @_;
+  print "$addr  $factor \n";
+  print qx(command_client.pl -e etraxp204 -c "/home/hadaq/bin/writetty.sh 'OWDS $addr $factor'";
+          )."\n";  
+}
+
+sub run_all {
+  for (my $s=0;$s<6;$s++){
+    for (my $p=0;$p<4;$p++){
+      my $factor = $s%2 + 1;
+      my $addr = $LV->[$s][$p];
+      run($addr,$factor);
+    }
+  }
+}
diff --git a/utils/odroid_HMP_Powercycle.sh b/utils/odroid_HMP_Powercycle.sh
new file mode 100755 (executable)
index 0000000..498b4f8
--- /dev/null
@@ -0,0 +1,34 @@
+#!/bin/bash
+
+######################################################
+#                                                    #
+#   odroid_HMP_Powercycle.sh <odroidName> <DevPort>  #
+#                                                    #
+######################################################
+
+if [ -z $1 ]; then
+  odroid="odroid1";
+else
+  odroid=$1;
+fi;
+
+if [ -z $2 ]; then
+  devicename="/dev/HAMEG_HAMEG_HO720_100030280929";
+else
+  devicename=$2;
+fi;
+
+#echo  $1 $2;
+
+echo "Sending power cycle request to $odroid @ $devicename"
+
+echo -n 'Current Status: '
+echo 'OUTPUT:GENERAL ?' | ssh $odroid "cat > $devicename; timeout 2 cat $devicename"
+echo 'Switching Off...'
+echo 'OUTPUT:GENERAL OFF' | ssh $odroid "cat > $devicename; timeout 2 cat $devicename"
+echo -n 'Current Status: '
+echo 'OUTPUT:GENERAL ?' | ssh $odroid "cat > $devicename; timeout 2 cat $devicename"
+echo 'Switching ON...'
+echo 'OUTPUT:GENERAL ON' | ssh $odroid "cat > $devicename; timeout 2 cat $devicename"
+echo -n 'Current Status: '
+echo 'OUTPUT:GENERAL ?' | ssh $odroid "cat > $devicename; timeout 2 cat $devicename"