From: hadaq Date: Wed, 16 Apr 2025 12:33:58 +0000 (+0200) Subject: few files updated X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=1d71f9c58ba227d07b0b96c99147f21d515ceda4;p=hadesdaq.git few files updated --- diff --git a/control/gui/expert/HV_Emergency_Off b/control/gui/expert/HV_Emergency_Off new file mode 100755 index 0000000..ad157bc --- /dev/null +++ b/control/gui/expert/HV_Emergency_Off @@ -0,0 +1,15 @@ +#!/bin/bash +export myvar=$(doyoureallywant.pl "to switch off all HV?" "Emergency Shutdown.") +if [ $myvar == "256" ]; then exit; fi + +xterm -geometry 80x24 -bg orange -fg black -e bash --login -c ' + ssh hadaq@lxhadesdaqp " + export DAQOPSERVER=hadesp31 + echo \" Connected to lxhadesdaq...\" + echo \" Shutting off HV...\" + /home/hadaq/trbsoft/hadesdaq/utils/HV_switches.pl all off + echo \"Done\" + sleep 10 +" +' + diff --git a/control/gui/expert/HV_Emergency_Off.png b/control/gui/expert/HV_Emergency_Off.png new file mode 100644 index 0000000..f3d62c5 Binary files /dev/null and b/control/gui/expert/HV_Emergency_Off.png differ diff --git a/control/gui/power/MDC_12_LV b/control/gui/power/MDC_12_LV index 6ce0a44..d34cc9d 100755 --- a/control/gui/power/MDC_12_LV +++ b/control/gui/power/MDC_12_LV @@ -1,6 +1,6 @@ #!/bin/bash -export myvar=$(doyoureallywant.pl "to powercycle the RICH LV?") +export myvar=$(doyoureallywant.pl "to powercycle the MDC 1/2 LV?") if [ $myvar == "256" ]; then exit; fi xterm -e bash --login -c ' @@ -8,7 +8,7 @@ xterm -e bash --login -c ' source /home/hadaq/.bash_profile echo Switch off trigger timeout 1s trbcmd setbit 0x0003 0xa0c0 0x400 - echo \"Starting a RICH power cycle...\" + echo \"Starting a MDC 1/2 power cycle...\" cd /home/hadaq/trbsoft/hadesdaq/utils; PERLLIB=/home/hadaq/EPICS/EPICS-3.15.6/base/lib/perl ./Powercycle_MDCnew.pl; echo Done diff --git a/evtbuild/eb_2023_4builders.conf b/evtbuild/eb_2023_4builders.conf index 1aa867e..1103659 100644 --- a/evtbuild/eb_2023_4builders.conf +++ b/evtbuild/eb_2023_4builders.conf @@ -74,8 +74,8 @@ LTSM_USEFSD: 1 # JAM 9-22: test new api servers #LTSM_FSD_SERVERS: lxfsq12 lxfsq09 lxfsq10 lxfsq11 lxfsq12 -#LTSM_FSD_SERVERS: lxfsq11 lxfsq12 lxfsq15 lxfsq16 lxfsq11 -LTSM_FSD_SERVERS: lxfsq08 lxfsq08 lxfsq10 lxfsq11 lxfsq08 +LTSM_FSD_SERVERS: lxfsq11 lxfsq12 lxfsq15 lxfsq16 lxfsq11 +#LTSM_FSD_SERVERS: lxfsq08 lxfsq09 lxfsq10 lxfsq11 lxfsq08 diff --git a/main/data_sources.db b/main/data_sources.db index abc452d..3c4a05e 100644 --- a/main/data_sources.db +++ b/main/data_sources.db @@ -5,7 +5,7 @@ #Start must be the first for EvtId 0x8800 1 CentralCTS low lxhadeb17 0 0x8810 1 CentralAUX low lxhadeb17 0 -0x8880 0 StartTRB3 low lxhadeb17 2 +0x8880 1 StartTRB3 low lxhadeb17 2 #0x8890 0 Veto mid lxhadeb15 2 0x84c0 1 RPCnew1 mid lxhadeb14 2 0x84c1 1 RPCnew2 mid lxhadeb16 2 @@ -38,9 +38,9 @@ #0x8590 1 MDC34sec4 high lxhadeb14 0 #0x85a0 1 MDC34sec5 high lxhadeb14 0 #0x85b0 1 MDC34sec6 high lxhadeb14 0 -0x8700 1 FW0 mid lxhadeb18 1 -0x8701 1 FW1 mid lxhadeb18 1 -0x8702 1 FW2 mid lxhadeb18 1 +0x8700 1 FW0 mid lxhadeb18 2 +0x8701 1 FW1 mid lxhadeb18 2 +0x8702 1 FW2 mid lxhadeb18 2 0x8a00 1 ECal0 mid lxhadeb16 2 0x8a01 1 ECal1 mid lxhadeb14 2 0x8a02 1 ECal2 mid lxhadeb15 2 diff --git a/oracle/daq2oraclientstart.sh b/oracle/daq2oraclientstart.sh index d2a5164..a901ed4 100755 --- a/oracle/daq2oraclientstart.sh +++ b/oracle/daq2oraclientstart.sh @@ -3,7 +3,9 @@ #JAM feb-2014 # need to specify oracle environment for remote icinga restart: -export ORACLE_HOME=/usr/lib/oracle/12.1/client64 +#export ORACLE_HOME=/usr/lib/oracle/12.1/client64 +# new for debian11 JAM: +export ORACLE_HOME=/usr/lib/oracle/12-alternative/client64 export PATH=$PATH:$ORACLE_HOME/bin export LD_LIBRARY_PATH=$ORACLE_HOME/lib:$LD_LIBRARY_PATH cd /home/hadaq/oper/daq2ora/ diff --git a/oracle/daq2stdout.pl b/oracle/daq2stdout.pl index c82f32c..d1983fd 100755 --- a/oracle/daq2stdout.pl +++ b/oracle/daq2stdout.pl @@ -134,6 +134,8 @@ sub readDB() &readSerialsDB("../../daqtools/base/serials_trb3.db", "VetoHub",1); &readSerialsDB("../../daqtools/base/serials_trb3sc.db", "iTOF-Hub",1); + + #&readSerialsDB("../hub/serials_hub.db", "RPC-Hub",0); #&readSerialsDB("../hub/serials_hub.db", "TOF-Hub",0); #&readSerialsDB("../hub/serials_hub.db", "Wall-Hub",0); @@ -159,6 +161,10 @@ sub readDB() &readSerialsDB("../sts/serials_trb3.db", "Wall",1); &readSerialsDB("../sts/serials_trb3.db", "STS",1); &readSerialsDB("../frpc/serials_trb3.db", "fRPC",1); + # JAM1-2025: new for MDC upgrade: + &readSerialsDB("../../daqtools/base/serials_mdcmbo.db", "MDCnew-TDC",1); + &readSerialsDB("../../daqtools/base/serials_mdcmbo.db", "MDCnew-OEP",1); + &readSerialsDB("../../daqtools/base/serials_trb3sc.db", "MDCnew-Hub",1); #- Read addresses_db #&readAddressesDB("../start/addresses_start.db", "StartVeto"); @@ -190,6 +196,9 @@ sub readDB() &readAddressesDB("../hub/addresses_hub_trb3.db","VetoHub"); &readAddressesDB("../hub/addresses_hub_trb3sc.db","iTOF-Hub"); &readAddressesDB("../hub/addresses_hub_trb3.db","Wall-Hub"); + + # JAM1-2025: new for MDC upgrade: + &readAddressesDB("../hub/addresses_hub_mdcupgrade.db","MDCnew-Hub"); &readAddressesDB("../cts/addresses_cts.db", "CTS"); &readAddressesDB("../start/addresses_trb3sc.db", "CTS"); @@ -212,9 +221,9 @@ sub readDB() #&readAddressesDB("../wall/addresses_wall.db", "Wall"); &readAddressesDB("../sts/addresses_sts.db", "STS"); &readAddressesDB("../frpc/addresses_frpc.db", "fRPC"); - - - + # JAM1-2025: new for MDC upgrade: + &readAddressesDB("../../hades_mdc_settings/settings_oep/auto/addresses_mdc.db", "MDCnew-OEP"); + &readAddressesDB("../../hades_mdc_settings/settings_oep/auto/addresses_mdc.db", "MDCnew-TDC"); } sub readSubEvtIdsDB() @@ -309,7 +318,7 @@ sub readAddressesDB() { my ($file2read, $type) = @_; - #print "readAddressesDB is reading file $file2read for type $type \n "; +#print "readAddressesDB is reading file $file2read for type $type \n "; my $fh = new FileHandle($file2read, "r") or die "could not open file $file2read";; diff --git a/oracle/postgres2orastart.sh b/oracle/postgres2orastart.sh index b166e19..c419aa3 100755 --- a/oracle/postgres2orastart.sh +++ b/oracle/postgres2orastart.sh @@ -3,9 +3,9 @@ #JAM 16-mar-2017 # need to specify oracle environment for remote icinga restart: -export ORACLE_HOME=/usr/lib/oracle/12.1/client64 +export ORACLE_HOME=/usr/lib/oracle/12-alternative/client64 export PATH=$PATH:$ORACLE_HOME/bin export LD_LIBRARY_PATH=$ORACLE_HOME/lib:$LD_LIBRARY_PATH cd /home/hadaq/oper/postgres2ora/ #/home/hadaq/trbsoft/daq/oracle/postgres2ora.pl -opass hades -ppass yyyyyy -o >> postgres2oraFeb24.log 2>&1 -/home/hadaq/trbsoft/daq/oracle/postgres2ora.pl -opass hades -ppass '$report' -o >> postgres2oraFeb24.log 2>&1 +/home/hadaq/trbsoft/daq/oracle/postgres2ora.pl -opass hades -ppass '$report' -o >> postgres2oraApr25deb.log 2>&1 diff --git a/oracle/runinfo2orastart_parallel.sh b/oracle/runinfo2orastart_parallel.sh index 8ae2dde..2053323 100755 --- a/oracle/runinfo2orastart_parallel.sh +++ b/oracle/runinfo2orastart_parallel.sh @@ -8,7 +8,9 @@ #echo "killing old processes:" /bin/pidof -x runinfo2ora.pl /bin/pidof -x runinfo2ora.pl | /usr/bin/xargs /bin/kill '-s 9' # need to specify oracle environment for remote icinga restart: -export ORACLE_HOME=/usr/lib/oracle/12.1/client64 +#export ORACLE_HOME=/usr/lib/oracle/12.1/client64 +export ORACLE_HOME=/usr/lib/oracle/12-alternative/client64 +#export ORACLE_HOME=/usr/lib/oracle/21/client64 export PATH=$PATH:$ORACLE_HOME/bin export LD_LIBRARY_PATH=$ORACLE_HOME/lib:$LD_LIBRARY_PATH /home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb08/eb_runinfo2ora_1.txt > /home/hadaq/log/runinfo2ora_1_log.txt 2>&1 & diff --git a/oracle/runstatsfromora.pl b/oracle/runstatsfromora.pl index 9062b5d..3c1a9c8 100755 --- a/oracle/runstatsfromora.pl +++ b/oracle/runstatsfromora.pl @@ -106,8 +106,8 @@ print "Oracle Connected!\n" if($opt_verb); -my $summary_file = "/home/hadaq/oper/oraruns/runs_feb24.txt"; -my $latest_file = "/home/hadaq/oper/oraruns/current_feb24.txt"; +my $summary_file = "/home/hadaq/oper/oraruns/runs_sep24.txt"; +my $latest_file = "/home/hadaq/oper/oraruns/current_sep24.txt"; #exit(0); diff --git a/oracle/runstatsfromora_testplot.sh b/oracle/runstatsfromora_testplot.sh index a98458a..2206ecc 100755 --- a/oracle/runstatsfromora_testplot.sh +++ b/oracle/runstatsfromora_testplot.sh @@ -2,83 +2,104 @@ # $(date -d @1551679200 "+%Y-%m-%d %H:%M:%S") 0 0 # $(date -d @$((1551679200+offset)) "+%Y-%m-%d %H:%M:%S") $(($offset*25/3600)) $(($offset*20/3600)) # JAM 12-02-2021: adjusted this for feb21 first be run time -# JAM 10-01-2022: TODO for feb22 +# JAM 10-01-2022: TODO for feb22 # JAM 08-01-24 for feb24 +# SSP 01-03-24 for feb24 Au+Au part +# SSP 04-03-24 for feb24 official values -start=1707260400 # 7-feb-24 -breakstart=1707433200 # 9-feb-24 -breakend=1709161200 # 29-feb-24 -end=1711234800 # 24-mar-24 +StartCC=1707282000 # 07-FEB-2024 06:00 +EndCC=1707454800 # 09-FEB-2024 06:00 +StartAuAu=1709182800 # 29-FEB-2024 06:00 +EndAuAu=1711170000 # 23-MAR-2024 06:00 -cat < /tmp/beam_trend.txt +MEventsAnticipatedCCMin=2930 +MEventsAnticipatedCCMax=3130 +MEventsAnticipatedAuAuMin=10000 +MEventsAnticipatedAuAuMax=14000 +MEventsProposedAuAuMin=14000 +MEventsProposedAuAuMax=18000 + +MEventsMax=$((((MEventsAnticipatedCCMax + MEventsProposedAuAuMax + 500) / 1000) * 1000)) + +cat << EOF > /tmp/beam_trend_approved.txt # timestamp real propaganda -$(date -d @$(($start)) "+%Y-%m-%d %H:%M:%S") 0 0 -$(date -d @$(($breakstart)) "+%Y-%m-%d %H:%M:%S") $((($breakstart-$start)*1650/86400)) $((($breakstart-$start)*1450/86400)) -$(date -d @$(($breakend)) "+%Y-%m-%d %H:%M:%S") $((($breakstart-$start)*1650/86400)) $((($breakstart-$start)*1450/86400)) -$(date -d @$(($end+25000)) "+%Y-%m-%d %H:%M:%S") $((($end-$start+$breakstart-$breakend)*1650/86400)) $((($end-$start+$breakstart-$breakend)*1450/86400)) +$(date -d @${StartCC} "+%Y-%m-%d %H:%M:%S") 0 0 +$(date -d @${EndCC} "+%Y-%m-%d %H:%M:%S") ${MEventsAnticipatedCCMin} ${MEventsAnticipatedCCMax} +$(date -d @${StartAuAu} "+%Y-%m-%d %H:%M:%S") ${MEventsAnticipatedCCMin} ${MEventsAnticipatedCCMax} +$(date -d @${EndAuAu} "+%Y-%m-%d %H:%M:%S") $((MEventsAnticipatedCCMin + MEventsAnticipatedAuAuMin)) $((MEventsAnticipatedCCMax + MEventsAnticipatedAuAuMax)) +EOF + +cat << EOF > /tmp/beam_trend_proposal.txt +# timestamp real propaganda +$(date -d @${StartAuAu} "+%Y-%m-%d %H:%M:%S") ${MEventsAnticipatedCCMax} ${MEventsAnticipatedCCMax} +$(date -d @${EndAuAu} "+%Y-%m-%d %H:%M:%S") $((MEventsAnticipatedCCMax + MEventsProposedAuAuMin)) $((MEventsAnticipatedCCMax + MEventsProposedAuAuMax)) EOF -#1.6 million per day nominal + 10% due to PT2 -# TODO: adjust expected rates, different for first period and second -#start=1643778000 #2.2. 6h +# 1.6 million per day nominal + 10% due to PT2 +# TODO: adjust expected rates, different for first period and second +# Proposal: 2 billion events C+C @ 800MeV on 2 days -> Increased to 3.030 billion events to adjust for the high rates run without magnetic field which cannot be used for physics analyses +# Proposal: 3 billion events Au+Au @ 800 and 600MeV each and 0.94 billion events Au+Au @ 400 and 200MeV each on 23 days +# Official decision for Au+Au: Anticipated events: Ideally: 16 billion total, Approved: 12 billion -cat < /tmp/beamtime.txt +cat << EOF > /tmp/scheduled_breaks.txt # timestamp real propaganda -$(date -d @$(($start-1000000)) "+%Y-%m-%d %H:%M:%S") 50000 0 -$(date -d @$(($start-20001)) "+%Y-%m-%d %H:%M:%S") 50000 0 -$(date -d @$(($start-20000)) "+%Y-%m-%d %H:%M:%S") 0 0 -$(date -d @$(($breakstart-1)) "+%Y-%m-%d %H:%M:%S") 0 0 -$(date -d @$(($breakstart)) "+%Y-%m-%d %H:%M:%S") 50000 0 -$(date -d @$(($breakend)) "+%Y-%m-%d %H:%M:%S") 50000 0 -$(date -d @$(($breakend+1)) "+%Y-%m-%d %H:%M:%S") 0 0 -$(date -d @$(($end+25000)) "+%Y-%m-%d %H:%M:%S") 0 0 -$(date -d @$(($end+25001)) "+%Y-%m-%d %H:%M:%S") 50000 0 -$(date -d @$(($end+1000000)) "+%Y-%m-%d %H:%M:%S") 50000 0 +$(date -d @$((StartCC - 7*86400)) "+%Y-%m-%d %H:%M:%S") ${MEventsMax} 0 # One week before the start of C+C +$(date -d @$((StartCC - 1)) "+%Y-%m-%d %H:%M:%S") ${MEventsMax} 0 # Directly before the start of C+C +$(date -d @$((StartCC)) "+%Y-%m-%d %H:%M:%S") 0 0 # At the start of C+C +$(date -d @$((EndCC - 1)) "+%Y-%m-%d %H:%M:%S") 0 0 # Directly before the end of C+C +$(date -d @$((EndCC)) "+%Y-%m-%d %H:%M:%S") ${MEventsMax} 0 # At the end of C+C +$(date -d @$((StartAuAu - 1)) "+%Y-%m-%d %H:%M:%S") ${MEventsMax} 0 # Directly before the start of Au+Au +$(date -d @$((StartAuAu)) "+%Y-%m-%d %H:%M:%S") 0 0 # At the start of Au+Au +$(date -d @$((EndAuAu - 1)) "+%Y-%m-%d %H:%M:%S") 0 0 # Directly before the end of Au+Au +$(date -d @$((EndAuAu)) "+%Y-%m-%d %H:%M:%S") ${MEventsMax} 0 # At the end of Au+Au +$(date -d @$((EndAuAu + 7*86400)) "+%Y-%m-%d %H:%M:%S") ${MEventsMax} 0 # One week after the end of Au+Au +EOF + +cat << EOF > /tmp/magnet_failure.txt +2024-03-04 13:50:00 ${MEventsMax} 0 # At the magnet failure +$(date -d @${EndAuAu} "+%Y-%m-%d %H:%M:%S") ${MEventsMax} 0 # End of beamtime - Unfortunately EOF -gnuplot -p <new( 'bash', "source epics" ); + +my $epics = $env->{envs}{'EPICS_HOME'}.'/base/bin/linux-x86_64/'; + + +system($epics."caput HAD:FWALL:HV:pwonoff_G7 1") if $sys eq 'fwall' && $state eq 'on'; +system($epics."caput HAD:FWALL:HV:pwonoff_G7 0") if ($sys eq 'all' || $sys eq 'fwall') && $state eq 'off'; + +system($epics."caput HAD:TOFHV:pwonoff_G1 1") if $sys eq 'tof' && $state eq 'on'; +system($epics."caput HAD:TOFHV:pwonoff_G2 1") if $sys eq 'tof' && $state eq 'on'; +system($epics."caput HAD:TOFHV:pwonoff_G3 1") if $sys eq 'tof' && $state eq 'on'; +system($epics."caput HAD:TOFHV:pwonoff_G4 1") if $sys eq 'tof' && $state eq 'on'; +system($epics."caput HAD:TOFHV:pwonoff_G5 1") if $sys eq 'tof' && $state eq 'on'; +system($epics."caput HAD:TOFHV:pwonoff_G6 1") if $sys eq 'tof' && $state eq 'on'; +system($epics."caput HAD:TOFHV:pwonoff_G1 0") if ($sys eq 'all' || $sys eq 'tof') && $state eq 'off'; +system($epics."caput HAD:TOFHV:pwonoff_G2 0") if ($sys eq 'all' || $sys eq 'tof') && $state eq 'off'; +system($epics."caput HAD:TOFHV:pwonoff_G3 0") if ($sys eq 'all' || $sys eq 'tof') && $state eq 'off'; +system($epics."caput HAD:TOFHV:pwonoff_G4 0") if ($sys eq 'all' || $sys eq 'tof') && $state eq 'off'; +system($epics."caput HAD:TOFHV:pwonoff_G5 0") if ($sys eq 'all' || $sys eq 'tof') && $state eq 'off'; +system($epics."caput HAD:TOFHV:pwonoff_G6 0") if ($sys eq 'all' || $sys eq 'tof') && $state eq 'off'; + +system($epics."caput HAD:ECAL:HV:pwonoff_G5001 1") if $sys eq 'ecal' && $state eq 'on'; +system($epics."caput HAD:ECAL:HV:pwonoff_G5002 1") if $sys eq 'ecal' && $state eq 'on'; +system($epics."caput HAD:ECAL:HV:pwonoff_G5003 1") if $sys eq 'ecal' && $state eq 'on'; +system($epics."caput HAD:ECAL:HV:pwonoff_G5004 1") if $sys eq 'ecal' && $state eq 'on'; +system($epics."caput HAD:ECAL:HV:pwonoff_G5005 1") if $sys eq 'ecal' && $state eq 'on'; +system($epics."caput HAD:ECAL:HV:pwonoff_G5006 1") if $sys eq 'ecal' && $state eq 'on'; +system($epics."caput HAD:ECAL:HV:pwonoff_G5001 0") if ($sys eq 'all' || $sys eq 'ecal') && $state eq 'off'; +system($epics."caput HAD:ECAL:HV:pwonoff_G5002 0") if ($sys eq 'all' || $sys eq 'ecal') && $state eq 'off'; +system($epics."caput HAD:ECAL:HV:pwonoff_G5003 0") if ($sys eq 'all' || $sys eq 'ecal') && $state eq 'off'; +system($epics."caput HAD:ECAL:HV:pwonoff_G5004 0") if ($sys eq 'all' || $sys eq 'ecal') && $state eq 'off'; +system($epics."caput HAD:ECAL:HV:pwonoff_G5005 0") if ($sys eq 'all' || $sys eq 'ecal') && $state eq 'off'; +system($epics."caput HAD:ECAL:HV:pwonoff_G5006 0") if ($sys eq 'all' || $sys eq 'ecal') && $state eq 'off'; + +system($epics."caput HAD:MDC:HV:pwonoff_DFANOUT 0") if ($sys eq 'all' || $sys eq 'mdc') && $state eq 'off'; +system($epics."caput HAD:MDC:HV:OUT_G41 0") if ($sys eq 'all' || $sys eq 'mdc') && $state eq 'off'; +system($epics."caput HAD:MDC:HV:OUT_G42 0") if ($sys eq 'all' || $sys eq 'mdc') && $state eq 'off'; +system($epics."caput HAD:MDC:HV:OUT_G43 0") if ($sys eq 'all' || $sys eq 'mdc') && $state eq 'off'; +system($epics."caput HAD:MDC:HV:OUT_G44 0") if ($sys eq 'all' || $sys eq 'mdc') && $state eq 'off'; + +system($epics."caput HAD:RPC:HV:OUT_G8 0") if ($sys eq 'all' || $sys eq 'rpc') && $state eq 'off'; + +print "For RICH HV please use the button in the control GUI\n" if $sys eq 'rich' && $state eq 'on'; +system($epics."caput HAD:RICH:HV:CR1:0:All:SwitchOn 0") if ($sys eq 'all' || $sys eq 'rich') && $state eq 'off'; + + +system($epics."caput HAD:MDC:HV:spare:10:pwonoff 0") if ($sys eq 'all' || $sys eq 'start') && $state eq 'off'; +system($epics."caput HAD:MDC:HV:spare:11:pwonoff 0") if ($sys eq 'all' || $sys eq 'start') && $state eq 'off'; +system($epics."caput HAD:MDC:HV:spare:12:pwonoff 0") if ($sys eq 'all' || $sys eq 'start') && $state eq 'off'; +system($epics."caput HAD:MDC:HV:positive:5:pwonoff 0") if ($sys eq 'all' || $sys eq 'start') && $state eq 'off'; +system($epics."caput HAD:MDC:HV:positive:6:pwonoff 0") if ($sys eq 'all' || $sys eq 'start') && $state eq 'off'; + diff --git a/utils/Powercycle_MDCnew.pl b/utils/Powercycle_MDCnew.pl index e1718ea..c3488c4 100755 --- a/utils/Powercycle_MDCnew.pl +++ b/utils/Powercycle_MDCnew.pl @@ -19,6 +19,6 @@ print "Connected\n"; Perl2Epics::Put("MDC_PowerOnOff",1); Perl2Epics::GetAll(); -sleep 8; +sleep 2; Perl2Epics::Put("MDC_PowerOnOff",0); Perl2Epics::Update(0.2);