From 1d71f9c58ba227d07b0b96c99147f21d515ceda4 Mon Sep 17 00:00:00 2001 From: hadaq Date: Wed, 16 Apr 2025 14:33:58 +0200 Subject: [PATCH] few files updated --- control/gui/expert/HV_Emergency_Off | 15 ++++ control/gui/expert/HV_Emergency_Off.png | Bin 0 -> 6482 bytes control/gui/power/MDC_12_LV | 4 +- evtbuild/eb_2023_4builders.conf | 4 +- main/data_sources.db | 8 +- oracle/daq2oraclientstart.sh | 4 +- oracle/daq2stdout.pl | 17 +++- oracle/postgres2orastart.sh | 4 +- oracle/runinfo2orastart_parallel.sh | 4 +- oracle/runstatsfromora.pl | 4 +- oracle/runstatsfromora_testplot.sh | 115 ++++++++++++++---------- start/addresses_dirich5d.db | 4 +- start/set_threshold_start.sh | 1 + start/threshold/thresholds_T0.txt | 80 ++++++++--------- utils/HV_switches.pl | 81 +++++++++++++++++ utils/Powercycle_MDCnew.pl | 2 +- 16 files changed, 239 insertions(+), 108 deletions(-) create mode 100755 control/gui/expert/HV_Emergency_Off create mode 100644 control/gui/expert/HV_Emergency_Off.png create mode 100755 utils/HV_switches.pl 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 0000000000000000000000000000000000000000..f3d62c53043c205c2ee17842f54b6608cd2e1081 GIT binary patch literal 6482 zcmV-Y8Lj4tP)EX>4Tx04R}tkv&MmKpe$iKSa?M1v`j1WT;MdQIU?d3Pq?8YK2xEOfLO`CJjl7 zi=*ILaPVWX>fqw6tAnc`2!4RL3r>nIQsV!TLW>v=j{EWM-sA2a;BQu$Y6cU4s#!)R zl@xOMRiXD4K@1>_IEEx<>T{x)hUfUYhmWs!F`ngp?#~fc3MK=50&#-rhDE$VJiBS> zocD<%tSl+S=fsl+U6A;Z>$1yloJ$V-d1l1OX6A__#6qcyER!B{35wza#g^{ zv49#>NRA);4}N!R7N@7&q)-y*d9m$}aiDh>Xf5?HiQh=tvSOnhB=$rDu@Ga24=JwX!$LRx*rLNL9z`-Ff zQKIa1k9YTV_xA6Zc7H#b405*Z0080u000JJOGiWi{{R3005d0i^8f$<32;bRa{vGh z*8l(w*8xH(n|J^K00(qQO+^Rk1Pcv04nF$w#Q*>oP)S5VRCwCuTX~dJ)t&zCeM>D} z-A(U%vvmVav$Y5=Xmpa9WG2f@oFt=y8yfe>prcVEiu;=2N-{c$NsNh!NzRFroXJeg zaYRrQ7X*O@0il=bwW#W@uBx}+JAb_Qs$W&TDlp-{dFTAjyH)kJ?|a{Gxk~~6&o=@9 zFTZ?le zb;g8nyyL#Lp^fXhKu!d-X_|QHrI)q)II<7W=*1}2Zl)1`cn7& z&N^%VgHOqwj1j@_e%@`*o;}%@PXJ)enl-BefxtGw{L_}_zB_nMsgpU!ssF2)f+ym)U}!#jN#ut*JsEwZ@0mFiJ0E^ z4M^L+e)X&smPN#3*J6x8RaFcQ4iW&!k>DHel$~?c%`IC>`V2wkPaYp=Ic>SJuhem| z1nv2|f0?yEqY{NNz+wR7_C9MC$WNY%u3Frc*;eXW!=qBuKVLahRy5MjxP2YQZ6dwa z-fEojn`e){D+t^?(HKzRgInG%O#@Oq1HwYCY!IiGFRsML>K+DP=n*^Ts zqq~jAg=PP++9ts?0mH~M6EH21XCIB8+1;7h?gxHa2@VOGhXjWRj%g*dwVXH!MWb*& z30{1jcIESr545c4QF;r>@+curmwkE7%!A1^Q4P}uts9Q%fTjV40kZkwq0_rMmACW3 z=O|%JXgvSwc3Dx#fLBrZia1dcN~R%~gnaPaD?5hDA3iqFys{_Ln-4tK9q5wtE^9lO zoFb~G0h$h|&fYcM0D1Dhq0<)3&Fm=V3IH%XCN^GhUAvr7$bd^gz9N`I!Y_Yt^u1Cf z95)YddAsbKt8cMMC;-p1@~iy8!_k)IOEUXQkr1B{7JuW)*25D?qN*yOs(_;8nyP|4 zwsB-d=Pczt&N&!kzSkQa7aP`mt6ffKY!VpDCBc2RS*^zDrAVMB5-5t2z;kX~@yr9! z=AK2F1NpM`0*O!1?u)K(J`$fKT1Ej}OJ{7$*hG*A?-*G=w>|TL_gpU-oO6tf2@MzB z&?cw-+`%D%qbLc}Y4A&*%`ifcE=9r{@06Xh{?4X1xF-#HBf4n;7DL6RyN8+<&d(h5 z1Mlu9l0w%vZ))m0HbJyh8c3z532;AWG9Y)~GS)MzHS=L95=O_xhKtv=$*D9MbV(>s zLkSWH0Py75tM-4~@T>DK`Y6O0ul7%Wwgk^wncBMfq2aULn^-pRY+5r+K+`aF%e@U_ zyL*Fk0ic|7tO|#5ibOCs5I`drP$>}vDB&E8aEZZ^GO%hn%-ShvGZl=tOdulw0tLV4 zd$k|+MMF#63eUTD+YNQr*pD9{Fv>!_MGyc%04U8h0^p-w>D|@W*PqhgACj&oG|fp@nvPfcxm>i*%gEX#iLrfHkuq&d?9R28XT-Pf2{GEv`l zc3A+G0=3_o>mC4@b6w{7KKnUrLYqB_^pYt0Yc2lJQ#E@BhC_?Iz`X%7BP0+AVge$s&4I9|8k~93qI!%Y)ZRY5crMAxSyx?|ZkAz+dOQ<9;}G8iG#qy-pKD@Sno z7OQu7G}M(3Jcoo@bM!}>2F*y>Gzl&NiURD~3w&t}L;#%nReH<1)%ic)+&>QRcroyt zbG)-Ne8x>1>vw265Xca;|FRRISLS5F6U&5 zodU5;+g&t@&>Ky7VQyvD@>=BpW2|^!jEN0b+|(+jGbCD2Bd{z^0)P}vgUhkC9^|JY`FZURxz#QlHjKBoHXbK<<0X;7pn7Kcyb`dIZG5PaH=@R zn#q|x!qJEgz%(Jo#z9k4rQh~(+S%_ohpZ|HrKZ3w%YO2~2=1z`>|9ozIp_uMmm=5R z*e0eG63r{zN-H2s0)WK})p^f99*qG!;n(ZCr>Y7|0+IvXfEXJGbiF7r20-ONl5^La1q?ES&~od8sUVTNg8 zhGn6OF;r2YToS+}5iu$t0Rk(Z2;C+jtSDLc3cp>02fm!_XedI0yN!;E4VSHJ6Vn+o zR1gFQM+LIs;fnULnE0-r0^G89ahKNd$Q{FR&e`M*wKEW=6pVAwWYSJ=dEiyf(Psg{ zU=R(Gh;m&=NY^2mCIn`Iat47j2#g_MS%{b>DlG#M0EQso7!hECWWi_M!Lkt4bvw-( z6m@%A$=VAiI~wYgkNw;r+m#*{8?U*wRY;}Dc#Z-9z%U_w{({*{hDOErI6OTnmRs{L z=+tKaS#LU3qHyTs>4B4SQY}h4pJm2dcPAmP{u4&Fa}P51f?*Y0cP)c z0bK`mfJ#Tgm@`VrH&;(~HaOX#s1jmg!y}vP1V;fhCk7ZM34C$Qti{n0@%^jIMmX<&s&8hCC!>6<`694oLf}vK1at)dCPB zjH4nHK$&TPF!rgzyKPYe${B;kI23^v93z@0;9Ork5 z9tveUHbhek9z4!~N?C$rn13~R_xlLr&@Bc-qy^Uyo#Kdbj?f`y_emTQZoVeIu&qhi z<41yT49MSfgUA=((6(?OD(-ekAS02i59UXH20$egGUq20@J<9g00>TS)F>%9Phu?F za}=gR&^Zc;0_7gQ@y#_K%5d_dd4K2Q7W?W-(rhrw<#YMjRBprto(jRo)RG6 zcvox3z#!d6bi49{X%#%I4h|6ngz=LK-c^BRv1}LF`#W`Cge7M)l{-RZnl=gd-!{Iq zW2W*!o(tFnY`ir}?pUw%QVLeA`)imaaQj2eolK{kaSqN|!NZ!IfC?Ohvy%#*y99uP z)54m7xNSzXMM#8*FJfw(zCz4{RqSmjo{vhDjvT0zoNo+#caM znc(5X7Y>pIn}4ib0fK89OmF?-HE@uJH;nbPG-&&M(_q&;b=A+G8F)Ki30@L3&cQg( z0hyI4v5O#1PA+&3zyyatY$gi&8%_{ZEk=Ixhw_B#kidN=P{Bd|?b^hA-+2Mffrazc zGoOEaa7Qr`CRD|~X!#KyNJ`G3JgqA0ss~*-3qI+@W_xMW|LW>sYE1$eK`hiOVAp{@l zEIZn3N^-%2M+k??7!)F$6!09t1b_-z0QadbRY(3DKrhss(P2du+aGwmHmW%!cJYx)UsG27$=@s;5ABt#S8Ui-??FQH>HHXGC2v;8N}3rLGZll%qGDORtZah zO39}NKgBs>1gHyzKvbik*U12+s59M0f%h&b#K8=1+8!sK{5qYum&0 zzD@P~XjC5bzI_+GJGHcIk-qHP*N^VmNeSPPv1fQJDnJVaeM(o385)B`2_`8)f)bb~ z81Tk8M@k@Q3FNyRvopcEYBTOPQ{--wQ)1WEH#Z;AO`;dLfNoed zU%j-Q_B$lF;N898kg%l7SiJtqv3)ngBoMW6)go6?qB?(YgpkafCyVzw-H1SyR0+jv}r= z2*Ko(*mdvs>IU87GAC+Sj5Pn#rR}tDNFH>jlfB?Y(YB@CM)$dwjqiV1$#8dUARP*W zQCbl2z=4p-P-$4Gqy&;AK$8WeL;(qbA|X(uBmtHzp&}GOvn(QPSYVm~;xnUU0*E{H zI_Dgtt#N!@0mw2C4kK{EdCBs&7Gv1Y72JI)EzEIy@C9MhVx;+NYi%WX=hoc`M$xgQ z3ym&%UjKo26~j(Llwv9z1~aLzPZJIV3=0v>M3u=<#eo`1P)7-BI6%YFL2b>9&;!iW(t^QECs1 zaSk=2;`KS>2!()92nYm#V9?%2$`HEgs(5whY^~2P7WfuI`GbaxljifUY9j+f4heMH z1!QU3S{E7fhFA3+I+RkKplB;W4Fr6%!>64mWB{fpMcnh|hYSNxOeDwE5D*GZTQD%K zgm4()4eMjIUGuaf`RfS09n6xIpv6e@h1ayw!4Wy?#sEp2RzSeHS>;l_WAESgA9~Lj zpyUA3l7xv+2%0EnYw1q|o&!h|f^k8>l*i}ynvARWF>S4dmt#1tQN`(*ti_xal*R;}sVR^_^f#gv@Flbxb5~E}HXFoagva0Zm zBWH^cqyhmXLLsDN8JZwuRpAHT0-#Zfq#$5S5HKkS*;J=;jz48G*pNygK?o?NIF<;u z{QlLlBRM2E=6Sxz_wE|4U)rr6JZ=mqy26^%rb}*UWh3L_kXHpR+rfbChdqmp4(0Eo zhwn_p`3I&6!yTv~1Q|g$RhScsCR9UC0UqiP_R8RI`vQ#7^PHn!RM2ZoRVvf_KW+@JyWf7 zRp7d(EZa(uBn1BP^HcJUouR(y2&tKxnz}E$NGdaW_Nr7;dSmUnBij!imR1#85yCl# zK-kESo)}pZ#f`=^G z?wd+uYV~zBi7nfXb=sqd4gr~zxJ_iQTdQwqfBVoUf#Z|#_yB9HH=8wQv9qSzB&gan zA-ncT2Y>oOM)A)qX5+wvtw=j9j14+;Y1UdeimLl9ouI-@$3A;T5rKrvg|ZPs1< z^@%A;Nje|2*ClrEi!8nK(fS>3y&{U!m8@IZOClmUy+QAYke7t~;=!9oIcVb*>)S|{ z1UDEu(YUP4CSk=gW8T#l#}A02O@g0s2*Mv>0lOg#NL-j>~?tsIAw|1aP6fN zla!K_7j(XTxHq!$w)-2ld%=4bP5O=pcsD_S@QbJYN${${C1GSt9CB3<^b{tp5>_lT z7F@sf*nTewf*`=#21N1Kf2e6prsz=@yldqS0g*D`)TMg!x34`mK`BWVTPFwr@9v76 zanr`8H*>%j4v4^~4siblXOl2zmiAV$o|Q|&+VyR8cuX9Ua!}-8nD+>ds_UNs5-#nh6luYKU!24`(e^9n+-G-)ZKH#&Vtz;b_ ziV%Lex$m^Ov-RVWaK-vIIuf%aRlPE62V7r1+VC^TL6p1Mq%{qzIFF+#{h zvC$v^*tR2b_O-V*zu}{R5`&^ANP_of7Nbp<-q1pZ#vBsl+?Ws!*{WD^ioW#z+eUW@ z0%d-#U|&m+?tHX$ZY)msx=QkvyYBT*U8>D}_R(mJ5G4GT(YxE$9g)vm^X--`MO}b% zp7VzV_fHINTTvnW@R7dLX11#Dxa)NN*6W%UX}ajTW_swTJfwU68J0g;xv*33x#wnk zptblS4ahg%)!KQqU)<}S?_HIy8+Hw{phN3;`u=E~b2i~Vi{JCTzCCo#HMcfw_tvij z0OE(2pLOuik*$eDyy$-gr~h{gcK4?G-qCTnyVzglIOm{*AN$U~j`QXQvo^a#)w^8P zvEGB?fgk>&b{=CO#j=ega`WbE#|B!O*le0VTu1ErElPmigL40O|Gl;fAmzpWvI_u9 zx-uXA*Q@a*SprUQBR*~7W3O`( skx}e(sb}yTB4Ee)Tx`(U7d!y`A1o-YYD}PM3;+NC07*qoM6N<$f-qnNJpcdz literal 0 HcmV?d00001 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); -- 2.43.0