update power cycle scripts and control gui

diff --git a/control/gui/Buttons2.pm b/control/gui/Buttons2.pm
index 29eb3074301b56baeb42531d91dcb22762c9a28e..eaa14c2462dfa34001ab537aefc1ff0ef42c044a 100644 (file)
--- a/control/gui/Buttons2.pm
+++ b/control/gui/Buttons2.pm
@@ -104,6 +104,7 @@ sub NEW {
     $self->{vl_gb1} = $vl_gb1;
     $vl_gb1->setObjectName( "vl_gb1" );
     $horizontalLayout->addWidget( $groupBox_1 );
+#     $groupBox_1->setStyleSheet("background-color:#dde;font-weight:bold;");
 
 
     my $groupBox_6 = Qt::GroupBox( $centralwidget );
@@ -143,6 +144,7 @@ sub NEW {
     $self->{vl_gb2} = $vl_gb2;
     $vl_gb2->setObjectName( "vl_gb2" );
     $horizontalLayout->addWidget( $groupBox_2 );
+#     $groupBox_2->setStyleSheet("background-color:#dde;font-weight:bold;");
 
     my $groupBox_3 = Qt::GroupBox( $centralwidget );
     $self->{groupBox_3} = $groupBox_3;
@@ -151,6 +153,7 @@ sub NEW {
     $self->{vl_gb3} = $vl_gb3;
     $vl_gb3->setObjectName( "vl_gb3" );
     $horizontalLayout->addWidget( $groupBox_3 );
+    $groupBox_3->setStyleSheet("background-color:#999;font-weight:bold;");
 
 
      
@@ -163,6 +166,7 @@ sub NEW {
     $self->{vl_gb5} = $vl_gb5;
     $vl_gb5->setObjectName( "vl_gb5" );
     $horizontalLayout->addWidget( $groupBox_5 );
+    $groupBox_5->setStyleSheet("background-color:#999;font-weight:bold;");
 
 
 

diff --git a/control/gui/monitor/91_Hmon_Snaphot b/control/gui/daq/91_Hmon_Snaphot
similarity index 100%
rename from control/gui/monitor/91_Hmon_Snaphot
rename to control/gui/daq/91_Hmon_Snaphot

diff --git a/control/gui/monitor/91_Hmon_Snaphot.png b/control/gui/daq/91_Hmon_Snaphot.png
similarity index 100%
rename from control/gui/monitor/91_Hmon_Snaphot.png
rename to control/gui/daq/91_Hmon_Snaphot.png

diff --git a/control/gui/expert/Powercycle_CTS b/control/gui/expert/Powercycle_CTS
new file mode 100755 (executable)
index 0000000..6437753
--- /dev/null
+++ b/control/gui/expert/Powercycle_CTS
@@ -0,0 +1,17 @@
+#!/bin/bash
+
+export myvar=$(doyoureallywant.pl "to powercycle the Triggerbox and Beam Monitoring?")
+if [ $myvar == "256" ]; then exit; fi
+
+
+xterm  -e bash --login -c  '
+  ssh hadaq@lxhadesdaqp "
+  source /home/hadaq/.bash_profile        
+  echo \"Starting a power cycle of CTS...\"
+  cd /home/hadaq/hadesdaq/utils;
+  bash Powercycle_CTS.sh;
+    echo Done
+
+  sleep 5
+  "
+'

diff --git a/control/gui/reboot/10_Quite-A-Lot b/control/gui/reboot/10_Quite-A-Lot
index eca67425572e1c7f9e27eaedeed1a2acac745dbc..30e60bd3244d732a656a760581ab96c869d684bc 100755 (executable)
--- a/control/gui/reboot/10_Quite-A-Lot
+++ b/control/gui/reboot/10_Quite-A-Lot
@@ -22,10 +22,10 @@ for TRB3_SERVER in  trbp088 trbp263 trbp006 trbp262 trbp265 trbp242 trbp074 trbp
   done
 
 echo RICH  
-trbcmd reload 0xfe51  #to prevent a race condition between reset issued by combiner and Dirich not rebooting afterwards
 for TRB3_SERVER in  trb3sc136 trb3sc158 trb3sc144 trb3sc139 trb3sc163 trb3sc153 trb3sc164 trb3sc166 trb3sc137 trb3sc138 trb3sc162 trb3sc141;
   do
     ping \$TRB3_SERVER -c 1 -w 1  >/dev/null 2>&1 || echo \"ERROR contacting \$TRB3_SERVER\"
+    TRB3_SERVER=\$TRB3_SERVER ./trbcmd reload 0xfe51  #to prevent a race condition between reset issued by combiner and Dirich not rebooting afterwards
     TRB3_SERVER=\$TRB3_SERVER ./trbcmd reload 0xffff
     sleep .3
   done

diff --git a/utils/ECAL_LV5_Powercycle.sh b/utils/ECAL_LV5_Powercycle.sh
index 39a19b05259e1a506f89f87fd3e2d54fad251c45..8c1395837c6a6e1516828bc4b2e7c52935e10e30 100755 (executable)
--- a/utils/ECAL_LV5_Powercycle.sh
+++ b/utils/ECAL_LV5_Powercycle.sh
@@ -1,17 +1,19 @@
 #!/bin/bash
 
 echo 'Sending power cycle request'
-echo 'OUTPUT:GENERAL OFF' | ssh odroid6 'cat > /dev/HAMEG_HAMEG_HO720_100030805647'
+#echo 'OUTPUT:GENERAL OFF' | ssh odroid6 'cat > /dev/HAMEG_HAMEG_HO720_100030805647'
+/home/hadaq/trbsoft/daq/utils/HMP_Powersupply.pl 'IP192.168.103.201&HMP&5025&OUTPUT:GENERAL OFF'
 /home/hadaq/trbsoft/daq/utils/HMP_Powersupply.pl 'IP192.168.103.186&HMP&5025&OUTPUT:GENERAL OFF'
 /home/hadaq/trbsoft/daq/utils/HMP_Powersupply.pl 'IP192.168.103.189&HMP&5025&OUTPUT:GENERAL OFF'
 sleep 3
 
 echo 'switching on...'
 
-echo 'OUTPUT:GENERAL ON' | ssh odroid6 'cat > /dev/HAMEG_HAMEG_HO720_100030805647'
+#echo 'OUTPUT:GENERAL ON' | ssh odroid6 'cat > /dev/HAMEG_HAMEG_HO720_100030805647'
+/home/hadaq/trbsoft/daq/utils/HMP_Powersupply.pl 'IP192.168.103.201&HMP&5025&OUTPUT:GENERAL ON'
 /home/hadaq/trbsoft/daq/utils/HMP_Powersupply.pl 'IP192.168.103.186&HMP&5025&OUTPUT:GENERAL ON'
 /home/hadaq/trbsoft/daq/utils/HMP_Powersupply.pl 'IP192.168.103.189&HMP&5025&OUTPUT:GENERAL ON'
-
+echo "Done"
 sleep 5
 
 

diff --git a/utils/MdcTofCentral_Powercycle.pl b/utils/MdcTofCentral_Powercycle.pl
index 6f7617a3570840214eca43d6b5d48c5d2681b067..4fa74358c2d3cc5907a626ae066ad4f96b5eeee3 100755 (executable)
--- a/utils/MdcTofCentral_Powercycle.pl
+++ b/utils/MdcTofCentral_Powercycle.pl
@@ -19,6 +19,6 @@ print "Connected\n";
 Perl2Epics::Put("MDCTOFCENTRLV_Power",1);
 my $data = Perl2Epics::GetAll();
 print $data->{"MDCTOFCENTRLV_Power"}->{val}."\n";
-sleep 8;
+sleep 2;
 Perl2Epics::Put("MDCTOFCENTRLV_Power",0);
 Perl2Epics::Update(0.2);

diff --git a/utils/Powercycle_CTS.sh b/utils/Powercycle_CTS.sh
new file mode 100755 (executable)
index 0000000..c0fb75f
--- /dev/null
+++ b/utils/Powercycle_CTS.sh
@@ -0,0 +1,10 @@
+#!/bin/bash
+
+echo 'Sending power cycle request for CTS'
+
+/home/hadaq/trbsoft/daq/utils/HMP_Powersupply.pl 'IP192.168.103.183&HMP&5025&INST OUT3&OUTP:SEL OFF'
+sleep 3
+/home/hadaq/trbsoft/daq/utils/HMP_Powersupply.pl 'IP192.168.103.183&HMP&5025&INST OUT3&OUTP:SEL ON'
+
+
+sleep 5

diff --git a/utils/Powercycle_Start.sh b/utils/Powercycle_Start.sh
index d9b7bee20d298aebb78f2543925736df8972a086..512babba4d6ed7c6e99bbd4849d5fe82fb735db2 100755 (executable)
--- a/utils/Powercycle_Start.sh
+++ b/utils/Powercycle_Start.sh
@@ -1,11 +1,13 @@
 #!/bin/bash
 
-echo 'Sending power cycle request'
+echo 'Sending power cycle request for iTOF Padiwa'
 
-/home/hadaq/trbsoft/daq/utils/HMP_Powersupply.pl 'IP192.168.103.188&HMP&5025&OUTPUT:GENERAL OFF'
+/home/hadaq/trbsoft/daq/utils/HMP_Powersupply.pl 'IP192.168.103.188&HMP&5025&INST OUT4&OUTP:SEL OFF'
+/home/hadaq/trbsoft/daq/utils/HMP_Powersupply.pl 'IP192.168.103.83&HMP&5025&INST OUT3&OUTP:SEL OFF'
 sleep 3
-/home/hadaq/trbsoft/daq/utils/HMP_Powersupply.pl 'IP192.168.103.188&HMP&5025&OUTPUT:GENERAL ON'
-sleep 5;
+/home/hadaq/trbsoft/daq/utils/HMP_Powersupply.pl 'IP192.168.103.188&HMP&5025&INST OUT4&OUTP:SEL ON'
+/home/hadaq/trbsoft/daq/utils/HMP_Powersupply.pl 'IP192.168.103.83&HMP&5025&INST OUT3&OUTP:SEL ON'
+
 
 # 
 # echo -n 'current status: '

diff --git a/utils/Powercycle_Trigger.sh b/utils/Powercycle_Trigger.sh
old mode 100644 (file)
new mode 100755 (executable)

diff --git a/utils/RICH_Powercycle.pl b/utils/RICH_Powercycle.pl
index 6e05777ddb1b7f490015b3d197bb841ab34c13c7..bc1b95e232fca40a11b7d8c3f1512506a0cfbefd 100755 (executable)
--- a/utils/RICH_Powercycle.pl
+++ b/utils/RICH_Powercycle.pl
@@ -30,3 +30,4 @@ Perl2Epics::GetAll();
 sleep 10;
 Perl2Epics::Put("RICHLV_PowerOn",1);
 Perl2Epics::Update(0.2);
+sleep 10;

diff --git a/utils/Wall_Powercycle.pl b/utils/Wall_Powercycle.pl
new file mode 100755 (executable)
index 0000000..6b2bb34
--- /dev/null
+++ b/utils/Wall_Powercycle.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+use lib "../nettools/";
+use Perl2Epics;
+use Data::Dumper;
+
+#print $ENV{'EPICS_CA_ADDR_LIST'}."\n";
+#print $ENV{'EPICS_CA_AUTO_ADDR_LIST'}."\n";
+
+print "Connect..\n";
+my $s = "HAD:LV:PS:32:SETONOFF";
+my $ret = Perl2Epics::Connect("FWALLLV_Power",$s);
+if(!$ret) {
+    print "Could not connect to ".$s."\nEXITING\n";
+    sleep 5;
+    exit;
+}
+print "Connected\n";
+
+
+Perl2Epics::Put("FWALLLV_Power",1);
+my $data = Perl2Epics::GetAll();
+#print $data->{"FWALLLV_Power"}->{val}."\n";
+sleep 2;
+Perl2Epics::Put("FWALLLV_Power",0);
+Perl2Epics::Update(0.2);