From: Joern Adamczewski-Musch Date: Tue, 27 Jul 2021 18:12:59 +0000 (+0200) Subject: eventbuilder bnet config with new servers 14,15,16 X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=b78a1251a2a280e44867b13a7940e0dfa09aa4c8;p=hadesdaq.git eventbuilder bnet config with new servers 14,15,16 also commit everything else that was changes since.. --- diff --git a/control/gui/expert/Start_Speech_Output b/control/gui/expert/Start_Speech_Output index 8dd0f8a..892f8d5 100755 --- a/control/gui/expert/Start_Speech_Output +++ b/control/gui/expert/Start_Speech_Output @@ -1,5 +1,6 @@ #!/bin/bash ssh hadaq@hadesp50 "killall -USR2 speakdaemon.pl" +ssh hadaq@hades33 "killall -USR2 speakdaemon.pl" diff --git a/control/gui/expert/Stop_Speech_Output b/control/gui/expert/Stop_Speech_Output index 6dd4231..c6b0175 100755 --- a/control/gui/expert/Stop_Speech_Output +++ b/control/gui/expert/Stop_Speech_Output @@ -1,5 +1,5 @@ #!/bin/bash -#ssh hadaq@hades33 "killall -USR1 speakdaemon.pl" +ssh hadaq@hades33 "killall -USR1 speakdaemon.pl" ssh hadaq@hadesp50 "killall -USR1 speakdaemon.pl; pkill -f espeak" diff --git a/control/gui/expert/Thresholds_ECAL b/control/gui/expert/Thresholds_ECAL index b8ff19b..dc182f2 100755 --- a/control/gui/expert/Thresholds_ECAL +++ b/control/gui/expert/Thresholds_ECAL @@ -8,10 +8,8 @@ xterm -geometry 80x24 -bg orange -fg black -e bash --login -c ' echo \" Connected to lxhadesdaq...\" echo \" 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 + cd /home/hadaq/trbsoft/hadesdaq/ecal/ + ./ecal_set_thresholds.pl 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 diff --git a/ecal/register_tdc_ecal.db b/ecal/register_tdc_ecal.db index 8b5651a..fd617fc 100644 --- a/ecal/register_tdc_ecal.db +++ b/ecal/register_tdc_ecal.db @@ -14,16 +14,3 @@ 0xfe71 0 0x50003000 0x83ff00c0 0xffffffff 0x0000ffff 0x00000010 0xaaaaaaaa 0xaaaaaaaa# trb3sc1 TDC -#Start -0x5000 2 0x800a00c8 0 0 0 -0x5001 2 0x800a00c8 0 0 0 -0x5002 2 0x800a00c8 0 0 0 -0x5003 2 0x800a00c8 0 0 0 - -#iTOF -0x5d00 2 0x800a00c8 0 0 0 -0x5d01 2 0x800a00c8 0 0 0 -0x5d02 2 0x800a00c8 0 0 0 -0x5d03 2 0x800a00c8 0 0 0 -0x5d04 2 0x800a00c8 0 0 0 -0x5d05 2 0x800a00c8 0 0 0 diff --git a/evtbuild/eb.conf b/evtbuild/eb.conf index 019b0bb..83f9620 120000 --- a/evtbuild/eb.conf +++ b/evtbuild/eb.conf @@ -1 +1 @@ -eb_bnet_fsd_newservers.conf \ No newline at end of file +eb_2021-test.conf \ No newline at end of file diff --git a/evtbuild/eb_2021-test.conf b/evtbuild/eb_2021-test.conf new file mode 100644 index 0000000..c2302a1 --- /dev/null +++ b/evtbuild/eb_2021-test.conf @@ -0,0 +1,291 @@ +# +# #Install: Run CPAN and install +# perl -MCPAN -e shell +# +# #At CPAN shell prompt +# install Config::Std + +#---------------------------------------------- +[Main] + +# PORT_BASE: 11000 +# WMARK: 60000 +# +# EB_IP: 192.168.100.12 +# EB_OUTDIR: /data/lxhadesdaq/tof_test +# +# # file/null +# EB_OUTDEV: null +# +#EB_EXT: te +# +# # file size in MBytes +# EB_FSIZE: 1500 +# +# EB_EVTID: 1 +# SHMEMNAME: test +# +# QUEUESIZE: 4000000 + +# enable online server: --online +# disable online server: +# ONLINESERVER: --online +# +# # buffer sizes for evtbuild and netmem (MB) +# BUF_SIZE_LOW: 8 +# BUF_SIZE_MID: 16 +# BUF_SIZE_HIGH: 32 + +#---------------------------------------------- +[Parallel] + +# EB IPS NOT USED IF CONF_FROM_DB + +# EB_IP_1: 192.168.100.15 +# EB_IP_2: 192.168.100.12 +# EB_IP_3: 192.168.100.13 +# EB_IP_4: 192.168.100.14 +# EB_IP_5: 192.168.100.11 +# +# # Number of EB processes per server NOT USED IF CONF_FROM_DB +# EB_NUM_1: 1 +# EB_NUM_2: 1 +# EB_NUM_3: 1 +# EB_NUM_4: 1 +# EB_NUM_5: 1 +# +# BASE_PORT: 20100 +# SHIFT_PORT: 100 +# NUM_OF_SOURCES: 1 +# +# QUEUESIZE: 32 + +# JAM 12/2016- +# the following list configures BNET for each EB SERVER node: +# this will always imply DABC eventbuilder software. +# BNETINP gives number of input processes per server node +# BNETBLD gives maximum number of builder processes per node +# set BNETINP to 0 for conventional EB setup +# EB server 0 1 2 3 +#BNETINP: 0 0 0 0 0 +# JAM 26-07-2021: extended for 7 input server nodes +BNETINP: 1 1 1 1 1 1 1 + + +## below enough ltsm connections? default with new servers +BNETBLD: 3 3 3 3 3 0 0 + + +# EB Nr 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 +#EB_LIST: 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 +#EB_LIST: 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 + +# Switch to DABC mode (on=1/off=0) for 16 EB processes +# EB Nr 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 +#DABC: 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 +#DABC: 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + +# Switch multiple disk ctrl via daq_disks (1=on,0=off) +#MULTIDISK: 1 +#WRITE_TO_DISK: 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 +#WRITE_TO_DISK: 1 1 1 1 0 1 1 1 1 0 1 1 1 1 0 0 + + +# Log the output of EB processes (log=1/dev-null=0) (at lxhadeb0j:/tmp/log_eb_i.txt and log_nm_i.txt) +#EB_LOG: 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 +#NM_LOG: 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + +# switch on extended evtbuild debug output for logfile (at lxhadeb0j:/tmp/log_eb_i.txt) +#EB_DEBUG: 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + + + +# Switch (on=1/off=0) EPICS Control of EB processes +# IOC Master is by default the IOC for EB process 1 +#EPICS_CTRL: 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 + +# RFIO switch (on=1/off=0) for 16 EB processes +# EB Nr 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 +#RFIO: 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 +# RFIO: 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 +# +# # RFIO default options for all EB processes +# RFIO_PATH: /hadesnov14raw/prod01 +# RFIO_pcOptions: wb +# #### if LUSTRE fails, switch the following RFIO_iCopyMode to 0: ##### +# # 0 no copy to Lustre/hera +# # 1 copy to Lustre after the file is in the write cash, +# # 2 copy in parallel to Lustre +# RFIO_iCopyMode: 1 +# RFIO_pcCopyPath: /hera/hades/raw/nov14/default +# RFIO_iCopyFraction: 1 +# # Maxfile 100, pathconvention 1 to create new subfolder on lustre after 100 files +# RFIO_iMaxFile: 0 +# RFIO_iPathConvention: 0 + +### JAM May2017 something new: +# LTSM - RFIO successor for tape storage interface +# LTSM switch (on=1/off=0) for upt to 16 EB processes +# EB Nr 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 +LTSM: 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 +#LTSM: 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 +#LTSM: 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 + + +# LTSM default options for all EB processes + +#LTSM_PATH: /lustre/hades/raw/jun19test/default/tsm +LTSM_PATH: /lustre/hades/raw/jun21test +#LTSM_PATH: /hebetest/hades/raw/feb21/ +#LTSM_Server: lxltsm01-tsm-server +LTSM_Server: lxltsm01 + +#LTSM_Node: LTSM_TEST01 +#LTSM_Passwd: LTSM_TEST01 + +#LTSM_Node: hadestest +#LTSM_Passwd: hadestest + +## PRODUCTION SETUP HERE +LTSM_Node: hades +LTSM_Passwd: wDhgcvFF7 +LTSM_Filesystem: /lustre + +# following is for first FSD test setup JAM 4-2020: +# LTSM_Node: hadestest +# LTSM_Passwd: hadestest +# LTSM_Filesystem: /lustre + + +LTSM_USEFSD: 0 +# we need at least 5 entries here (number of eventbuilder servers) +#LTSM_FSD_SERVERS: lxfsd01 lxfsd02-eth lxfsd03 lxfsd01 +#LTSM_FSD_SERVERS: lxfsd04-eth lxfsd07-eth lxfsd04-eth lxfsd07-eth lxfsd04-eth +# setup tests january 2021: +LTSM_FSD_SERVERS: lxfsd06-eth lxfsd02-eth lxfsd03-eth lxfsd07-eth lxfsd05-eth +#LTSM_FSD_SERVERS: lxfsd01-eth lxfsd02 lxfsd03-eth lxfsd01-eth lxfsd02 +#LTSM_FSD_SERVERS: lxfsd01-eth lxfsd03-eth lxfsd01-eth lxfsd03-eth lxfsd01-eth +LTSM_FSD_PORT: 7625 7625 7625 7625 7625 + + + + +########## end LTSM + + + + +# Configure EBs based on info in DB files (1=yes,0=no) +CONF_FROM_DB: 1 + +# Table with active data sources + +DATA_SOURCES: ../main/data_sources.db +GBE_CONF: ../hub/register_configgbe_ip.db +CTS_CONF: ../cts/register_cts.db + + +# +# The following is the individual configuration of EBs +# +#---------------------------------------------- +[EB_PROC_1] + +OUTDIR: /data01/data/ +MULTIDISK: 1 +#RESDOWNSCALE: 20 +#RESNUMEVENTS: 2000 +#RESPATH: /data22/data/res +#RESPATH: /data.local1/data/res +#RESSIZELIMIT: 80 + +#RFIO_pcFile: +#RFIO_pcOptions: + +#---------------------------------------------- +[EB_PROC_2] + +ONLINESERVER: on + +OUTDIR: /data01/data/ + +RESDOWNSCALE: 20 +RESNUMEVENTS: 2000 +RESPATH: /data.local1/data/res +RESSIZELIMIT: 80 + +#RFIO_pcFile: +#RFIO_pcOptions: + +#MULTIDISK: 18 + +#---------------------------------------------- +[EB_PROC_3] + +OUTDIR: /data10/data/ + +#---------------------------------------------- +[EB_PROC_4] + +OUTDIR: /data01/data/ +MULTIDISK: 5 + + +#---------------------------------------------- +[EB_PROC_5] + +OUTDIR: /data01/data/ +MULTIDISK: 2 +#---------------------------------------------- +[EB_PROC_6] + +OUTDIR: /data11/data/ + +#---------------------------------------------- +[EB_PROC_7] + +OUTDIR: /data11/data/ + +#---------------------------------------------- +[EB_PROC_8] +OUTDIR: /data11/data/ + +#---------------------------------------------- +[EB_PROC_9] + +OUTDIR: /data03/data/ +MULTIDISK: 3 +#---------------------------------------------- +[EB_PROC_10] + +OUTDIR: /data.local1/data + +#---------------------------------------------- +[EB_PROC_11] + +OUTDIR: /data12/data/ + +#---------------------------------------------- +[EB_PROC_12] + +OUTDIR: /data12/data/ + +#---------------------------------------------- +[EB_PROC_13] + +OUTDIR: /data04/data/ +MULTIDISK: 4 +#---------------------------------------------- +[EB_PROC_14] + +OUTDIR: /data13/data/ + +#---------------------------------------------- +[EB_PROC_15] + +OUTDIR: /data.local1/data + +#---------------------------------------------- +[EB_PROC_16] + +OUTDIR: /data.local1/data diff --git a/evtbuild/eb_bnet_fsd_newservers.conf b/evtbuild/eb_bnet_fsd_newservers.conf index 923344e..bbfc372 100644 --- a/evtbuild/eb_bnet_fsd_newservers.conf +++ b/evtbuild/eb_bnet_fsd_newservers.conf @@ -145,7 +145,7 @@ LTSM: 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 # LTSM default options for all EB processes #LTSM_PATH: /lustre/hades/raw/jun19test/default/tsm -LTSM_PATH: /lustre/hades/raw/feb21 +LTSM_PATH: /lustre/hades/raw/jun21test #LTSM_PATH: /hebetest/hades/raw/feb21/ #LTSM_Server: lxltsm01-tsm-server LTSM_Server: lxltsm01 @@ -156,21 +156,23 @@ LTSM_Server: lxltsm01 #LTSM_Node: hadestest #LTSM_Passwd: hadestest +## PRODUCTION SETUP HERE LTSM_Node: hades LTSM_Passwd: wDhgcvFF7 LTSM_Filesystem: /lustre # following is for first FSD test setup JAM 4-2020: -# # LTSM_Node: hadestest -# # LTSM_Passwd: hadestest -# # LTSM_Filesystem: /lustre +# LTSM_Node: hadestest +# LTSM_Passwd: hadestest +# LTSM_Filesystem: /lustre LTSM_USEFSD: 0 - # we need at least 5 entries here (number of eventbuilder servers) #LTSM_FSD_SERVERS: lxfsd01 lxfsd02-eth lxfsd03 lxfsd01 -LTSM_FSD_SERVERS: lxfsd04-eth lxfsd07-eth lxfsd04-eth lxfsd07-eth lxfsd04-eth +#LTSM_FSD_SERVERS: lxfsd04-eth lxfsd07-eth lxfsd04-eth lxfsd07-eth lxfsd04-eth +# setup tests january 2021: +LTSM_FSD_SERVERS: lxfsd06-eth lxfsd02-eth lxfsd03-eth lxfsd07-eth lxfsd05-eth #LTSM_FSD_SERVERS: lxfsd01-eth lxfsd02 lxfsd03-eth lxfsd01-eth lxfsd02 #LTSM_FSD_SERVERS: lxfsd01-eth lxfsd03-eth lxfsd01-eth lxfsd03-eth lxfsd01-eth LTSM_FSD_PORT: 7625 7625 7625 7625 7625 diff --git a/evtbuild/start_eb_gbe.pl b/evtbuild/start_eb_gbe.pl index d0d0da9..50cd286 120000 --- a/evtbuild/start_eb_gbe.pl +++ b/evtbuild/start_eb_gbe.pl @@ -1 +1 @@ -start_eb_gbe_newservers_fsd.pl \ No newline at end of file +start_eb_gbe_2021-test.pl \ No newline at end of file diff --git a/evtbuild/start_eb_gbe.sh b/evtbuild/start_eb_gbe.sh index a7ee4aa..45d6d4f 100755 --- a/evtbuild/start_eb_gbe.sh +++ b/evtbuild/start_eb_gbe.sh @@ -1 +1 @@ -./start_eb_gbe.pl -e restart -n 1-16 -d on -p te -b 5; +./start_eb_gbe.pl -e restart -n 1-16 -d on -p te -b 10; diff --git a/evtbuild/start_eb_gbe_2021-test.pl b/evtbuild/start_eb_gbe_2021-test.pl new file mode 100755 index 0000000..4d084a4 --- /dev/null +++ b/evtbuild/start_eb_gbe_2021-test.pl @@ -0,0 +1,1921 @@ +#!/usr/bin/perl -w + +use English; +use strict; +use Getopt::Long; +use Data::Dumper; +use Config::Std; +use FileHandle; +use List::MoreUtils qw(any apply first_index); +use File::Basename; +use Cwd; + +#- Copy all the arguments because +# later on the @ARGV becomes empty +my @arg_list = @ARGV; + +#- the command line option flags +my $opt_help = 0; +my $opt_ebconf = "/home/hadaq/trbsoft/hadesdaq/evtbuild/eb.conf"; +#my $opt_ioc = ""; +my $opt_test = 0; +my $opt_verb = 0; +my $opt_eb = ""; +my @opt_ebrange = (); +#my $opt_rfio = 'undef'; +my $opt_disk = 'undef'; +#my $opt_online = 'undef'; +my $opt_bnet = 3; +my $opt_prefix; + +GetOptions ('h|help' => \$opt_help, + 'c|conf=s' => \$opt_ebconf, + 'e|eb=s' => \$opt_eb, + # 'i|ioc=s' => \$opt_ioc, +# 't|test' => \$opt_test, + 'n|nr=s' => \@opt_ebrange, + 'd|disk=s' => \$opt_disk, +# 'r|rfio=s' => \$opt_rfio, + 'p|prefix=s' => \$opt_prefix, +# 'o|online=s' => \$opt_online, + 'b|bnet=s' => \$opt_bnet, + 'v|verb' => \$opt_verb); + +if ( $opt_help ) { + &help(); + exit(0); +} + +#- List of EBs provided via command line options +my $active_EBs_aref = &setArgs(); + +#- Hash with status of CPU cores of EBs (used for 'taskset') +my %EB_CPU_status; +my $EB_CPU_status_href = \%EB_CPU_status; +&init_CPU_status($EB_CPU_status_href); + +#my $expect_ioc_script = "/tmp/ioc_exit.exp"; +my $log_path = "/home/hadaq/tmp/log"; +my %temp_args; +my $temp_args_href = \%temp_args; +read_config $opt_ebconf => %$temp_args_href; +#print Dumper $temp_args_href; +#exit; + +my @bnetservers = ("192.168.100.8","192.168.100.9","192.168.105.14", "192.168.105.15", "192.168.105.16", "192.168.100.10", "192.168.105.11"); + +#my @bnetservers = ("192.168.100.8","192.168.100.9","192.168.100.10","192.168.105.11", "192.168.105.12"); + +#my @bnetservers = ("192.168.100.10","192.168.100.9","192.168.100.8","192.168.105.11", "192.168.105.12"); + + + +# my %IP_GSI_lookup = ( +# '192.168.100.15' => '140.181.66.160', +# '192.168.100.12' => '140.181.76.94', +# '192.168.100.13' => '140.181.91.154', +# '192.168.100.14' => '140.181.88.20', +# '192.168.100.8' => '140.181.80.62', +# '192.168.100.9' => '140.181.80.64', +# '192.168.100.10' => '140.181.80.68', +# '192.168.105.11' => '140.181.83.135', +# '192.168.105.12' => '140.181.83.168', +# '192.168.105.13' => '140.181.83.176' +# ); + + +my %IP_GSI_lookup = ( + '192.168.100.8' => 'lxhadeb08', + '192.168.100.9' => 'lxhadeb09', + '192.168.100.10' => 'lxhadeb10', + '192.168.105.11' => 'lxhadeb11', + '192.168.105.12' => 'lxhadeb12', + '192.168.105.13' => 'lxhadeb13', + '192.168.105.14' => 'lxhadeb14', + '192.168.105.15' => 'lxhadeb15', + '192.168.105.16' => 'lxhadeb16' + ); + + +my $IP_GSI_href = \%IP_GSI_lookup; + + +my $numOfEBProcs = 0; +my %EB_Args; +my $EB_Args_href = \%EB_Args; + +#my @EB_IP_list; + + + +&getEBArgs( $EB_Args_href ); + +# if ($opt_ioc eq "start") { +# &killIOC(); +# &startIOC(); +# } elsif ($opt_ioc eq "stop") { +# &killIOC(); +# } els + +if ($opt_eb eq "start") { + &writeArgs2file(); + &startEvtBuilders(); +} elsif ($opt_eb eq "stop") { + &stopEvtBuilders(); +} elsif ($opt_eb eq "restart") { + &stopEvtBuilders(); + sleep 1; + &writeArgs2file(); + &startEvtBuilders(); +} + +exit(0); + +################### END OF MAIN #################### + +sub help() { + print "\n"; + print << 'EOF'; +start_eb_gbe.pl + + This script starts parallel Event Building processes. + The script also starts IOC processes for the run control. + +Usage: + + Command line: start_eb_gbe.pl + [-h|--help] : Show this help. + [-c|--conf ] : Path to the config file (default: ../evtbuild/eb.conf). + [-e|--eb ] : Start or stop Event Builders (default: start). + [-p|--prefix ] : Prefix of hld file. + [-b|--bnet ] : Specify number of bnet builder nodes(default: 5). + [-t|--test] : Test without execution. + [-v|--verb] : More verbouse. + +Examples: + + Start 6 EBs with the numbers 1,2,3,5,7 and prefix 'md': + start_eb_gbe.pl -e start -n 1-3 -n 5 -n 7 -p md + + +EOF +} + +sub init_CPU_status() { + + # JAM 17-oct-2018 - for BNET this cpu reservation is deprecated TODO: remove it + my ($EB_CPU_status_href) = @_; + + + # MT 2020-12: reserve lower 16 (8?) cpus for network interrupts + $EB_CPU_status_href->{'192.168.100.8'}->{'input'} = "10-25"; + $EB_CPU_status_href->{'192.168.100.8'}->{'build'} = "26-31"; + $EB_CPU_status_href->{'192.168.100.9'}->{'input'} = "10-25"; + $EB_CPU_status_href->{'192.168.100.9'}->{'build'} = "26-31"; + $EB_CPU_status_href->{'192.168.100.10'}->{'input'} = "10-25"; + $EB_CPU_status_href->{'192.168.100.10'}->{'build'} = "26-31"; + $EB_CPU_status_href->{'192.168.105.11'}->{'input'} = "10-25"; + $EB_CPU_status_href->{'192.168.105.11'}->{'build'} = "26-31"; + $EB_CPU_status_href->{'192.168.105.12'}->{'input'} = "10-25"; + $EB_CPU_status_href->{'192.168.105.12'}->{'build'} = "26-31"; + + # JAM 7-2021: new servers have 64 cores, reserve lower 32 cpus for network interrupts - TODO with new set_eth_affinity.pl + $EB_CPU_status_href->{'192.168.105.14'}->{'input'} = "32-47"; + $EB_CPU_status_href->{'192.168.105.14'}->{'build'} = "48-63"; + $EB_CPU_status_href->{'192.168.105.15'}->{'input'} = "32-47"; + + $EB_CPU_status_href->{'192.168.105.15'}->{'build'} = "48-63"; + $EB_CPU_status_href->{'192.168.105.16'}->{'input'} = "32-47"; + $EB_CPU_status_href->{'192.168.105.16'}->{'build'} = "48-63"; + + # MT, separate scheme, doesn't do so well + #$EB_CPU_status_href->{'192.168.105.12'}->{'input'} = "16-23"; + #$EB_CPU_status_href->{'192.168.105.12'}->{'build'} = "24-31"; + + +} + + +sub getCoreNr() { + #my ($ip) = @_; + my ($ip, $role) = @_; + my $core_nr; + if (defined $role) { + $core_nr = $EB_CPU_status_href->{$ip}->{$role} + } + #else { + ################### begin old + +# foreach my $eb_ip (sort keys %$EB_CPU_status_href) { +# next unless($ip eq $eb_ip); +# +# foreach my $core ( sort {$a <=> $b} keys %{$EB_CPU_status_href->{$eb_ip}} ) { +# my $core_status = $EB_CPU_status_href->{$eb_ip}->{$core}; +# +# next unless(lc($core_status) eq "free"); +# +# $core_nr = $core; +# $EB_CPU_status_href->{$eb_ip}->{$core} = "busy"; +# last; +# } +# } +# +# #- If no free cores left - take reserved cores +# unless( defined $core_nr ){ +# foreach my $eb_ip (sort keys %$EB_CPU_status_href) { +# next unless($ip eq $eb_ip); +# foreach my $core ( sort {$a <=> $b} keys %{$EB_CPU_status_href->{$eb_ip}} ) { +# my $core_status = $EB_CPU_status_href->{$eb_ip}->{$core}; +# if (lc($core_status) eq "res") { +# $core_nr = $core; +# $EB_CPU_status_href->{$eb_ip}->{$core} = "busy"; +# last; +# } +# } +# } +# } + + ################### end old +# } + + unless( defined $core_nr ){ + print "No free cores left on CPU $ip. Exit.\n"; + exit(0); + } + + print "found core numbers $core_nr for node $ip, role $role\n"; + return $core_nr; +} + + + + +sub setArgs() { + my @active_EBs; + + if (@opt_ebrange) { + foreach my $range (@opt_ebrange) { + if ($range =~ /(\d+)-(\d+)/) { + my $max = $1; + my $min = $2; + + foreach my $eb ($max..$min) { + #- 1 must be subtracted to match + # EB numbering in the register_configgbe_ip.db + # which starts from zero + &checkEB_nr($eb); + push(@active_EBs, $eb-1); + } + } elsif ($range =~ /(\d+)/) { + &checkEB_nr($1); + push(@active_EBs, $1-1); + } + } + } + + return \@active_EBs; +} + +sub checkEB_nr() { + my ($eb_nr) = @_; + + if ( $eb_nr < 1 || $eb_nr > 16 ) { + print "ERROR: EB number should be in the range 1-16. Exit."; + exit(0); + } +} + +sub getEBArgs() { + my ($href) = @_; + +# my $prefix = $temp_args_href->{'Main'}->{'EB_EXT'}; +# $prefix = $opt_prefix if( defined $opt_prefix ); +# my $filesize = $temp_args_href->{'Main'}->{'EB_FSIZE'}; +# +# my $base_port = $temp_args_href->{'Parallel'}->{'BASE_PORT'}; +# my $shift_port = $temp_args_href->{'Parallel'}->{'SHIFT_PORT'}; +# my $source_num = $temp_args_href->{'Parallel'}->{'NUM_OF_SOURCES'}; +# my $queuesize = $temp_args_href->{'Parallel'}->{'QUEUESIZE'}; +# +# my $multidisk = $temp_args_href->{'Parallel'}->{'MULTIDISK'}; + + #- Number of EB process + my $ebproc = 0; + + #- List of BEs +# my $listOfEBs = $temp_args_href->{'Parallel'}->{'EB_LIST'}; +# my @eb_list = split(/\s+/, $listOfEBs); +# +# #- DABC mode selection +# my $listOfDABC = $temp_args_href->{'Parallel'}->{'DABC'}; +# my @dabc_list = split(/\s+/, $listOfDABC); + + + # BNET setup: + my $listOfBnetInputs = $temp_args_href->{'Parallel'}->{'BNETINP'}; + my @bnet_in_list = split(/\s+/, $listOfBnetInputs); + + my $listOfBnetBuilders = $temp_args_href->{'Parallel'}->{'BNETBLD'}; + my @bnet_bld_list = split(/\s+/, $listOfBnetBuilders); + #print Dumper @bnet_bld_list; + + + #- Default RFIO settings +# my $rfio = $temp_args_href->{'Parallel'}->{'RFIO'}; +# my $rfio_path = $temp_args_href->{'Parallel'}->{'RFIO_PATH'}; +# my $rfio_pcOptions = $temp_args_href->{'Parallel'}->{'RFIO_pcOptions'}; +# my $rfio_iCopyMode = $temp_args_href->{'Parallel'}->{'RFIO_iCopyMode'}; +# my $rfio_pcCopyPath = $temp_args_href->{'Parallel'}->{'RFIO_pcCopyPath'}; +# my $rfio_iCopyFrac = $temp_args_href->{'Parallel'}->{'RFIO_iCopyFraction'}; +# my $rfio_iMaxFile = $temp_args_href->{'Parallel'}->{'RFIO_iMaxFile'}; +# my $rfio_iPathConv = $temp_args_href->{'Parallel'}->{'RFIO_iPathConvention'}; +# +# my @rfio_list = split(/\s+/, $rfio); + + + + #- LTSM settings + my $listOfLTSM = $temp_args_href->{'Parallel'}->{'LTSM'}; + my @ltsm_list = split(/\s+/, $listOfLTSM); + + my $ltsm_path = $temp_args_href->{'Parallel'}->{'LTSM_PATH'}; + my $ltsm_server = $temp_args_href->{'Parallel'}->{'LTSM_Server'}; + my $ltsm_node = $temp_args_href->{'Parallel'}->{'LTSM_Node'}; + my $ltsm_passwd = $temp_args_href->{'Parallel'}->{'LTSM_Passwd'}; + my $ltsm_filesys = $temp_args_href->{'Parallel'}->{'LTSM_Filesystem'}; + + my $ltsm_usefsd = $temp_args_href->{'Parallel'}->{'LTSM_USEFSD'}; + my $ltsm_fsd_servers = $temp_args_href->{'Parallel'}->{'LTSM_FSD_SERVERS'}; + my @ltsm_fsd_server_list = split(/\s+/, $ltsm_fsd_servers); + my $ltsm_fsd_ports = $temp_args_href->{'Parallel'}->{'LTSM_FSD_PORT'}; + my @ltsm_fsd_port_list = split(/\s+/, $ltsm_fsd_ports); + + #my $ltsm_fsd_port = $temp_args_href->{'Parallel'}->{'LTSM_FSD_PORT'}; + + + #- EPICS Controled +# my $epics_ctrl = $temp_args_href->{'Parallel'}->{'EPICS_CTRL'}; +# +# my @epics_list = split(/\s+/, $epics_ctrl); + + #- Logging the output of EBs +# my $eb_log = $temp_args_href->{'Parallel'}->{'EB_LOG'}; +# my $eb_debug = $temp_args_href->{'Parallel'}->{'EB_DEBUG'}; +# my $nm_log = $temp_args_href->{'Parallel'}->{'NM_LOG'}; +# my @eblog_list = split(/\s+/, $eb_log); +# my @ebdbg_list = split(/\s+/, $eb_debug); +# my @nmlog_list = split(/\s+/, $nm_log); + + + #- Write to disk +# my $write2disk = $temp_args_href->{'Parallel'}->{'WRITE_TO_DISK'}; +# my @write2disk_list = split(/\s+/, $write2disk); + + #--- Read GbE configuration + my %eb_ids_gbe_hash; + my $eb_ids_gbe_href = \%eb_ids_gbe_hash; + + &getGbEconfig($eb_ids_gbe_href); + + #--- Loop over all EB processes + #print Dumper $eb_ids_gbe_href; + #exit; + #foreach my $ebproc ( sort keys %{$eb_ids_gbe_href} ){ + foreach my $ebproc ( 0 .. $#bnetservers) { + + #- If there was a list of EBs provided via command line options + # go to the next $ebproc if the current $ebproc is not in this list. + #print "active EBs:\n"; + #print Dumper $active_EBs_aref; + +# if (@$active_EBs_aref) { +# next unless( any {$_ == $ebproc} @$active_EBs_aref ); #from command line args +# } else { +# next unless( $eb_list[$ebproc] ); #from eb.conf +# } + + + #my $eb_ip = $eb_ids_gbe_href->{$ebproc}->{'IP'}; + + #- Save IP needed by other function to stop EBs. + #push(@EB_IP_list, $eb_ip) unless( any {$_ eq $eb_ip} @EB_IP_list ); + + #- Some checks on number of EB processes + # die "Number of EB processes exceeds the number in RFIO setting! Exit." if($ebproc > $#rfio_list); + # die "Number of EB processes exceeds the number in EPICS_CTRL setting! Exit." if($ebproc > $#epics_list); + #- Here we can overwrite default rfio settings with individual settings per EB processes + # my $procname = sprintf("EB_PROC_%d", 1+$ebproc); + # $rfio_iCopyMode = $temp_args_href->{$procname}->{'RFIO_iCopyMode'}; + + #$href->{$ebproc}->{'IP'} = $eb_ip; + + $href->{$ebproc}->{'IP'} = $bnetservers[$ebproc]; + $href->{$ebproc}->{'EBNUM'} = $ebproc+1; + + #$href->{$ebproc}->{'BASEPORT'} = $base_port; + $href->{$ebproc}->{'PORT_LIST'} = $eb_ids_gbe_href->{$ebproc}->{'port_list'}; + #$href->{$ebproc}->{'SOURCENUM'} = scalar @{$eb_ids_gbe_href->{$ebproc}->{'port_list'}}; + + # JAM2016: bnet requieres udp destination nodes in a list like the ports: + $href->{$ebproc}->{'IP_LIST'} = $eb_ids_gbe_href->{$ebproc}->{'ip_list'}; + + # JAM2018: bnet requieres calibration modes in a list like the ports: + $href->{$ebproc}->{'CALIB_LIST'} = $eb_ids_gbe_href->{$ebproc}->{'calib_list'}; + + # JAM2018: bnet requires hub addresses/subevents in a list like the ports: + $href->{$ebproc}->{'HUB_LIST'} = $eb_ids_gbe_href->{$ebproc}->{'addr_list'}; + +# $href->{$ebproc}->{'BUFSIZE_LIST'} = $eb_ids_gbe_href->{$ebproc}->{'bufsize_list'}; +# $href->{$ebproc}->{'PREFIX'} = $prefix; +# $href->{$ebproc}->{'QUEUESIZE'} = $queuesize; +# $href->{$ebproc}->{'MULTIDISK'} = $multidisk; +# $href->{$ebproc}->{'FILESIZE'} = $filesize; + +# if ( defined $temp_args_href->{$procname}->{'MULTIDISK'} ) { +# $href->{$ebproc}->{'MULTIDISK'} = $temp_args_href->{$procname}->{'MULTIDISK'}; +# } elsif ($multidisk) { +# $href->{$ebproc}->{'MULTIDISK'} = $href->{$ebproc}->{'EBNUM'}; +# } else { +# $href->{$ebproc}->{'MULTIDISK'} = $multidisk; +# } + +# if ( defined $temp_args_href->{$procname}->{'RESDOWNSCALE'} ) { +# $href->{$ebproc}->{'RESDOWNSCALE'} = $temp_args_href->{$procname}->{'RESDOWNSCALE'}; +# $href->{$ebproc}->{'RESNUMEVENTS'} = $temp_args_href->{$procname}->{'RESNUMEVENTS'}; +# $href->{$ebproc}->{'RESPATH'} = $temp_args_href->{$procname}->{'RESPATH'}; +# $href->{$ebproc}->{'RESSIZELIMIT'} = $temp_args_href->{$procname}->{'RESSIZELIMIT'}; +# } +# +# if ( defined $temp_args_href->{$procname}->{'ONLINESERVER'} ) { +# if ($opt_online eq "on") { +# $href->{$ebproc}->{'ONLINESERVER'} = "on"; +# } elsif ($opt_online eq "off") { +# $href->{$ebproc}->{'ONLINESERVER'} = "off"; +# } else { +# $href->{$ebproc}->{'ONLINESERVER'} = $temp_args_href->{$procname}->{'ONLINESERVER'}; +# } +# } else { +# $href->{$ebproc}->{'ONLINESERVER'} = "off"; +# } +# +# $href->{$ebproc}->{'RFIO'} = $rfio_list[$ebproc] if(lc($opt_rfio) eq 'undef'); # 0|1 +# $href->{$ebproc}->{'RFIO'} = 1 if(lc($opt_rfio) eq 'on'); # 0|1 +# $href->{$ebproc}->{'RFIO'} = 0 if(lc($opt_rfio) eq 'off'); # 0|1 +# $href->{$ebproc}->{'RFIO_PATH'} = $rfio_path; +# $href->{$ebproc}->{'RFIO_pcOptions'} = $rfio_pcOptions; +# $href->{$ebproc}->{'RFIO_iCopyMode'} = $rfio_iCopyMode; +# $href->{$ebproc}->{'RFIO_pcCopyPath'} = $rfio_pcCopyPath; +# $href->{$ebproc}->{'RFIO_iCopyFrac'} = $rfio_iCopyFrac; +# $href->{$ebproc}->{'RFIO_iMaxFile'} = $rfio_iMaxFile; +# $href->{$ebproc}->{'RFIO_iPathConv'} = $rfio_iPathConv; + + $href->{$ebproc}->{'LTSM'} = $ltsm_list[$ebproc]; # 0|1 + $href->{$ebproc}->{'LTSM_PATH'} = $ltsm_path; + $href->{$ebproc}->{'LTSM_Server'} = $ltsm_server; + $href->{$ebproc}->{'LTSM_Node'} = $ltsm_node; + $href->{$ebproc}->{'LTSM_Passwd'} = $ltsm_passwd; + $href->{$ebproc}->{'LTSM_Filesystem'} = $ltsm_filesys; + + $href->{$ebproc}->{'LTSM_USEFSD'} = $ltsm_usefsd; + $href->{$ebproc}->{'LTSM_FSD_PORT'} = $ltsm_fsd_port_list[$ebproc]; + $href->{$ebproc}->{'LTSM_FSD_SERVER'} = $ltsm_fsd_server_list[$ebproc]; + +# $href->{$ebproc}->{'EPICS_CTRL'} = $epics_list[$ebproc]; # 0|1 + +# $href->{$ebproc}->{'DABC'} = $dabc_list[$ebproc]; # 0|1 + +# $href->{$ebproc}->{'EB_DEBUG'} = $ebdbg_list[$ebproc]; # 0|1 +# $href->{$ebproc}->{'EB_LOG'} = $eblog_list[$ebproc]; # 0|1 +# $href->{$ebproc}->{'NM_LOG'} = $nmlog_list[$ebproc]; # 0|1 + + # if ($ebproc<7) { + # note that for bnet setup, index does not mean eb number, but machine number! + # we misuse this here to save complexity of setup + $href->{$ebproc}->{'BNET_INP'} = $bnet_in_list[$ebproc]; # 0|1|2... + $href->{$ebproc}->{'BNET_BLD'} = $bnet_bld_list[$ebproc]; # 0|1|2|3 + #print "dump bnet_bld\n"; + #print Dumper \$bnet_bld_list[$ebproc]; +# } + +# if ( $write2disk_list[$ebproc] && lc($opt_disk) eq 'undef' ) { +# if (&isVarDefined($temp_args_href->{$procname}->{'OUTDIR'}, "OUTDIR for $procname")) { +# $href->{$ebproc}->{'OUTDIR'} = $temp_args_href->{$procname}->{'OUTDIR'}; +# } +# } elsif ( lc($opt_disk) eq 'on' ) { +# if (&isVarDefined($temp_args_href->{$procname}->{'OUTDIR'}, "OUTDIR for $procname")) { +# $href->{$ebproc}->{'OUTDIR'} = $temp_args_href->{$procname}->{'OUTDIR'}; +# } +# } elsif ( lc($opt_disk) eq 'off' ) { +# #- do not do anything. If $href->{$ebproc}->{'OUTDIR'} is undefined, +# # the data will go to /dev/null +# } + } #foreach + + $numOfEBProcs = $ebproc; + #print "result\n"; + #print Dumper $ebproc; + # exit; +} + +# sub isVarDefined() { +# my ($var, $msg) = @_; +# +# my $retval = 1; +# +# unless( defined $var ){ +# print "Undefined variable found: $msg\n"; +# $retval = 0; +# } +# return $retval; +# } + +# sub getVarSizeArg() { +# my ($ebproc) = @_; +# +# my $i = 0; +# my $arg = " "; +# +# foreach my $size (@{$EB_Args_href->{$ebproc}->{'BUFSIZE_LIST'}}) { +# +# if ($EB_Args_href->{$ebproc}->{'BUFSIZE_LIST'}->[$i] == +# $EB_Args_href->{$ebproc}->{'QUEUESIZE'}) { +# $i++; +# next; +# } +# +# $arg = $arg . " -Q " . $i . ":" . $EB_Args_href->{$ebproc}->{'BUFSIZE_LIST'}->[$i]; +# $i++; +# } +# +# return $arg; +# } + + +sub startBnet() { + # here we launch the dabc bnet. + # parameters in eb.conf can specify how many input and builder processes run on each node. + # we misuse daq gbe setup for EB 15 to specify ports and destination nodes. + my (@process_list); + # setup for first EB + my $ebproc =0; # setup for first EB will define the BNET + my $username = "hadaq"; + my $cdworkdir = "cd /home/hadaq/oper;"; + + # here the default installation. always the most recent... + my $dabclogin = ". /home/hadaq/soft/dabc/bin/dabclogin.head; "; + my $cmd_dabc = "/home/hadaq/soft/dabc/bin/dabc_exe.head "; + # my $cmd_dabc = "/usr/bin/gdb -x /home/hadaq/soft/dabc/head/base/run/gdbcmd.txt --args /home/hadaq/soft/dabc/bin/dabc_exe.head "; + my $conf_bnet_inp = " BnetInputHades.head.xml"; + #my $conf_bnet_bld = " BnetBuilderHades.head.xml"; + my $conf_bnet_bld = " BnetBuilderHadesFSD.head.xml"; + + # JAM2020- enable this to switch different dabc version: + # my $dabclogin = ". /home/hadaq/soft/dabc/bin/dabclogin.jun20; "; + # my $cmd_dabc = "/home/hadaq/soft/dabc/bin/dabc_exe.jun20 "; + # my $conf_bnet_inp = " BnetInputHades.jun20.xml"; + # my $conf_bnet_bld = " BnetBuilderHadesFSD.jun20.xml"; + + + # variable master node now: + my $bnetmaster = "lxhadeb07"; + #lxhadeb12"; + + # before we start inidividual bnet processes, need to evaluate list of ports and nodes: + # BNETSENDERS=[localhost:12501,localhost:12502] + # BNETRECEIVERS= [localhost:12101,localhost:12102] + # HADAQPORTS =[50000,50001,50002] + + my $bnetsenders = "["; + my $bnetrcvs = "["; + my @bnet_port_list = (); + my @bnet_calib_list = (); + my @bnet_subevt_list = (); + my $firstsnd = 1; + my $firstrcv = 1; + + my $maxbuildservers = 5; #exclude lxhadeb10, lxhadeb11 from data writing JAM2021 + my $maxbuilders=1; + if ($opt_bnet>0 && $opt_bnet <16) { + $maxbuilders=$opt_bnet; + } + + print "Using $maxbuilders event builder nodes from option -b $opt_bnet\n"; + my $totalbuilders=0; + my @localbuilders = (0,0,0,0,0,0,0); # JAM21 entries also for servers that were deactivated as builders + while ($totalbuilders < $maxbuilders) { + my $lasttotalbuilders=$totalbuilders; + for ( my $ebserver=0; $ebserver<$maxbuildservers; $ebserver=$ebserver+1) { + my $bnet_numbuilders = $EB_Args_href->{$ebserver}->{'BNET_BLD'}; + print "numbuilders for $ebserver is $bnet_numbuilders \n"; + if ($totalbuilders < $maxbuilders) { + if ($localbuilders[$ebserver] < $bnet_numbuilders) { + $localbuilders[$ebserver]++; + $totalbuilders++; + print "Added 1 builder on EB server: $ebserver\n"; + } + } + } + if ($totalbuilders==$lasttotalbuilders) { + last; + } # more ebs demanded than configured + } + + for ( my $ebserver=0; $ebserver<$maxbuildservers; $ebserver=$ebserver+1) { + print "Found $localbuilders[$ebserver] builders on EB server: $ebserver\n"; + } + + my $rcvport = 12100; + for ( my $ebserver=0; $ebserver<$#bnetservers+1; $ebserver=$ebserver+1) { + print "Gathering processes at EB server: $ebserver\n"; + my $sendport = 12501; + my $ip = $bnetservers[$ebserver]; + + # JAM2018 - need to transform HADES VLAN IPs into GSI VLAN for BNET! + my $gsi_ip = getIP_hades2gsi($ip); + # array of BNET values is already indexed with server id: + my $bnet_numsenders = $EB_Args_href->{$ebserver}->{'BNET_INP'}; + for (my $six=0; $six<$bnet_numsenders; $six=$six+1) { + $bnetsenders=$bnetsenders . "," unless ($firstsnd>0); + $bnetsenders=$bnetsenders . $gsi_ip.":". $sendport; + $sendport=$sendport+1; + $firstsnd=0 if($firstsnd>0); + } + for (my $rix=0; $rix<$localbuilders[$ebserver]; $rix=$rix+1) { + $bnetrcvs=$bnetrcvs . "," unless ($firstrcv>0); + $bnetrcvs=$bnetrcvs . $gsi_ip.":". $rcvport; + $rcvport=$rcvport+1; + $firstrcv=0 if($firstrcv>0); + } + my $hadaqports = "["; + my $calibflags = "["; + my $subevents = "["; + my $firstport = 1; + + #- add ports: note that we only use eb 1 from hub setup and do check which ports belong to our eb server: + my $ix =0; + foreach my $port (@{$EB_Args_href->{$ebproc}->{'PORT_LIST'}}) { + # here we only gather such ports that are assigned to our node: + # todo: how to distribute the ports to more than one bnet input process per server? + my $cflag = $EB_Args_href->{$ebproc}->{'CALIB_LIST'}[$ix]; + my $hub = $EB_Args_href->{$ebproc}->{'HUB_LIST'}[$ix]; + #print "ip" . $ip . " with port:" . $port ." index:" . $ix . " ip: ". $EB_Args_href->{$ebproc}->{'IP_LIST'}[$ix] . " calib: ". $cflag ." hub: ". $hub ."\n" ; + if ($ip eq $EB_Args_href->{$ebproc}->{'IP_LIST'}[$ix]) { + $hadaqports=$hadaqports . "," unless ($firstport>0); + $hadaqports = $hadaqports . $port; + $calibflags=$calibflags . "," unless ($firstport>0); + $calibflags = $calibflags . $cflag; + $subevents=$subevents . "," unless ($firstport>0); + $subevents = $subevents . $hub; + $firstport=0 if($firstport>0); + } + $ix++; + } + $hadaqports=$hadaqports . "]"; + push(@bnet_port_list, $hadaqports); # ports are per server + $calibflags=$calibflags . "]"; + push(@bnet_calib_list, $calibflags); # flags per server + $subevents=$subevents . "]"; + push(@bnet_subevt_list, $subevents); # flags per server + # print "node ". $gsi_ip . " uses ports ".$hadaqports . ", calibflags " .$calibflags . " hubs: ". $subevents ."\n"; + } + $bnetsenders = $bnetsenders . "]"; + $bnetrcvs = $bnetrcvs . "]"; + + print "bnetsenders: ". $bnetsenders ."\n"; + print "bnetreceivers: ". $bnetrcvs ."\n"; + + my $portid=0; # + my $sendid=0; + + my $bnebport=12100; + for ( my $ebserver=0; $ebserver<$#bnetservers+1; $ebserver=$ebserver+1) { + print "Starting input processes on EB server: $ebserver\n"; + my $ebid=$ebserver + 1; # still need unique eventbuilder ids on cluster because of epics! + my $cpu = $bnetservers[$ebserver]; + + my $gsi_cpu = getIP_hades2gsi($cpu); + # in the following, the port and ip setup of the bnet is taken from ebproc 0 only! + my $bnet_numsenders = $EB_Args_href->{$ebserver}->{'BNET_INP'}; + #my $bnet_numbuilders = $EB_Args_href->{$ebserver}->{'BNET_BLD'}; + print "found $bnet_numsenders senders on node $cpu \n"; + + my $bninpport=12501; + # loop over senders on this node and start them: + for (my $sender=0; $sender<$bnet_numsenders; $sender=$sender+1) { + #my $sendnum= $sender + 1; + my $exports = " export MYHOST=" . $gsi_cpu . ";" . + " export BNETMASTER=" . $bnetmaster . ";" . + #" export BNINPNUM=" . $sendnum . ";" . # need to use different sender numbers on differentnodes + " export BNINPNUM=" . $ebid . ";" . # todo: extend if more than one sender per node + " export BNINPID=" . $sendid . "; " . + " export BNINPPORT=" . $bninpport . "; " . + " export BNETSENDERS=" . $bnetsenders . ";" . + " export BNETRECEIVERS=" . $bnetrcvs . ";" . + " export HADAQPORTS=" . $bnet_port_list[$ebserver] .";" . + " export SUBEVENTS=" . $bnet_subevt_list[$ebserver] .";" . + " export CALIBFLAGS=" . $bnet_calib_list[$ebserver] .";"; + # todo: how to configure situation with more than one bnet input per node? hadaqports must be distributed on them... + # + #my $core_nr = &getCoreNr($cpu) . "," . &getCoreNr($cpu); + my $core_nr = &getCoreNr($cpu, 'input'); + my $exe_dabc = "ssh -n $cpu -l $username \"$dabclogin $cdworkdir $exports taskset -c $core_nr $cmd_dabc $conf_bnet_inp 1senderlog_$cpu.log 2>&1 & (sleep 2; ~/bin/optimize_taskset.sh) &\""; + # my $exe_dabc = "ssh -n $cpu -l $username \"$dabclogin $cdworkdir $exports $cmd_dabc $conf_bnet_inp >senderlog_$cpu.log 2>&1 &\""; + + + my $log = $log_path . "/log_" . $ebserver . "_" . "startBnetInp_". $sender. ".txt"; + #my $log = "/dev/null 2>&1"; + + print "Forking:" . $exe_dabc ."\n"; + forkMe($exe_dabc, $log, \@process_list) unless($opt_test); + + $sendid = $sendid +1; + $bninpport = $bninpport +1; + } # bnet sender/input processes + } # end senders + # todo: loop over builders + + for ( my $ebserver=0; $ebserver<$maxbuildservers; $ebserver=$ebserver+1) { + print "Starting builder processes on EB server: $ebserver\n"; + my $ebid=$ebserver + 1; # still need unique eventbuilder ids on cluster because of epics! (and dabc?) + my $cpu = $bnetservers[$ebserver]; + my $gsi_cpu = getIP_hades2gsi($cpu); + # in the following, the port and ip setup of the bnet is taken from ebproc 15 or 0 only! + #my $bnet_numbuilders = $EB_Args_href->{$ebserver}->{'BNET_BLD'}; + print "start $localbuilders[$ebserver] builders on node $cpu \n"; + + for (my $builder=0; $builder<$localbuilders[$ebserver]; $builder=$builder+1) { + my $exports = " export MYHOST=" . $gsi_cpu . ";" . + " export BNETMASTER=" . $bnetmaster . ";" . + " export BNEBNUM=" . $ebid . ";" . + " export BNEBID=" . $portid . "; " . + " export BNEBPORT=" . $bnebport . "; " . + # ignore prefix at startup. always start without files and show it: + #" export PREFIX=" . $EB_Args_href->{$ebproc}->{'PREFIX'}. "; " . + " export PREFIX=--;" . + " export BNETSENDERS=" . $bnetsenders . ";" . + " export BNETRECEIVERS=" . $bnetrcvs . ";" . + " export HADAQPORTS=" . $bnet_port_list[$ebserver]. "; " ; + + # if ($EB_Args_href->{$ebproc}->{'OUTDIR'} ) { + + + + # no daqdisk demon anymore for raid6- + $exports = $exports . "export DAQDISK=0; export OUTDIR=/data01/data; "; + + # if($EB_Args_href->{$ebproc}->{'MULTIDISK'}){ + # $exports = $exports . "export DAQDISK=1; export OUTDIR=/data01; "; + # } + # else{ + # $exports = $exports . "export DAQDISK=0; export OUTDIR=" . $EB_Args_href->{$ebproc}->{'OUTDIR'} .";"; + # } + + # } + if ( $EB_Args_href->{$ebproc}->{'LTSM'} ) { + + # switch on by number of outputs + $exports = $exports . " export FILEOUTPUTS=3;"; + # additional exports for LTSM + + $exports = $exports . " export LTSMPATH=". $EB_Args_href->{$ebproc}->{'LTSM_PATH'} . ";"; + $exports = $exports . " export LTSMSERVER=". $EB_Args_href->{$ebproc}->{'LTSM_Server'} . ";"; + $exports = $exports . " export LTSMNODE=". $EB_Args_href->{$ebproc}->{'LTSM_Node'} . ";"; + $exports = $exports . " export LTSMPASSWD=". $EB_Args_href->{$ebproc}->{'LTSM_Passwd'} . ";"; + $exports = $exports . " export LTSMFSNAME=". $EB_Args_href->{$ebproc}->{'LTSM_Filesystem'} . ";"; + $exports = $exports . " export DSM_LOG=/home/hadaq/oper/ltsm". $ebid .".log;"; + + # new for file system daemon JAM2020: + if ($EB_Args_href->{$ebproc}->{'LTSM_USEFSD'}) { + $exports = $exports . " export USEFSD=true;"; + $exports = $exports . " export LTSMSESSIONFILES=999999;"; + # increase number of session files if fsd is used: + } else { + $exports = $exports . " export USEFSD=false;"; + $exports = $exports . " export LTSMSESSIONFILES=10;" + } + # $exports = $exports . " export FSDPORT=". $EB_Args_href->{$ebproc}->{'LTSM_FSD_PORT'} . ";"; + # $exports = $exports . " export FSDSERVER=". $EB_Args_href->{$ebproc}->{'LTSM_FSD_SERVER'} . ";"; + my $fsdix=$ebserver % 6; # number of FSD servers used TODO get from configuration + # in this case, server 4 will use first fsd + $exports = $exports . " export FSDPORT=". $EB_Args_href->{$fsdix}->{'LTSM_FSD_PORT'} . ";"; + $exports = $exports . " export FSDSERVER=". $EB_Args_href->{$fsdix}->{'LTSM_FSD_SERVER'} . ";"; + } else { + # no ltsm, just local file + $exports = $exports . " export FILEOUTPUTS=2;"; + } + +# } #outdir +# else { +# $exports = $exports . " export FILEOUTPUTS=1;"; +# # no output except for the stream server... +# } + + my $core_nr = &getCoreNr($cpu, 'build'); + my $exe_dabc = "ssh -n $cpu -l $username \"$dabclogin $cdworkdir $exports taskset -c $core_nr $cmd_dabc $conf_bnet_bld 1builderlog_$cpu.log 2>&1 &\""; + + + my $log = $log_path . "/log_" . $ebserver . "_" . "startBnetBld_". $builder . ".txt"; + #my $log = "/dev/null 2>&1"; + print "Forking:" . $exe_dabc ."\n"; + forkMe($exe_dabc, $log, \@process_list) unless($opt_test); + + $ebid = $ebid + $maxbuildservers; #5 ; # increment ebnum by 5 (JAM2020) per ebserver to re-use EPICS iocs (deprecated, but keep numbering logic JAM2021) + $portid = $portid + 1; + $bnebport = $bnebport +1; + # + } # builder processes + } # servers + + # finally, we need to set eb lut on cts for setup of EB1 => bnet distribution + #trbcmd w 0x0003 0xa0f0 0x8000`; + #`trbcmd w 0x0003 0xa0f0 0x1`; + `trbcmd setbit 0x0003 0xa0f0 0x1`; + # use EB1 as pseude for BNET now + # all calibration triggers also assigned to pseudo EB1=> bnet distribution for the moment + #trbcmd w 0x0003 0xa0f3 0xfff`; + # `trbcmd w 0x0003 0xa0f3 0xff0`; + `trbcmd setbit 0x0003 0xa0f3 0xff0`; + # use EB1 as pseudo receiver for calib triggers + + sleep (5); # seems also to be fine: michael, 2019-02-18 + + # sleep (20) # old # need to wait until forking is done, otherwise it does not work via gui control xterm + +} + + + +sub startEvtBuilders() { + # JAM21 - always use bnet now, disable support of old scheme + # if ( $EB_Args_href->{0}->{'BNET_INP'} ) { + print "Starting Builder network...\n"; + startBnet(); + return; + # } + } + +########################################### +# +# # print "DISABLING regular eventbuilder start for testing!\n"; +# # return; +# ######################################## +# my $username = "hadaq"; +# +# my (@process_list); +# +# foreach my $ebproc (sort {$a <=> $b} keys %$EB_Args_href) { +# +# my $ebnum2print = $ebproc+1; +# print "EB process: $ebnum2print\n"; +# +# if ($ebproc==15) { +# print "Ignore eventbuilder 16, setup is reserved for BNET. \n"; +# return; +# } +# # JAM first test if we should activate dabc eventbuilder or old one +# +# if ( $EB_Args_href->{$ebproc}->{'DABC'} ) { +# print "Starting DABC process..\n"; +# +# #". /home/joern/dabcwork/head/dabclogin;cd /home/joern/dabcwork/head/plugins/hadaq/app; export EBNUM=1; export STREAMS=5; export UDP00=10101; export UDP01=10102; export UDP02=10103; export UDP03=10104; export UDP04=10105 export PREFIX=be; /home/joern/dabcwork/head/bin/dabc_exe EventBuilderHades.xml &" > /dev/null 2>&1 & +# +# my $cpu = $EB_Args_href->{$ebproc}->{'IP'}; +# # JAM old, direct to version +# #my $dabclogin = ". /home/hadaq/soft/dabc/head/dabclogin;"; +# # JAM default: +# #my $dabclogin = ". /home/hadaq/soft/dabc/bin/dabclogin;";# +# #my $dabclogin = ". /home/hadaq/soft/dabc/bin/dabclogin.275;"; +# my $dabclogin = ". /home/hadaq/soft/dabc/bin/dabclogin.head; "; +# # here test special installations: +# my $cdworkdir = "cd /home/hadaq/oper;"; +# +# # JAM old, direct to version +# #my $cmd_dabc = "/home/hadaq/soft/dabc/head/bin/dabc_exe "; +# # JAM default: +# #my $cmd_dabc = "/home/hadaq/soft/dabc/bin/dabc_exe "; +# # here test special installations: +# # my $cmd_dabc = "/home/hadaq/soft/dabc/bin/dabc_exe.275 "; +# my $cmd_dabc = "/home/hadaq/soft/dabc/bin/dabc_exe.head "; +# +# # my $conf_dabc = " EventBuilderHades.xml"; +# # my $conf_dabc = " EventBuilderHades.275.xml"; +# my $conf_dabc = " EventBuilderHades.head.xml"; +# +# my $exports = " export LC_ALL=C;" . +# " export EBNUM=" . $EB_Args_href->{$ebproc}->{'EBNUM'} . "; " . +# " export STREAMS=" . $EB_Args_href->{$ebproc}->{'SOURCENUM'} . "; " . +# " export PREFIX=" . $EB_Args_href->{$ebproc}->{'PREFIX'}. "; " ; +# +# my @port_list = (); +# +# #- add ports +# my $ix =0; +# foreach my $port (@{$EB_Args_href->{$ebproc}->{'PORT_LIST'}}) { +# #$cmd_nm = $cmd_nm . " -i UDP:0.0.0.0:" . $port; +# my $index=sprintf("%02d", $ix++); +# $exports = $exports . " export UDP". $index. "=" . $port . "; "; +# push(@port_list, $port); +# } +# &cpPortList2EB(\@port_list, $EB_Args_href->{$ebproc}->{'EBNUM'}, $cpu); +# +# +# # MULTIDISK +# +# #- add output type +# +# if ($EB_Args_href->{$ebproc}->{'OUTDIR'} ) { +# if ($EB_Args_href->{$ebproc}->{'MULTIDISK'}) { +# $exports = $exports . "export DAQDISK=1; export OUTDIR=/data01; "; +# } else { +# $exports = $exports . "export DAQDISK=0; export OUTDIR=" . $EB_Args_href->{$ebproc}->{'OUTDIR'} .";"; +# } +# if ( $EB_Args_href->{$ebproc}->{'LTSM'} ) { +# $exports = $exports . " export FILEOUTPUTS=3;"; +# # additional exports for LTSM +# +# $exports = $exports . " export LTSMPATH=". $EB_Args_href->{$ebproc}->{'LTSM_PATH'} . ";"; +# $exports = $exports . " export LTSMSERVER=". $EB_Args_href->{$ebproc}->{'LTSM_Server'} . ";"; +# $exports = $exports . " export LTSMNODE=". $EB_Args_href->{$ebproc}->{'LTSM_Node'} . ";"; +# $exports = $exports . " export LTSMPASSWD=". $EB_Args_href->{$ebproc}->{'LTSM_Passwd'} . ";"; +# $exports = $exports . " export LTSMFSNAME=". $EB_Args_href->{$ebproc}->{'LTSM_Filesystem'} . ";"; +# # switch on by number of outputs +# } +# ################## deprecated, keep code for optional testing? +# # JAM 5-2017 - we never run rfio and ltsm in parallel. +# # if( $EB_Args_href->{$ebproc}->{'RFIO'} ){ +# # +# # $exports = $exports . " export FILEOUTPUTS=3;"; +# # # additional exports for RFIO +# # +# # $exports = $exports . " export RFIOPATH=". $EB_Args_href->{$ebproc}->{'RFIO_PATH'} . ";"; +# # $exports = $exports . " export RFIOLUSTREPATH=". $EB_Args_href->{$ebproc}->{'RFIO_pcCopyPath'} . ";"; +# # $exports = $exports . " export RFIOCOPYMODE=". $EB_Args_href->{$ebproc}->{'RFIO_iCopyMode'} . ";"; +# # $exports = $exports . " export RFIOCOPYFRAC=". $EB_Args_href->{$ebproc}->{'RFIO_iCopyFrac'} . ";"; +# # $exports = $exports . " export RFIOMAXFILE=". $EB_Args_href->{$ebproc}->{'RFIO_iMaxFile'} . ";"; +# # $exports = $exports . " export RFIOPATHCONV=". $EB_Args_href->{$ebproc}->{'RFIO_iPathConv'} . ";"; +# # +# # # switch on by number of outputs +# # } +# ####################################### +# else { +# # no rfio, just local file +# $exports = $exports . " export FILEOUTPUTS=2;"; +# } +# +# } #outdir +# else { +# $exports = $exports . " export FILEOUTPUTS=1;"; +# # no output except for the stream server... +# } +# +# +# # EPICSCONTROL ? always enabled for production +# # SMALLFILES for online monitoring node +# +# # Jul14 beamtime setup 3 cores for dabc +# #my $core_nr = &getCoreNr($cpu) . "," . &getCoreNr($cpu) . "," . &getCoreNr($cpu); +# +# # try 2 cores each dabc for more dabc nodes: +# my $core_nr = &getCoreNr($cpu) . "," . &getCoreNr($cpu); +# # my $core_nr = &getCoreNr($cpu); +# # dabc is set to 3 cores +# # JAM use fixed core number for kp1pc092 tests: +# # my $core_nr = 1; +# my $exe_dabc = "ssh -n $cpu -l $username \"$dabclogin $cdworkdir $exports taskset -c $core_nr $cmd_dabc $conf_dabc 1{$ebproc}->{'SOURCENUM'} . +# " -q " . $EB_Args_href->{$ebproc}->{'QUEUESIZE'} . +# " -S " . $EB_Args_href->{$ebproc}->{'EBNUM'} . +# " --ebnum " . $EB_Args_href->{$ebproc}->{'EBNUM'} . +# " -x " . $EB_Args_href->{$ebproc}->{'PREFIX'}; +# +# #- add queue variable size args +# my $varsize_arg = &getVarSizeArg($ebproc); +# $cmd_eb = $cmd_eb . $varsize_arg; +# +# #- add output type +# if ( defined $EB_Args_href->{$ebproc}->{'OUTDIR'} ) { +# if ($EB_Args_href->{$ebproc}->{'MULTIDISK'}) { +# $cmd_eb = $cmd_eb . " -d file -o " . "/data01/data"; +# } else { +# $cmd_eb = $cmd_eb . " -d file -o " . $EB_Args_href->{$ebproc}->{'OUTDIR'}; +# } +# } else { +# $cmd_eb = $cmd_eb . " -d null"; +# } +# +# #- add file size +# $cmd_eb = $cmd_eb . " --filesize " . $EB_Args_href->{$ebproc}->{'FILESIZE'}; +# +# #- add second output with small hdl files +# if ( defined $EB_Args_href->{$ebproc}->{'RESDOWNSCALE'} ) { +# $cmd_eb = $cmd_eb . " --resdownscale " . $EB_Args_href->{$ebproc}->{'RESDOWNSCALE'} . +# " --resnumevents " . $EB_Args_href->{$ebproc}->{'RESNUMEVENTS'} . +# " --respath " . $EB_Args_href->{$ebproc}->{'RESPATH'} . +# " --ressizelimit " . $EB_Args_href->{$ebproc}->{'RESSIZELIMIT'}; +# } +# +# my $cpu = $EB_Args_href->{$ebproc}->{'IP'}; +# +# #- add rfio args +# my $rfio; +# if ( $EB_Args_href->{$ebproc}->{'RFIO'} ) { +# $rfio = " --rfio rfiodaq:gstore:" . $EB_Args_href->{$ebproc}->{'RFIO_PATH'} . +# " --rfiolustre " . $EB_Args_href->{$ebproc}->{'RFIO_pcCopyPath'} . +# " --rfio_pcoption " . $EB_Args_href->{$ebproc}->{'RFIO_pcOptions'} . +# " --rfio_icopymode " . $EB_Args_href->{$ebproc}->{'RFIO_iCopyMode'} . +# " --rfio_icopyfrac " . $EB_Args_href->{$ebproc}->{'RFIO_iCopyFrac'} . +# " --rfio_imaxfile " . $EB_Args_href->{$ebproc}->{'RFIO_iMaxFile'} . +# " --rfio_ipathconv " . $EB_Args_href->{$ebproc}->{'RFIO_iPathConv'}; +# } +# +# $cmd_eb = $cmd_eb . $rfio if( defined $rfio ); +# +# #- add multiple disk arg (ctrl via daq_disks) +# if ($EB_Args_href->{$ebproc}->{'MULTIDISK'} && +# defined $EB_Args_href->{$ebproc}->{'OUTDIR'}) { +# $cmd_eb = $cmd_eb . " --multidisk " . $EB_Args_href->{$ebproc}->{'MULTIDISK'}; +# } +# +# #- add online RPC server +# if ( $EB_Args_href->{$ebproc}->{'ONLINESERVER'} eq "on" ) { +# $cmd_eb = $cmd_eb . " --online"; +# } +# +# #- add epics controlled +# $cmd_eb = $cmd_eb . " --epicsctrl " if( $EB_Args_href->{$ebproc}->{'EPICS_CTRL'} ); +# +# # switch on debug output +# $cmd_eb = $cmd_eb . " --debug trignr --debug errbit --debug word " if( $EB_Args_href->{$ebproc}->{'EB_DEBUG'} ); +# +# +# +# #- logging the output +# my $eblog_file = "/tmp/log_eb_" . $EB_Args_href->{$ebproc}->{'EBNUM'} . ".txt"; +# my $eb_log = "1>$eblog_file 2>$eblog_file"; +# $eb_log = "1>/dev/null 2>/dev/null" unless( $EB_Args_href->{$ebproc}->{'EB_LOG'} ); +# +# my $time = 1. * $ebproc; +# my $sleep_cmd = "sleep " . $time; +# +# my $core_nr = &getCoreNr($cpu); +# +# my $exe_eb = "ssh -n $cpu -l $username \"cd /home/hadaq/oper; export DAQ_SETUP=/home/hadaq/oper/eb; taskset -c $core_nr $cmd_eb $eb_log &\""; +# +# #print "exec: $exe_eb\n"; +# +# #--- Prepare execution of daq_netmem +# my $cmd_nm = "/home/hadaq/bin/daq_netmem" . +# " -m " . $EB_Args_href->{$ebproc}->{'SOURCENUM'} . +# " -q " . $EB_Args_href->{$ebproc}->{'QUEUESIZE'} . +# " -S " . $EB_Args_href->{$ebproc}->{'EBNUM'}; +# +# #- add queue variable size args +# $cmd_nm = $cmd_nm . $varsize_arg; +# +# my @port_list = (); +# +# #- add ports +# foreach my $port (@{$EB_Args_href->{$ebproc}->{'PORT_LIST'}}) { +# #$cmd_nm = $cmd_nm . " -i UDP:0.0.0.0:" . $port; +# $cmd_nm = $cmd_nm . " -i " . $port; +# +# push(@port_list, $port); +# } +# +# &cpPortList2EB(\@port_list, $EB_Args_href->{$ebproc}->{'EBNUM'}, $cpu); +# +# #- logging the output +# my $nmlog_file = "/tmp/log_nm_" . $EB_Args_href->{$ebproc}->{'EBNUM'} . ".txt"; +# my $nm_log = "1>$nmlog_file 2>$nmlog_file"; +# $nm_log = "1>/dev/null 2>/dev/null" unless( $EB_Args_href->{$ebproc}->{'NM_LOG'} ); +# +# $core_nr = &getCoreNr($cpu); +# +# my $exe_nm = "ssh -n $cpu -l $username \"cd /home/hadaq/oper; export DAQ_SETUP=/home/hadaq/oper/eb; taskset -c $core_nr $cmd_nm $nm_log &\""; +# +# #print "exec: $exe_nm\n"; +# +# #--- Open permissions for shared memory +# my $eb_shmem = "daq_evtbuild" . $EB_Args_href->{$ebproc}->{'EBNUM'} . ".shm"; +# my $nm_shmem = "daq_netmem" . $EB_Args_href->{$ebproc}->{'EBNUM'} . ".shm"; +# my $exe_open_eb = "ssh -n $cpu -l $username \"chmod 775 /dev/shm/$eb_shmem\""; +# my $exe_open_nm = "ssh -n $cpu -l $username \"chmod 775 /dev/shm/$nm_shmem\""; +# +# &forkEB($exe_eb, $exe_nm, $exe_open_eb, $exe_open_nm, \@process_list); +# } +# +# } +# # if dabc +# +# #- Wait for children +# foreach my $cur_child_pid (@process_list) { +# waitpid($cur_child_pid,0); +# } + +#} +# foreach + +sub stopEvtBuilders() { + my $username = "hadaq"; + + my @process_list = (); + + #--- Loop over server IPs + # foreach my $ip (@EB_IP_list){ + foreach my $ip (@bnetservers) { + + my $exe = "ssh -n $ip -l $username \"/home/hadaq/bin/cleanup_evtbuild.pl; /home/hadaq/bin/ipcrm.pl\""; + + if ($opt_verb) { + print "Killing running EBs...\n"; + print "Exec: $exe\n"; + } + + my $log = $log_path . "/log_" . $ip . "_" . "stopEB.txt"; + + forkMe($exe, $log, \@process_list) unless($opt_test); + } + + #- Wait for children + foreach my $cur_child_pid (@process_list) { + print "wait for $cur_child_pid\n"; + waitpid($cur_child_pid,0); + } +} + +# sub cpPortList2EB() { +# my ($port_list_aref, $ebnr, $cpu) = @_; +# +# my $tmpfile = "/tmp/eb" . $ebnr . "_" . $cpu . ".txt"; +# +# #- First write ports to tmp file +# my $fh = new FileHandle(">$tmpfile"); +# +# if (!$fh) { +# my $txt = "\nError! Could not open file \"$tmpfile\" for output. Exit.\n"; +# print STDERR $txt; +# print $txt; +# exit(128); +# } +# +# foreach my $port (@$port_list_aref) { +# print $fh "$port\n"; +# } +# +# $fh->close(); +# +# #- Copy this tmp file to EB +# my $exe_cp = "scp $tmpfile hadaq\@$cpu:/tmp/ 1>/dev/null 2>/dev/null"; +# system($exe_cp); +# } + +# sub startIOC() { +# my $ioc_dir = "/home/scs/ebctrl/ioc/iocBoot/iocebctrl"; +# +# &writeIOC_stcmd( $ioc_dir ); +# +# print "Starting IOCs...\n" if($opt_verb); +# +# foreach my $ebproc (keys %$EB_Args_href) { +# +# my $stcmd = sprintf("st_eb%02d.cmd", 1 + $ebproc); +# my $screen_name = sprintf("ioc_eb%02d", 1 + $ebproc); +# +# my $cmd = "bash; . /home/scs/.bashrc; export HOSTNAME=\\\$(hostname); cd $ioc_dir; screen -dmS $screen_name ../../bin/linux-x86_64/ebctrl $stcmd"; +# my $cpu = $EB_Args_href->{$ebproc}->{'IP'}; +# # JAM2016: this is kludge for bnet: +# # first IP in hub configuration of pseude EB15 might be set differently +# # we always reset it to match lxhadeb05 where epics for builder should belong +# if ($ebproc == 15) { +# $cpu='192.168.100.15'; +# } +# #another dirty workaround for bnet at eb0: +# if ($ebproc == 0) { +# $cpu = '192.168.100.8'; +# } +# # end bnet kludge +# my $exe = "ssh -n $cpu -l scs \"$cmd\""; +# +# print "Exec: $exe\n" if($opt_verb); +# system($exe) unless($opt_test); +# } +# } + +# sub smallestEBProcNum() { +# my $smallest = 1000; +# +# foreach my $ebproc (keys %$EB_Args_href) { +# $smallest = $ebproc if($smallest > $ebproc); +# } +# +# return $smallest; +# } + +# sub writeIOC_stcmd() { +# my ($ioc_dir) = @_; +# +# # JAM first evaluate ports for ca list +# my $epicscalist = "192.168.111.255"; +# foreach my $ebproc (keys %$EB_Args_href) { +# $epicscalist=sprintf("%s 192.168.111.255:%d", $epicscalist, 10001 + $ebproc); +# } +# +# print "Copying st.cmd files to servers...\n" if($opt_verb); +# +# my $smallest_ebproc = &smallestEBProcNum(); +# +# foreach my $ebproc (keys %$EB_Args_href) { +# +# my $ebNr = 1 + $ebproc; +# my $ebnum = sprintf("eb%02d", $ebNr); +# my $serverport = 10001+ $ebproc; +# +# #- in MBytes +# my $maxFileSize = $EB_Args_href->{$ebproc}->{'FILESIZE'}; +# +# my $ebtype = "slave"; +# my $comment_genrunid = "#"; +# my $comment_totalevt = "#"; +# +# if ($ebproc == $smallest_ebproc) { +# $ebtype = "master"; +# $comment_genrunid = ""; +# $comment_totalevt = ""; +# } +# +# # if($ebNr == 1){ +# # $comment_totalevt = ""; +# # } +# +# my $ioc_stcmd = < \${TOP}/iocBoot/\${IOC}/$ebnum.dbl +# +# EOF +# +# my $outfile = "/tmp/st_" . $ebnum . ".cmd"; +# my $fh = new FileHandle(">$outfile"); +# +# if (!$fh) { +# my $txt = "\nError! Could not open file \"$outfile\" for output. Exit.\n"; +# print STDERR $txt; +# print $txt; +# exit(128); +# } +# +# print $fh $ioc_stcmd; +# $fh->close(); +# +# my $ip = $EB_Args_href->{$ebproc}->{'IP'}; +# my $cmd = "scp $outfile scs\@$ip:$ioc_dir/."; +# +# print "Exec: $cmd\n" if($opt_verb); +# system($cmd) unless($opt_test); +# } +# } +# +# sub killIOC() { +# my %ioc; +# my $ioc_href = \%ioc; +# +# print "Looking for running IOCs...\n" if($opt_verb); +# +# #--- Loop over server IPs +# +# #foreach my $ip (@EB_IP_list){ +# foreach my $ip (@bnetservers) { +# +# &findRunningIOC($ip, $ioc_href); +# } +# +# #print Dumper \%$ioc_href; +# +# &writeExpectIOC() if(%$ioc_href); +# +# if ($opt_verb) { +# print "Killing running IOCs...\n"; +# print "No IOCs found - nothing to kill, continue...\n" unless(%$ioc_href); +# } +# +# my (@process_list); +# +# foreach my $ip ( %$ioc_href ) { +# foreach my $ioc ( @{$ioc_href->{$ip}} ) { +# +# my $cmd = $expect_ioc_script . " " . $ip . " " . $ioc; +# my $log = $log_path . "/log_" . $ip . "_" . $ioc . ".txt"; +# print "cmd: $cmd\n" if($opt_verb); +# &forkMe($cmd, $log, \@process_list); +# } +# } +# +# +# +# +# #- Wait for children +# foreach my $cur_child_pid (@process_list) { +# waitpid($cur_child_pid,0); +# } +# +# ### just kill the remaining stuff +# @process_list = (); +# +# #foreach my $ip (@EB_IP_list){ +# foreach my $ip (@bnetservers) { +# my $cmd = qq|ssh scs\@$ip "/usr/bin/pkill -f \\"SCREEN -dmS ioc_eb\\""|; +# print $cmd; +# &forkMe($cmd, "/tmp/ioc_kill_$ip", \@process_list); +# } +# +# foreach my $cur_child_pid (@process_list) { +# waitpid($cur_child_pid,0); +# } +# +# #sleep 1; +# +# ### just kill the remaining stuff +# @process_list = (); +# #foreach my $ip (@EB_IP_list){ +# foreach my $ip (@bnetservers) { +# my $cmd = qq|ssh scs\@$ip "/usr/bin/pkill -9 -f \\"SCREEN -dmS ioc_eb\\""|; +# &forkMe($cmd, "/tmp/ioc_kill2_$ip", \@process_list); +# } +# +# foreach my $cur_child_pid (@process_list) { +# waitpid($cur_child_pid,0); +# } +# +# } + +sub forkMe() { + my ($cmd, $log, $proc_list) = @_; + + my $child = fork(); + + if ( $child ) { # parent + push( @$proc_list, $child ); + } elsif ( $child == 0 ) { # child + system("$cmd >$log 2>&1 "); + exit(0); + } else { + print "Could not fork: $!\n"; + exit(1); + } +} + +# sub forkEB() { +# my ($exe_eb, $exe_nm, $exe_open_eb, $exe_open_nm, $proc_list) = @_; +# +# my $child = fork(); +# +# if ( $child ) { # parent +# push( @$proc_list, $child ); +# } elsif ( $child == 0 ) { # child +# #--- Execute Event Builder +# print "Exec: $exe_eb\n" if($opt_verb); +# system($exe_eb) unless($opt_test); +# +# #sleep(1); +# +# #--- Open permissions for EB shared memory +# # ! Permissions should be opened by EB process +# #print "Exec: $exe_open_eb\n" if($opt_verb); +# #system($exe_open_eb) unless($opt_test); +# +# #sleep(2); +# +# #--- Execute Net-2-Memory +# print "Exec: $exe_nm\n" if($opt_verb); +# system($exe_nm) unless($opt_test); +# +# #sleep(1); +# +# #--- Open permissions for NM shared memory +# # ! Permissions should be opened by EB process +# #print "Exec: $exe_open_nm\n" if($opt_verb); +# #system($exe_open_nm) unless($opt_test); +# +# exit(0); +# } else { +# print "Could not fork: $!\n"; +# exit(1); +# } +# } + +# sub findRunningIOC() { +# my ($cpu, $ioc_href) = @_; +# +# `ssh -n $cpu -l scs \"screen -wipe\"`; +# my $exe = "ssh -n $cpu -l scs \"screen -ls\""; +# +# my @output = `$exe`; +# +# foreach my $line (@output) { +# if ($line =~ /\d+\.(ioc_eb\d{2})\s+/) { +# my $name = $1; +# push( @{$ioc_href->{$cpu}}, $name ); +# print "Found IOC: $name on $cpu\n" if($opt_verb); +# } +# } +# } +# +# sub writeExpectIOC() { +# # This expect script can be executed to exit IOC. +# +# #! Look if /tmp dir exists +# my $tmp_dir = dirname("/tmp"); +# if ( !(-d $tmp_dir) ) { +# print "\nCannot access /tmp directory!\nExit.\n"; +# exit(1); +# } +# +# my $expect_script_my = <0} { +# set ip [lindex \$argv 0] +# set iocname [lindex \$argv 1] +# } else { +# send_user "Usage: \$argv0 ip iocname\\n" +# } +# +# spawn ssh scs@\$ip +# +# #expect { +# # "error" { exit; } +# # "login:" { exit; } +# # "Password:" { exit; } +# #} +# +# set timeout 20 +# #240 +# +# expect "~\$ " +# send "screen -r \$iocname\\r" +# expect "epics> " +# send "exit\\r" +# expect "~\$ " +# +# EOF +# +# my $fh = new FileHandle(">$expect_ioc_script"); +# +# if (!$fh) { +# my $txt = "\nError! Could not open file \"$expect_ioc_script\" for output. Exit.\n"; +# print STDERR $txt; +# print $txt; +# exit(128); +# } +# +# print $fh $expect_script_my; +# $fh->close(); +# +# #- open permissions +# system("chmod 755 $expect_ioc_script"); +# } + +sub getGbEconfig() { + # + # Read DB configurations of GbE and CTS, + # look for active data sources as well as + # for EB IPs and ports. + # + + my ($eb_ids_href) = @_; + + my $data_sources = $temp_args_href->{'Parallel'}->{'DATA_SOURCES'}; + my $gbe_conf = $temp_args_href->{'Parallel'}->{'GBE_CONF'}; + #my $cts_conf = $temp_args_href->{'Parallel'}->{'CTS_CONF'}; + + my %activeSources_hash; + my $activeSources_href = \%activeSources_hash; + + &readActiveSources($data_sources, $activeSources_href); + + my @id_list; + my $id_list_aref = \@id_list; + + #&readEBids($cts_conf, $id_list_aref); + + #- Overwrite array with EB numbers + @id_list = (0 .. 15); + #print Dumper $id_list_aref; + + &readEBports($gbe_conf, $activeSources_href, $id_list_aref, $eb_ids_href); +} + +sub readEBids() { + # + # Read EB Ids + # + + my ($file, $id_list_aref) = @_; + + my $nnn_table = 0; + my $val_table = 0; + + my $SPACE = ""; + + my $fh = new FileHandle("$file", "r"); + + while (<$fh>) { + + #- Remove all comments + $_ =~ s{ # Substitue... + \# # ...a literal octothorpe + [^\n]* # ...followed by any number of non-newlines + } + { +$SPACE}gxms; # Raplace it with a single space + + #- Skip line if it contains only whitespaces + next unless(/\S/); + + if (/^(\s+)?!Value\stable/) { + $val_table = 1; + $nnn_table = 0; + next; + } elsif (/^(\s+)?!\w+/) { + $val_table = 0; + $nnn_table = 1; + } + + if ($val_table) { + my (@vals) = split(" ", $_); + my @id_list1 = split("", $vals[12]); + my @id_list2 = split("", $vals[13]); + foreach my $id (@id_list1) { + push(@$id_list_aref, hex($id)); + } + foreach my $id (@id_list2) { + push(@$id_list_aref, hex($id)); + } + } elsif ($nnn_table) { + } + } + + $fh->close; +} + +sub readEBports() { + # + # Read EB IPs and ports accoring to EB Id (type) + # and TRB-Net addresses of active data sources. + # + + my ($file, $activeSources_href, $id_list_aref, $ports_href) = @_; + + my $nnn_table = 0; + my $val_table = 0; + + my $fh = new FileHandle("$file", "r"); + + &isFileDefined($fh, $file); + + my %tmp; + my $tmp_href = \%tmp; + + my $SPACE = ""; + + while (<$fh>) { + + #print $_; + #- Remove all comments + $_ =~ s{ # Substitue... + \# # ...a literal octothorpe + [^\n]* # ...followed by any number of non-newlines + } + { +$SPACE}gxms; # Raplace it with a single space + + #- Skip line if it contains only whitespaces + next unless(/\S/); + + #print $_; + if (/^(\s+)?!Value\stable/) { + $val_table = 1; + $nnn_table = 0; + next; + } elsif (/^(\s+)?!\w+/) { + $nnn_table = 1; + $val_table = 0; + } + + if ($val_table) { + my (@vals) = split(" ", $_); + my $id = $vals[1]; + + #if($id <0 or $id >15) { + # print "error: in $file there is a line with an eventbuilder number different than 0..15, the number given in the file is $id. please correct the config file.\n"; + # exit(128); + #} + + + #- Accept only EB Ids from CTS config file + #print "value: $_"; + next unless( any {$_ eq $id} @$id_list_aref ); + + #print Dumper \@vals; + #print "active sources: "; print Dumper $activeSources_href->{'addr_list'}; + #exit; + + my $ip = &getIP_hex2dec($vals[6]); + my $port = &getPort_hex2dec($vals[2]); + my $addr = $vals[0]; + my $calib = $vals[7]; # jam2018 - add list of trb3 tdc calibration modes + + # print "got: ip: $ip, port: $port, addr: $addr\n"; + #- Accept only sources from active source list + if ( any {hex($_) == hex($addr)} @{$activeSources_href->{'addr_list'}} ) { + $tmp_href->{$id}->{'IP'} = $ip; + push( @{$tmp_href->{$id}->{'port_list'}}, $port ); + push( @{$tmp_href->{$id}->{'addr_list'}}, $addr ); + push( @{$tmp_href->{$id}->{'calib_list'}}, $calib ); + + # JAM2016: for bnet we need the receiver nodes per port as list also: + push( @{$tmp_href->{$id}->{'ip_list'}}, $ip ); + + } + } + } + + $fh->close; + + # print Dumper $tmp_href; + + #- Sort hash according to active data source list + my $numids= scalar keys %tmp; + #print "number of ids: $numids \n"; + foreach my $id (keys %tmp) { + $ports_href->{$id}->{'IP'} = $tmp_href->{$id}->{'IP'}; + + foreach my $addr (@{$activeSources_href->{'addr_list'}}) { + + my $ind1 = first_index {$_ eq $addr} @{$tmp_href->{$id}->{'addr_list'}}; + my $ind2 = first_index {$_ eq $addr} @{$activeSources_href->{'addr_list'}}; + + next if($ind1 == -1); + +# push( @{$ports_href->{$id}->{'port_list'}}, $tmp_href->{$id}->{'port_list'}->[$ind1]); +# # added for bnet JAM: +# push( @{$ports_href->{$id}->{'ip_list'}}, $tmp_href->{$id}->{'ip_list'}->[$ind1]); +# push( @{$ports_href->{$id}->{'calib_list'}}, $tmp_href->{$id}->{'calib_list'}->[$ind1]); +# +# push( @{$ports_href->{$id}->{'addr_list'}}, $addr); +# # push( @{$ports_href->{$id}->{'bufsize_list'}}, $activeSources_href->{'bufsize_list'}->[$ind2]); + + if ($id == 0 && $numids==1) { + # fill all ids of active inputs with setup for id 0 of bnet + foreach my $bid (0 .. $#bnetservers) { + push( @{$ports_href->{$bid}->{'port_list'}}, $tmp_href->{$id}->{'port_list'}->[$ind1]); + push( @{$ports_href->{$bid}->{'ip_list'}}, $tmp_href->{$id}->{'ip_list'}->[$ind1]); + push( @{$ports_href->{$bid}->{'calib_list'}}, $tmp_href->{$id}->{'calib_list'}->[$ind1]); + push( @{$ports_href->{$bid}->{'addr_list'}}, $addr); + #push( @{$ports_href->{$bid}->{'bufsize_list'}}, $activeSources_href->{'bufsize_list'}->[$ind2]); + } + } else { +# #old EB mode/no bnet: config file defines all. DO WE NEED THIS STILL? +# push( @{$ports_href->{$id}->{'port_list'}}, $tmp_href->{$id}->{'port_list'}->[$ind1]); +# # added for bnet JAM: +# #push( @{$ports_href->{$id}->{'ip_list'}}, $tmp_href->{$id}->{'ip_list'}->[$ind1]); +# #push( @{$ports_href->{$id}->{'calib_list'}}, $tmp_href->{$id}->{'calib_list'}->[$ind1]); +# push( @{$ports_href->{$id}->{'addr_list'}}, $addr); +# push( @{$ports_href->{$id}->{'bufsize_list'}}, $activeSources_href->{'bufsize_list'}->[$ind2]); + } + } + } + + #print Dumper $ports_href; +} + +sub readActiveSources() { + # + # Read TRB-Net addresses of active data sources + # + + my ($file, $activeSources_href) = @_; + + my $fh = new FileHandle("$file", "r"); + + &isFileDefined($fh, $file); + + my $SPACE = ""; + + # this one contains list of deactivated data sources + my $log="/home/hadaq/trbsoft/hadesdaq/evtbuild/tmp/EB_NotActiveSources.txt"; + system("truncate -s 0 $log ;"); + while (<$fh>) { + #- Remove all comments + $_ =~ s{ # Substitue... + \# # ...a literal octothorpe + [^\n]* # ...followed by any number of non-newlines + } + { +$SPACE}gxms; # Raplace it with a single space + + #- Skip line if it contains only whitespaces + next unless(/\S/); + + my ($addr, $astat, $sys, $size) = split(" ", $_); + + if ($astat == 0) { + system("echo $addr >> $log 2>&1;"); + next; + } + push( @{$activeSources_href->{'addr_list'}}, $addr); + #push( @{$activeSources_href->{'bufsize_list'}}, &getBufSize($size)); + } + + $fh->close; +} + +# sub getBufSize() { +# my ($bufSize) = @_; +# +# if (lc($bufSize) eq "low") { +# return $temp_args_href->{'Main'}->{'BUF_SIZE_LOW'}; +# } elsif (lc($bufSize) eq "mid") { +# return $temp_args_href->{'Main'}->{'BUF_SIZE_MID'}; +# } elsif (lc($bufSize) eq "high") { +# return $temp_args_href->{'Main'}->{'BUF_SIZE_HIGH'}; +# } else { +# print "Cannot understand $bufSize from data_sources.db.\n"; +# exit(0); +# } +# } + +sub getIP_hex2dec() { + my ($ip_hex) = @_; + + my $ip_dec; + + if ( $ip_hex =~ /0x(\w{2})(\w{2})(\w{2})(\w{2})/ ) { + $ip_dec = hex($1) . "." . hex($2) . "." . hex($3) . "." . hex($4); + } else { + print "getIP_hex2dec(): cannot extract ip address because of diferent format! Exit."; + exit(0); + } + + return $ip_dec; +} + +sub getPort_hex2dec() { + my ($port_hex) = @_; + + my $port_dec; + + if ( $port_hex =~ /0x(\w+)/ ) { + $port_dec = hex($1); + } else { + print "getPort_hex2dec(): cannot extract port number because of diferent format! Exit."; + exit(0); + } + + return $port_dec; +} + +sub getIP_hades2gsi() { + my ($ip_hades) = @_; + my $ip_gsi = ""; + if (exists $IP_GSI_href->{$ip_hades}) { + $ip_gsi = $IP_GSI_href->{$ip_hades}; + } else { + print "getIP_hades2gsi(): WARNING - unknown hades ip $ip_hades"; + } + return $ip_gsi; +} + + + + +sub isFileDefined() { + my ($fh, $name) = @_; + + if (!$fh) { + my $txt = "\nError! Could not open file \'$name\'. Exit.\n"; + print STDERR $txt; + print $txt; + exit(128); + } + + return 0; +} + +sub writeArgs2file() { + my $fileName = $0; + + #- Replace .pl with .sh + $fileName =~ s/\.pl/\.sh/; + + my $fh = new FileHandle(">./$fileName"); + if (!$fh) { + my $txt = "\nError! Could not open file \"$fileName\" for output. Exit.\n"; + print STDERR $txt; + print $txt; + exit(128); + } + + my $current_dir = cwd(); + my $ptogName = $0; + + + #- Write to the file the script name itself + print $fh $0; + + #- Write to the file the arguments + foreach my $arg (@arg_list) { + print $fh " $arg"; + } + print $fh ";\n"; + ## do not start te files by default. user should actively restart the file JAM 29-06-2018 + # here put command to start the correct file prefix in bnet builders: + #my $prefix=$EB_Args_href->{0}->{'PREFIX'}; + #print $fh "/usr/bin/wget -a /tmp/EB_filestart.log -O /tmp/EB_fileres.txt \"http://lxhadeb03:8090/Master/BNET/StartRun/execute?prefix=$prefix&oninit=10\"\n"; + $fh->close(); + + system("chmod 755 ./$fileName"); +} + diff --git a/evtbuild/start_eb_gbe_newservers_fsd.pl b/evtbuild/start_eb_gbe_newservers_fsd.pl index dfe3ca0..121e373 100755 --- a/evtbuild/start_eb_gbe_newservers_fsd.pl +++ b/evtbuild/start_eb_gbe_newservers_fsd.pl @@ -831,7 +831,8 @@ sub startBnet() { # #my $core_nr = &getCoreNr($cpu) . "," . &getCoreNr($cpu); my $core_nr = &getCoreNr($cpu, 'input'); - my $exe_dabc = "ssh -n $cpu -l $username \"$dabclogin $cdworkdir $exports taskset -c $core_nr $cmd_dabc $conf_bnet_inp 1senderlog_$cpu.log 2>&1 & (sleep 2; ~/bin/optimize_taskset.sh) &\""; # my $exe_dabc = "ssh -n $cpu -l $username \"$dabclogin $cdworkdir $exports $cmd_dabc $conf_bnet_inp >senderlog_$cpu.log 2>&1 &\""; @@ -904,7 +905,7 @@ sub startBnet() { } # $exports = $exports . " export FSDPORT=". $EB_Args_href->{$ebproc}->{'LTSM_FSD_PORT'} . ";"; # $exports = $exports . " export FSDSERVER=". $EB_Args_href->{$ebproc}->{'LTSM_FSD_SERVER'} . ";"; - my $fsdix=$ebserver % 3; # number of FSD servers used TODO get from configuration + my $fsdix=$ebserver % 6; # number of FSD servers used TODO get from configuration # in this case, server 4 will use first fsd $exports = $exports . " export FSDPORT=". $EB_Args_href->{$fsdix}->{'LTSM_FSD_PORT'} . ";"; $exports = $exports . " export FSDSERVER=". $EB_Args_href->{$fsdix}->{'LTSM_FSD_SERVER'} . ";"; diff --git a/hmon/Hmon.pm b/hmon/Hmon.pm index d249bd6..fe9cfac 100644 --- a/hmon/Hmon.pm +++ b/hmon/Hmon.pm @@ -100,15 +100,19 @@ my $speaklog; my $oldmsg; sub Speak { my ($id,$str) = @_; -# print "$id $str $speaklog->{$id}\n"; + if (!defined $speaklog->{$id} || $speaklog->{$id} < time()-120) { -# my $cmd = "ssh hades30 'espeak -ven-male2 -s 120 -g 1 \"$str\" ' 2>/dev/null"; return if $id =~ /once/ && (($speaklog->{$id}||0) < time()-600); #print $id." ".$oldmsg->{$id}." ".$str."\n"; #($oldmsg->{$id} eq $str) my $fh; - open($fh, ">>",Hmon::HMONDIR."/files/speaklog"); + if($id =~ /MDC/) { + open($fh, ">>",Hmon::HMONDIR."/files/speaklog_mdc"); + } + else { + open($fh, ">>",Hmon::HMONDIR."/files/speaklog"); + } $fh->autoflush(1); print $fh $str."\n"; $speaklog->{$id} = time(); diff --git a/hmon/QA.pm b/hmon/QA.pm index e181173..789cff9 100644 --- a/hmon/QA.pm +++ b/hmon/QA.pm @@ -54,8 +54,8 @@ $entries->{'feeerr'} = ['feeerr','trginp','trgqual','','']; $entries->{'rich'} = ['temp','LV','bkpl','isob','richthr']; $entries->{'ecal'} = ['temp','count','thr','','']; $entries->{'hv'} = ['richhv','ecalhv','rpchv','fwhv','tofhv']; -$entries->{'hv2'} = ['mdchv','stshv','starthv','sequencer','']; -$entries->{'misc'} = ['irq','calib','magnet','env','']; +$entries->{'hv2'} = ['mdchv','stshv','frpchv','starthv','itofhv']; +$entries->{'misc'} = ['irq','calib','magnet','env','sequencer']; $entries->{'pion'} = ['nxstatus', 'HV', 'HVcurr', 'cooling','seu']; @@ -89,13 +89,13 @@ our @RichInnerTempLimits = (34,34.5,35); our @TrgErrLimits = (100, 1000, 10000); our @CPULimits = (95, 100, 100); our @TimeoutLimits = (0, 0, 1); -our @TimeoutLimitsOnlyRICHMDC = (0, 3, 4); +our @TimeoutLimitsOnlyRICHMDC = (0, 20, 30); our @LinkErrLimits = (50, 500, 1000); -our @MdcEndpMissingLimits = (0, 3, 4); +our @MdcEndpMissingLimits = (3, 30, 30); #!!! Oh dear. our @RichEndpMissingLimits = (0, 3, 4); our @TofEndpMissingLimits = (0, 0, 0); our @RpcEndpMissingLimits = (0, 0, 1); -our @OtherEndpMissingLimits = (0, 0, 0);#!!! +our @OtherEndpMissingLimits = (0, 0, 0); our @EBDeltaRateLimits = (0.1, 0.2, 0.3); # as a ratio compared to the rate our $TrgCheckPolarity = 1; our @Eventsbroken = (.5,2,5); @@ -104,7 +104,7 @@ our @MdcNominalHV = (1750,1770,1900,2150); our $MdcHVOffsetLimits = [[5,10,55],[5,10,55],[5,10,55],[10,110,125]]; our @EcalHvLimits = (493,325,320); our @RpcHvLimits = (12,12,12); -our @TofHvLimits = (766,760,759); +our @TofHvLimits = (764,760,759); our @FwHvLimits = (280,250,200); our @TdcCalibrationInterval = (320000,450000,600000); @@ -123,12 +123,16 @@ use constant {CTSAddress => 0x0003}; ############################################################################### # Switched off systems ############################################################################### -our $MdcHvOff = 1; +our $MdcHvOff = 0; our $RichHvOff = 1; our $TofHvOff = 0; our $RpcHvOff = 0; our $FwHvOff = 1; our $MagnetOff = 1; +our $StsHvOff = 0; +our $StartHvOff = 0; +our $ItofHvOff = 0; +our $FrpcHvOff = 0; ############################################################################### diff --git a/hmon/hmon_calibration.pl b/hmon/hmon_calibration.pl index f3ff640..c2f39ec 100755 --- a/hmon/hmon_calibration.pl +++ b/hmon/hmon_calibration.pl @@ -154,7 +154,7 @@ while(1){ my $all_calib_files_fresh = 1; foreach my $b (keys %{$temp}) { - if(($b&0xF000) == 0x7000 || ($b&0xFF00) == 0x6000 || ($b&0xFF00) == 0x5000 ) { + if(($b&0xF000) == 0x7000 || ($b&0xF000) == 0x6000 || ($b&0xF000) == 0x5000 ) { if ( $calib_file_epochs->{$b}){ if (abs($calib_file_epochs->{$b} - $data->{LastCalibr}{'time'}) <$max_calib_epoch_diff){ } diff --git a/hmon/hmon_cosmic_alarms.pl b/hmon/hmon_cosmic_alarms.pl old mode 100755 new mode 100644 diff --git a/hmon/hmon_dutyfactor.pl b/hmon/hmon_dutyfactor.pl old mode 100755 new mode 100644 index 129f8ef..a222b7b --- a/hmon/hmon_dutyfactor.pl +++ b/hmon/hmon_dutyfactor.pl @@ -89,7 +89,7 @@ my $iter = 0; while(1) { - my $o = trb_registertime_read_mem(0x5000,0xc000,0,17); + my $o = trb_registertime_read_mem(0xfe74,0xc000,0,49); #Just the usual calculation of differences on counters & normalization based on time between reads. if (defined $old) { @@ -108,14 +108,14 @@ while(1) { #sum strips & store my $sum = 0; - for my $c (1..16) { - next if $c == 9; #remove noisy ch. 15 to disable it 2019-03-26 - $sum += $diff->{0x5000}[$c]; + for my $c (1..47) { + $sum += $diff->{0x5000}[$c] if ($diff->{0x5000}[$c]); + $sum += $diff->{0x5001}[$c] if ($diff->{0x5001}[$c]); } # $sum = $dummy[$iter++]; #You can't do that on stage push(@store,$sum); - $empties++ if $sum < 10; + $empties++ if $sum < 100; #end of spill my $lastsum = 0; diff --git a/hmon/hmon_ecalrate.pl b/hmon/hmon_ecalrate.pl index 9c3b3fc..27e6aeb 100755 --- a/hmon/hmon_ecalrate.pl +++ b/hmon/hmon_ecalrate.pl @@ -104,7 +104,7 @@ xmax => 47.5, cbmax => "100<*<1E5", cbmin => 0, noinit => 1, -additional => "set logscale cb;unset ytics;set format cb \"_{10}{\%L}\"", +additional => "set logscale cb;unset ytics;set format cb \"_{10}{\%L}\";set xtics ('0' -0.5, '8' 7.5, '16' 15.5, '24' 23.5, '32' 31.5, '40' 39.5); set grid xtics front;", showvalues => 0, }); my $str = Hmon::MakeTitle(16, 20, "ECal Hit Rate",0); diff --git a/hmon/hmon_endpoints.pl b/hmon/hmon_endpoints.pl index 689a1e5..69feb74 100755 --- a/hmon/hmon_endpoints.pl +++ b/hmon/hmon_endpoints.pl @@ -136,7 +136,7 @@ while(1) { 0x7070,0x7071,0x7080,0x7081,0x7090,0x7091, ); -#TOF -> is TOF, RPC, fRPC +#TOF -> is TOF, RPC, fRPC, FW my @tof_boards =( 0x86c0,0x5c00,0x5c01,0x5c02,0x5c03, 0x86c1,0x5c10,0x5c11,0x5c12,0x5c13, @@ -154,6 +154,11 @@ while(1) { 0x5840,0x5841,0x5842,0x5843,0x5844,0x5845,0x5846,0x5847,0x5848, 0x5850,0x5851,0x5852,0x5853,0x5854,0x5855,0x5856,0x5857,0x5858, +0x8700,0x8701,0x8702, +0x6700,0x6701,0x6702,0x6703, +0x6710,0x6711,0x6712,0x6713, +0x6720,0x6721,0x6722,0x6723, + ); #RPC -> is ECAL, STS @@ -180,7 +185,7 @@ while(1) { 0x6460, 0x6461, 0x6462, 0x6463, 0x6464, 0x6465, 0x6470, 0x6471, 0x6472, 0x6473, 0x6474, 0x6475, #fRPC - 0x8c00,0x6800,0x6801,0x6802,0x6803, +# 0x8c00,0x6800,0x6801,0x6802,0x6803, 0x8c10,0x6810,0x6811,0x6812,0x6813, ); @@ -190,7 +195,8 @@ while(1) { #central hub 0x8000,0x8011,0x8012,0x8013,0x8014,0x8800, 0x8810, #innerTOF - 0x8d00,0x5d00,0x5d01,0x5d02,0x5d03,0x5d04,0x5d05, +# 0x8d00,0x5d00,0x5d01,0x5d02,0x5d03,0x5d04,0x5d05, + 0x8d00,0x5d01,0x5d04, # #Pion # 0x8900,0x3800,0x3801, # 0x8910,0x3810,0x3811, @@ -267,6 +273,8 @@ while(1) { if ($num_rich_mistake > 0) {$rich_longtext .= " Endp @{$rich_results[4]} not known";} + $qastate = QA::GetQAState('below',$num_rich_missing,@QA::RichEndpMissingLimits); + $qastate = QA::NOTE; if($qastate > 60) { system("logger -p local1.info -t DAQ Endp \\ $rich_longtext") unless (($timecnt->{rich}++)%$loggerperiod); } @@ -274,7 +282,6 @@ while(1) { - $qastate = QA::GetQAState('below',$num_rich_missing,@QA::RichEndpMissingLimits); Hmon::Speak('richmissonce',"$num_rich_missing Rich Frontends missing") if($qastate > 60 && $qastate < QA::ERROR ); Hmon::Speak('richmiss',"$num_rich_missing Rich Frontends missing") if($qastate >= QA::ERROR ); diff --git a/hmon/hmon_hodo.pl b/hmon/hmon_hodo.pl old mode 100644 new mode 100755 index c0683d6..9083a2f --- a/hmon/hmon_hodo.pl +++ b/hmon/hmon_hodo.pl @@ -30,6 +30,8 @@ $plot2->{ymin} = 15.5; $plot2->{ymax} = -0.5; $plot2->{cbmax} = "100<*"; $plot2->{showvalues} = 1; +$plot2->{additional} = "set xtics ('Bottom' 0.5, 'Right' 2.5); set x2tics ('Top' 0.5, 'Left' 2.5);"; + HPlot::PlotInit($plot2); my $plot = (); diff --git a/hmon/hmon_itofrate.pl b/hmon/hmon_itofrate.pl index 24db645..bcd93cf 100755 --- a/hmon/hmon_itofrate.pl +++ b/hmon/hmon_itofrate.pl @@ -40,14 +40,42 @@ showvalues => 0, }; HPlot::PlotInit($plot1); +my $plot2 = (); +$plot2->{name} = "ItofNumbers"; +$plot2->{file} = "files/ItofNumbers"; +$plot2->{entries} = 3; +$plot2->{curves} = 6; +$plot2->{type} = HPlot::TYPE_HEATMAP; +$plot2->{output} = HPlot::OUT_PNG; +$plot2->{zlabel} = "Hitrate"; +$plot2->{sizex} = 450; +$plot2->{sizey} = 360; +$plot2->{nokey} = 1; +$plot2->{buffer} = 1; +$plot2->{xmin} = -0.5; +$plot2->{xmax} = 2.5; +$plot2->{ymin} = 5.5; +$plot2->{ymax} = -0.5; +$plot2->{cbmin} = "0"; +$plot2->{cbmax} = "100<*"; +$plot2->{showvalues} = 1; +$plot2->{additional} = "set xtics 1;"; +HPlot::PlotInit($plot2); + + my $str = Hmon::MakeTitle(4, 7, "iTOF Hit Rate",0); $str .= qq@
\n@; - $str .= Hmon::MakeFooter(); Hmon::WriteFile("ItofRate",$str); +$str = Hmon::MakeTitle(6, 8, "iTOF Hit Rate"); +$str .= qq@
\n@; +$str .= Hmon::MakeFooter(); +Hmon::WriteFile("ItofRateNumbers",$str); + + -my $old; +my $old; my $old2; my $oldtime = time(); my $time = time(); my $diff; @@ -63,48 +91,48 @@ while(1) { #my $max = 0 ; #my $min = 5E9; - my $o = trb_register_read_mem(0xfe74,0xc000,0,49) or die trb_strerror() or sleep 5 and next; + my $o = trb_register_read_mem(0xfe74,0xdfc0,0,48) or die trb_strerror() or sleep 5 and next; + my $tdiff = (time() - $oldtime)|1; if (defined $old) { - my $tdiff = (time() - $oldtime)|1; - foreach my $b (keys %$o) { + foreach my $board (keys %$o) { #my $ratesum = 0; - next unless ($b>=0x5d00 && $b<=0x5dff); - my $xpos = ($b&0xF)*4; + next unless ($board>=0x5d00 && $board<=0x5dff); + my $xpos = ($board&0xF)*4; for my $v (0..47) { - my $vdiff = ($o->{$b}->[$v+1]&0xfffffff) - ($old->{$b}->[$v+1]&0xfffffff); + my $vdiff = ($o->{$board}->[$v]&0xfffffff) - ($old->{$board}->[$v]&0xfffffff); if ($vdiff < 0) { $vdiff += 2**28;} - $diff->{$b}->[$v+1] = $vdiff/$tdiff; + $diff->{$board}->[$v] = $vdiff/$tdiff; #$ratesum += $diff->{$b}->[$v+1]; - HPlot::PlotFill('ItofRate',$diff->{$b}->[$v+1],$v%16,$xpos+$v/16); + HPlot::PlotFill('ItofRate',$diff->{$board}->[$v],$v%16,$xpos+$v/16); } - #my $s = sprintf("0x%04x",$b); - #$data->{$s}= int(100*($ratesum / 32) +0.5) /100; - - #$min = $data->{$s} if $data->{$s} < $min; - #$max = $data->{$s} if $data->{$s}> $max; + } - HPlot::PlotDraw('ItofRate'); - - + HPlot::PlotDraw('ItofRate'); + } - # $data->{max} = $max; - # $data->{min} = $min; - # $data->{symbol} = " Hits/s"; - # $data->{title} = "Mean DiRICH TDC Rate"; + my $o2 = trb_register_read_mem(0x10,0x9000,0,24) or die trb_strerror() or sleep 5 and next; + if (defined $old2) { + for my $v (0..23) { + my $vdiff = ($o2->{0x10}->[$v]&0xfffffff) - ($old2->{0x10}->[$v]&0xfffffff); + if ($vdiff < 0) { $vdiff += 2**28;} + $diff->{0x10}->[$v] = $vdiff/$tdiff; + } + for(my $s = 0; $s<6; $s++){ + HPlot::PlotFill('ItofNumbers',$diff->{0x10}->[$s*4+1],0,$s); + HPlot::PlotFill('ItofNumbers',$diff->{0x10}->[$s*4+2],1,$s); + HPlot::PlotFill('ItofNumbers',$diff->{0x10}->[$s*4+3],2,$s); + } + + HPlot::PlotDraw('ItofNumbers'); + } - - # $data->{updatetime} = getTimeString; - # my $fh; - # open($fh, ">", Hmon::HMONDIR."/files/richMeanRateDiRICH.json"); - # print $fh encode_json($data); - # close $fh; - } $old = $o; + $old2 = $o2; $oldtime = time(); sleep 1; } diff --git a/hmon/hmon_richMagnet.pl b/hmon/hmon_richMagnet.pl index 92012df..e3812bf 100755 --- a/hmon/hmon_richMagnet.pl +++ b/hmon/hmon_richMagnet.pl @@ -229,7 +229,7 @@ while(1){ if ($longcnt==6) { #long Range Hist for (my $i=0;$i<24;$i++){ - $TempLong[$i] /= $TempLongCnt[$i]; + $TempLong[$i] /= $TempLongCnt[$i]||1; HPlot::PlotAdd('RichInnerTempHistLong',$TempLong[$i],$i); #print $TempLong[$i]."\n"; $TempLong[$i] = 0; diff --git a/hmon/hmon_rich_temp_backplane.pl b/hmon/hmon_rich_temp_backplane.pl index 17618c7..0efe56c 100755 --- a/hmon/hmon_rich_temp_backplane.pl +++ b/hmon/hmon_rich_temp_backplane.pl @@ -86,10 +86,10 @@ while (1) { if ($max > $interlockTemperature ) { - my $s = sprintf("HAD:RICH:PS:24:SETONOFF"); - Perl2Epics::Connect("PS_RICH_3_3V",$s); - Perl2Epics::Put("PS_RICH_3_3V",1); - $InterlockActive = "Shutting down RICH ..."; +# my $s = sprintf("HAD:RICH:PS:24:SETONOFF"); +# Perl2Epics::Connect("PS_RICH_3_3V",$s); +# Perl2Epics::Put("PS_RICH_3_3V",1); +# $InterlockActive = "Shutting down RICH ..."; } #-------Software Interlock-------# diff --git a/hmon/hmon_rpcrate.pl b/hmon/hmon_rpcrate.pl index b1ab32c..371e6e0 100755 --- a/hmon/hmon_rpcrate.pl +++ b/hmon/hmon_rpcrate.pl @@ -32,10 +32,10 @@ ymin => 59.5, ymax => -0.5, xmin => -0.5, xmax => 47.5, -cbmax => "100<*<1E5", +cbmax => "1000<*<1E5", cbmin => 0, noinit => 1, -additional => "set logscale cb;unset ytics;set format cb \"_{10}{\%L}\"", +additional => "set logscale cb;unset ytics;set format cb \"_{10}{\%L}\";set xtics ('0' -0.5, '8' 7.5, '16' 15.5, '24' 23.5, '32' 31.5, '40' 39.5); set grid xtics front;", showvalues => 0, }; HPlot::PlotInit($plot1); diff --git a/hmon/hmon_spill.pl b/hmon/hmon_spill.pl index 510b17a..3535235 100755 --- a/hmon/hmon_spill.pl +++ b/hmon/hmon_spill.pl @@ -28,6 +28,7 @@ my $spillavglong = 0; my $errtime = 0; my $lastspillcount = 0; my $countnochange = 0; +my $iter = 0; my $plot = (); $plot->{name} = "EvtsPerSpill"; @@ -63,6 +64,7 @@ my $url_prefix = $masterurl . 'Master/BNET/RunPrefix/get.json?field="value"'; my $spillcount = 0; while (1) { + $evtrate = 0 if $iter%2==0; my $trbneterr = 0; my $rh_result = trb_register_read(QA::CTSAddress, 0xa002) or $trbneterr = 1; #sleep 5 and next; my $stopped = trb_register_read(0x3,0xa0c0) or sleep 5 and next; @@ -80,12 +82,12 @@ while (1) { $lastspill = $outofspill; $outofspill = ($rh_result->{QA::CTSAddress} || 0) & 0x10; - $spilllength++ ; #if($outofspill); + $spilllength++ if $iter%2==0; #if($outofspill); $rh_result = trb_register_read(0x0002, 0x01) or $trbneterr = 1; #sleep 5 and next; if($trbneterr == 0) { my $res = $rh_result->{0x0002} & 0xffff; - $evtrate = $res >= $lastres ? $res - $lastres : ($res + 2**16) - $lastres; + $evtrate += $res >= $lastres ? $res - $lastres : ($res + 2**16) - $lastres; $events += $evtrate; $midlastres = $res; usleep(250000); @@ -94,8 +96,8 @@ while (1) { $res = $rh_result->{0x0002} & 0xffff; my $evtrate2 = $res >= $midlastres ? $res - $midlastres : ($res + 2**16) - $midlastres; $events += $evtrate2; - $evtrate += $evtrate2; - $evtrate *= 2; #just 2x 250ms right now! + $evtrate += $evtrate2; + # When end of spill is detected... my $qastate; my $qashort; @@ -140,18 +142,18 @@ while (1) { # my $data = Perl2Epics::GetAll(); # print STDERR $data->{'prefix'}->{val}."\n"; # if(($data->{'prefix'}->{val} eq '-1') || ($data->{'prefix'}->{val} eq 'be')) { -# Hmon::Speak('nobeam', "No beam"); +# Hmon::Speak('nobeam', "No beam"); # } my $prefix = get ($url_prefix); -# print Dumper $prefix; + print Dumper $prefix; $prefix = "--" unless defined $prefix; - if(($prefix eq '-1') || ($prefix eq 'be')) { + if(($prefix =~ '-1') || ($prefix =~ 'be')) { Hmon::Speak('nobeam', "No beam") unless $opt_debug>0; } } } - + $qashort = sprintf(" %i ", $evtrate); $qastate = QA::OK; @@ -170,13 +172,21 @@ while (1) { $qastate = QA::WARN if $evtrate == 1; $qastate = QA::WARN_2 if $stopped; +if ($iter%2) { Hmon::Speak('rate', "Data Acquisition does not work") if $qastate == QA::FATAL; $qalong = sprintf("current: %i Events/second", $evtrate); QA::WriteQALog($fqa, "main", "rate", 5, $qastate, "Current Rate", $qashort, $qalong) unless $opt_debug>0; - +} my $spillcountstate = QA::OK; - if ($countnochange > 25) {$spillcountstate = QA::WARN;} + if ($countnochange > 30) { + $spillcountstate = QA::WARN; +# my $prefix = get ($url_prefix); +# $prefix = "--" unless defined $prefix; +# if(($prefix eq '-1') || ($prefix =~ 'be')) { +# Hmon::Speak('nobeam', "No beam") unless $opt_debug>0; +# } + } QA::WriteQALog($fqa, "daq", "spillcount", 5, $spillcountstate, "Spill Count", $spillcount,"Number of spills: $spillcount" ) unless $opt_debug>0; if($lastspillcount == $spillcount) { @@ -191,7 +201,7 @@ while (1) { #Perl2Epics::Put("Rate",$evtrate); #my $dataRate = Perl2Epics::GetAll(); - + $iter++; usleep(250000); } else { diff --git a/hmon/hmon_startmon.pl b/hmon/hmon_startmon.pl old mode 100755 new mode 100644 diff --git a/hmon/hmon_startrate.pl b/hmon/hmon_startrate_19.pl similarity index 91% rename from hmon/hmon_startrate.pl rename to hmon/hmon_startrate_19.pl index 49b1431..e7e6704 100644 --- a/hmon/hmon_startrate.pl +++ b/hmon/hmon_startrate_19.pl @@ -8,7 +8,7 @@ use Hmon; use QA; use HADES::TrbNet; use HPlot; -use Time::HiRes qw(usleep); +use Time::HiRes qw(usleep gettimeofday tv_interval); use List::Util qw[min max]; trb_init_ports() or die trb_strerror(); @@ -16,7 +16,7 @@ trb_init_ports() or die trb_strerror(); HPlot::PlotInit({ name => "StartRateXhistbar", file => "files/StartRateXhistbar", - entries => 200, + entries => 2000, type => HPlot::TYPE_BARGRAPH, output => HPlot::OUT_PNG, titles => ["0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15"], @@ -25,7 +25,7 @@ HPlot::PlotInit({ sizex => 950, sizey => 330, xmin => 0, - xmax => 200, + xmax => 2000, ymin => "0", ymax => "100<*", curves => 16, @@ -42,7 +42,7 @@ HPlot::PlotInit({ HPlot::PlotInit({ name => "StartRateYhistbar", file => "files/StartRateYhistbar", - entries => 200, + entries => 2000, type => HPlot::TYPE_BARGRAPH, output => HPlot::OUT_PNG, titles => ["0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15"], @@ -51,7 +51,7 @@ HPlot::PlotInit({ sizex => 950, sizey => 330, xmin => 0, - xmax => 200, + xmax => 2000, ymin => "0", ymax => "100<*", curves => 16, @@ -347,7 +347,7 @@ while(1) { $cts_set = trb_register_read(0x3,0xa0da); } - my $o = trb_registertime_read_mem(0xfe48,0xc000,0,17); # or die trb_strerror() or sleep 5 and next; + my $o = trb_registertime_read_mem(0xfe74,0xc000,0,17); # or die trb_strerror() or sleep 5 and next; # print Dumper $o; if (defined $old) { foreach my $b (keys %$o) { @@ -433,28 +433,28 @@ while(1) { HPlot::PlotAdd("HaloPosition",$haloxpos,0); HPlot::PlotAdd("HaloPosition",$haloypos,1); - - - HPlot::PlotDraw('StartRateXhist') if ($iter == 1); - HPlot::PlotDraw('StartRateYhist') if ($iter == 2); - HPlot::PlotDraw('VetoRatehist') if ($iter == 3); - HPlot::PlotDraw('StartRateXhistbar') if ($iter == 4); - HPlot::PlotDraw('StartRateYhistbar') if ($iter == 4); - HPlot::PlotDraw('VetoRatehistbar') if ($iter == 5); - HPlot::PlotDraw('StartXbar') if ($iter == 6); #dont change - HPlot::PlotDraw('StartYbar') if ($iter == 7); #dont change - HPlot::PlotDraw('Vetobar') if ($iter == 8); #dont change - HPlot::PlotDraw('StartPosition') if ($iter == 9); - HPlot::PlotDraw('HaloPosition') if ($iter == 10); - HPlot::PlotDraw('HALO') if ($iter == 10); #dont change - HPlot::PlotDraw('Veto') if ($iter == 10); #dont change - $iter = 1 if ($iter++ == 10) #dont change +print $iter ." ".gettimeofday()."\n"; + + HPlot::PlotDrawFork('StartRateXhist') ;# if ($iter == 1); + HPlot::PlotDrawFork('StartRateYhist') ;# if ($iter == 2); + HPlot::PlotDrawFork('VetoRatehist') ;# if ($iter == 3); + HPlot::PlotDrawFork('StartRateXhistbar');# if ($iter == 4); + HPlot::PlotDrawFork('StartRateYhistbar');# if ($iter == 4); + HPlot::PlotDrawFork('VetoRatehistbar') ;# if ($iter == 5); + HPlot::PlotDrawFork('StartXbar') ;# if ($iter == 6); #dont change + HPlot::PlotDrawFork('StartYbar') ;# if ($iter == 7); #dont change + HPlot::PlotDrawFork('Vetobar') ;# if ($iter == 8); #dont change + HPlot::PlotDrawFork('StartPosition') ;# if ($iter == 9); + HPlot::PlotDrawFork('HaloPosition') ;# if ($iter == 10); + HPlot::PlotDrawFork('HALO') ;# if ($iter == 10); #dont change + HPlot::PlotDrawFork('Veto') ;# if ($iter == 10); #dont change + $iter = 1 if ($iter++ == 10) #dont change } $old = $o; - usleep(100000); + usleep(50000); } sub inout { diff --git a/hmon/hmon_startratesimple.pl b/hmon/hmon_startratesimple.pl index 0a6acb9..963c5a1 100755 --- a/hmon/hmon_startratesimple.pl +++ b/hmon/hmon_startratesimple.pl @@ -2,6 +2,7 @@ use warnings; use strict; + use Data::Dumper; use Data::TreeDumper; use Hmon; @@ -14,38 +15,70 @@ use List::Util qw[min max]; use Encode qw(encode from_to); use JSON::XS; +my %users = (name => "wiily", lastname => 'Krüger'); + +my $ref_users = \%users; + + my $plot1 = { -name => "StartRateSimple", -file => "files/StartRateSimple", -title => "Start Rate", -entries => 16, -curves => 16, -type => HPlot::TYPE_HEATMAP, -output => HPlot::OUT_PNG, -zlabel => "Hitrate", -sizex => 310, -sizey => 310, -nokey => 1, -buffer => 1, -ymin => 15.5, -ymax => -0.5, -xmin => -0.5, -xmax => 15.5, -cbmax => "100<*<1E5", -cbmin => 0, -noinit => 1, -additional => "set logscale cb;unset ytics;set format cb \"_{10}{\%L}\"", -showvalues => 0, }; + name => "StartRateSimple", + file => "files/StartRateSimple", + title => "Start Rate", + entries => 16, + curves => 16, + type => HPlot::TYPE_HEATMAP, + output => HPlot::OUT_PNG, + zlabel => "Hitrate", + sizex => 310, + sizey => 310, + nokey => 1, + buffer => 1, + ymin => 15.5, + ymax => -0.5, + xmin => -0.5, + xmax => 15.5, + cbmax => "100<*<1E5", + cbmin => 0, + noinit => 1, + additional => "set logscale cb; unset ytics;set format cb \"_{10}{\%L}\"", + showvalues => 0, }; HPlot::PlotInit($plot1); +my $plot2 = { + name => "StartRateNumbers", + file => "files/StartRateNumbers", + entries => 2, + curves => 60, + type => HPlot::TYPE_HEATMAP, + output => HPlot::OUT_PNG, + zlabel => "Hitrate", + sizex => 450, + sizey => 720, + nokey => 1, + buffer => 1, + xmin => -0.5, + xmax => 1.5, + ymin => -0.5, + ymax => 59.5, + cbmax => "100<*<1E5", + cbmin => "0", + showvalues => 0, + additional => "set xtics ('Bottom' 0, 'Left' 1); set x2tics ('Top' 0, 'Right' 1);" + }; +HPlot::PlotInit($plot2); + + my $str = Hmon::MakeTitle(4, 7, "Start Hit Rate",0); $str .= qq@
\n@; - $str .= Hmon::MakeFooter(); Hmon::WriteFile("StartRateSimple",$str); +$str = Hmon::MakeTitle(6, 16, "Start Hit Numbers"); +$str .= qq@
\n@; +$str .= Hmon::MakeFooter(); +Hmon::WriteFile("StartRateNumbers",$str); my $old; my $oldtime = time(); @@ -54,57 +87,77 @@ my $diff; my $iter = 0; - trb_init_ports() or die trb_strerror(); - -while(1) { +while (1) { #my $data; #my $max = 0 ; #my $min = 5E9; - - my $o = trb_register_read_mem(0xfe74,0xc000,0,49) or die trb_strerror() or sleep 5 and next; + my $current = trb_register_read_mem(0xfe74,0xdfc0,0,48) or die trb_strerror() or sleep 5 and next; + + #print Dumper $o; if (defined $old) { my $tdiff = (time() - $oldtime)|1; - foreach my $b (keys %$o) { + foreach my $endpoint (sort keys %$current) { + #foreach my $endpoint (0x5000, 0x5001, 0x5002, 0x5003, 0x5004) { #my $ratesum = 0; - next unless ($b>=0x5000 && $b<=0x500f); - my $xpos = ($b&0xF)*4; - - for my $v (0..47) { - my $vdiff = ($o->{$b}->[$v+1]&0xfffffff) - ($old->{$b}->[$v+1]&0xfffffff); - - if ($vdiff < 0) { $vdiff += 2**28;} - $diff->{$b}->[$v+1] = $vdiff/$tdiff; - #$ratesum += $diff->{$b}->[$v+1]; - HPlot::PlotFill('StartRateSimple',$diff->{$b}->[$v+1],$v%16,$xpos+$v/16); + next unless ($endpoint>=0x5000 && $endpoint<=0x5003); + my $fpga = ($endpoint&0xF); + + for my $channel_nr (0..47) { + my $vdiff = ($current->{$endpoint}->[$channel_nr] & 0xfffffff) - ($old->{$endpoint}->[$channel_nr]&0xfffffff); + + if ($vdiff < 0) { + $vdiff += 2**28; + } + $diff->{$endpoint}->[$channel_nr] = $vdiff/$tdiff; + #$ratesum += $diff->{$endpoint}->[$channel_nr+1]; + #HPlot::PlotFill('StartRateSimple',$diff->{$endpoint}->[$channel_nr],$channel_nr,); + HPlot::PlotFill('StartRateSimple',$diff->{$endpoint}->[$channel_nr],$channel_nr%16,$fpga*4+$channel_nr/16); + + my $ypos = 0; + my $side = 0; + if ($fpga == 0 || $fpga == 3) { + next if $channel_nr < 10; + next if $channel_nr > 39; + $ypos= ($channel_nr-10)*2+1; } - #my $s = sprintf("0x%04x",$b); + + if ($fpga == 1 || $fpga == 2) { + $ypos = ((15-($channel_nr%16)) + (int($channel_nr/16)*16) - 8)*2; + next if $ypos < 0; + next if $ypos > 59; + $side=1; + } + + + HPlot::PlotFill('StartRateNumbers',$diff->{$endpoint}->[$channel_nr],int($fpga/2), $ypos); + + } + #my $s = sprintf("0x%04x",$endpoint); #$data->{$s}= int(100*($ratesum / 32) +0.5) /100; - + #$min = $data->{$s} if $data->{$s} < $min; #$max = $data->{$s} if $data->{$s}> $max; - } - HPlot::PlotDraw('StartRateSimple'); - - - - # $data->{max} = $max; - # $data->{min} = $min; - # $data->{symbol} = " Hits/s"; - # $data->{title} = "Mean DiRICH TDC Rate"; - - - # $data->{updatetime} = getTimeString; - - # my $fh; - # open($fh, ">", Hmon::HMONDIR."/files/richMeanRateDiRICH.json"); - # print $fh encode_json($data); - # close $fh; - } - - $old = $o; + } + + HPlot::PlotDraw('StartRateSimple'); + HPlot::PlotDraw('StartRateNumbers'); + + # $data->{max} = $max; + # $data->{min} = $min; + # $data->{symbol} = " Hits/s"; + # $data->{title} = "Mean DiRICH TDC Rate"; + + # $data->{updatetime} = getTimeString; + # my $fh; + # open($fh, ">", Hmon::HMONDIR."/files/richMeanRateDiRICH.json"); + # print $fh encode_json($data); + # close $fh; + } + + $old = $current; $oldtime = time(); sleep 1; - } +} diff --git a/hmon/hmon_stsrate.pl b/hmon/hmon_stsrate.pl index 2418e2c..b516b26 100755 --- a/hmon/hmon_stsrate.pl +++ b/hmon/hmon_stsrate.pl @@ -35,7 +35,7 @@ xmax => 47.5, cbmax => "100<*<1E5", cbmin => 0, noinit => 1, -additional => "set logscale cb;set format cb \"_{10}{\%L}\"", +additional => "set logscale cb;set format cb \"_{10}{\%L}\";set xtics ('0' -0.5, '8' 7.5, '16' 15.5, '24' 23.5, '32' 31.5, '40' 39.5); set grid xtics front;", showvalues => 0, }; HPlot::PlotInit($plot1); diff --git a/hmon/hmon_tdcchanerrors.pl b/hmon/hmon_tdcchanerrors.pl index c34ab46..ec33882 100755 --- a/hmon/hmon_tdcchanerrors.pl +++ b/hmon/hmon_tdcchanerrors.pl @@ -16,10 +16,107 @@ use Data::Dumper; use List::Util qw(min max); use LWP::Simple qw(get); use Try::Tiny; +trb_init_ports() or die trb_strerror(); + +# my $regs = trb_register_read(0xffff,0xc802) or die trb_strerror() or sleep 5 and next; +# my $numboards;# = scalar keys %$regs; + + my $labels = 'set xtics ('; + + my $entry = 0; + my $regs = trb_register_read_mem(0xffff,0xc802,0,2) or die trb_strerror() or sleep 5 and next; + my $boards; + foreach my $b (sort {$a <=> $b} keys %$regs) { + next unless (defined $regs->{$b}[1]); + $boards->{$b}{enable} = $regs->{$b}[0] + ($regs->{$b}[1] << 32); + $labels .= sprintf("'%04x' %i,",$b,$entry++); + } + chomp $labels; + my $numboards = $entry; + $labels .= ') rotate by 90 offset 0,-1.4;'; + + my @names = qw(None Qrise StatRise FminRise FmaxRise Qfall StatFall FminFall FmaxFall StretchDelay StretchDeviation); + +for(my $i = 0; $i <11; $i++) { + HPlot::PlotInit({ + name => "TdcCal$i", + file => "files/TdcCal$i", + cblabel => "TdcCal ".$names[$i], + entries => $numboards, + curves => 48, + type => HPlot::TYPE_HEATMAP, + output => HPlot::OUT_PNG, + sizex => 2000, + sizey => 500, + nokey => 1, + buffer => 0, + xmin => -0.5, + xmax => $numboards-0.5, + ymin => -0.5, + ymax => 47.5, + noinit => 1, +# palette => 'rgb 7,5,15', + additional => $labels, + showvalues => 0, }); + } while(1) {{ + + my $cmd = "ls -1 /home/hadaq/oper/lxhadeb*/local*.cal.info"; + my @files = qx($cmd); + foreach my $f (@files) { + my ($addr) = $f =~ /local([0-9a-f]{4})\./; + $addr = hex($addr); + next unless defined $boards->{$addr}; + chomp $f; + + open(my $data, '<', $f) or print "Damn $f\n" and next; + chomp(my @lines = <$data>); + close $data; + + for(my $i=0;$i<48;$i++) { + if($boards->{$addr}{enable} & (1<<$i)) { + my @fields = split(" ", $lines[$i+2]//""); +# next if scalar @fields == 0; + + for(my $e=1;$e<=11;$e++){ + $boards->{$addr}{values}[$i][$e] = $fields[$e]; + } + } + } + } + + $entry = 0; + foreach my $b (sort {$a <=> $b} keys %$boards) { + for(my $i=0;$i<48;$i++) { + for(my $e=0;$e<11;$e++) { + next unless defined $boards->{$b}{values}[$i][$e]; + HPlot::PlotFill("TdcCal$e",$boards->{$b}{values}[$i][$e],$entry,$i); + } + } + + $entry++; + } + + + for(my $e = 1; $e < 11; $e++) { + HPlot::PlotDraw("TdcCal$e"); + } + + my $str = Hmon::MakeTitle(200, 110, "TDC Cal",1); + for(my $e = 0; $e < 11; $e++) { + $str .= qq@
\n@; + } + $str .= Hmon::MakeFooter(); + Hmon::WriteFile("TdcCal",$str); + + +################################################################################################### + + + my $dataerr = get ('http://localhost/mon/getrootjson.cgi?src=rawmon&histo=HADES/Run/HLD/HLD_ErrPerChannel'); my $datahit = get ('http://localhost/mon/getrootjson.cgi?src=rawmon&histo=HADES/Run/HLD/HLD_HitsPerChannel'); @@ -40,7 +137,7 @@ while(1) {{ $str .= Hmon::MakeFooter(); Hmon::WriteFile("TDCErrors",$str); - my $boards = scalar @{$data->{hit}{bins}}; + $boards = scalar @{$data->{hit}{bins}}; my $channels = scalar @{$data->{hit}{bins}[0]}; @@ -82,7 +179,28 @@ while(1) {{ } # print Dumper @stats; HPlot::PlotDraw('TDCErrors'); - sleep(300); + + + + + + + + + + + + + + + + + + + + + + sleep(600); }} diff --git a/hmon/hmon_tofrate.pl b/hmon/hmon_tofrate.pl index 5ce70b0..e6ed8c6 100755 --- a/hmon/hmon_tofrate.pl +++ b/hmon/hmon_tofrate.pl @@ -35,7 +35,7 @@ xmax => 31.5, cbmax => "100<*<1E5", cbmin => 0, noinit => 1, -additional => "set logscale cb;unset ytics;set format cb \"_{10}{\%L}\"", +additional => "set logscale cb;unset ytics;set format cb \"_{10}{\%L}\";set xtics ('0' -0.5, '8' 7.5, '16' 15.5, '24' 23.5, '32' 31.5); set grid xtics front;", showvalues => 0, }; HPlot::PlotInit($plot1); diff --git a/hmon/index.cgi b/hmon/index.cgi index 3d0239c..39bacd6 100755 --- a/hmon/index.cgi +++ b/hmon/index.cgi @@ -33,8 +33,8 @@ function openwin(url) {
  • Chat Log
  • Web Tools (daqtools)
  • Eventbuilder Monitor
    • -
  • Raw Data Monitor
    • -
  • Accumulated Run Statistics +
  • Raw Data Monitor
    • +
  • Accumulated Run Statistics

    Documents

      @@ -47,6 +47,7 @@ function openwin(url) {

    Other Ressources

    DAQ Network

    diff --git a/hmon/permanent/hmon_ecalhv.pl b/hmon/permanent/hmon_ecalhv.pl index a0d3022..edade40 100755 --- a/hmon/permanent/hmon_ecalhv.pl +++ b/hmon/permanent/hmon_ecalhv.pl @@ -345,8 +345,10 @@ while(1) { my $longtext = sprintf("HV channels On: %i/$TOTALCHANS",$ChnlsOn); $qastate = QA::GetQAState('above', $ChnlsOn, @QA::EcalHvLimits); -if ($ChnlsOn == 0){ - $qastate = QA::NOTE;} + if ($ChnlsOn == 0){ $qastate = QA::ERROR;} + if ($QA::EcalHvOff == 1) { $qastate = QA::NOTE;} + + $str = ""; if($timer%8 == 0) { diff --git a/hmon/permanent/hmon_environment.pl b/hmon/permanent/hmon_environment.pl index 6cce678..2983a4b 100755 --- a/hmon/permanent/hmon_environment.pl +++ b/hmon/permanent/hmon_environment.pl @@ -45,9 +45,9 @@ $str .= qq@@; $str .= Hmon::MakeFooter(); Hmon::WriteFile("Environment",$str); -while (1) { +while (1) {{ my $port = IO::Socket::INET->new(PeerAddr => "192.168.103.118", PeerPort => 2323, Proto => "tcp", Type => SOCK_STREAM, Timeout => 2) - or (print("Device not found") && return); + or (print("Device not found") && next); my ($mx,$my,$mz,$t,$p,$h); my $i = 8; @@ -81,5 +81,5 @@ while (1) { $port->close(); sleep 9; - } + }} diff --git a/hmon/permanent/hmon_fwhv.pl b/hmon/permanent/hmon_fwhv.pl index 458dd91..b94b42c 100755 --- a/hmon/permanent/hmon_fwhv.pl +++ b/hmon/permanent/hmon_fwhv.pl @@ -89,7 +89,7 @@ while(1) { my $longtext = sprintf("HV channels On: %i/%i
    %s",$ChnlsOn, scalar @channels,$str); $qastate = QA::GetQAState('above', $ChnlsOn, @QA::FwHvLimits); - if ($ChnlsOn == 0){ $qastate = QA::WARN_2;} + if ($ChnlsOn == 0){ $qastate = QA::WARN_2; $value = "HV is OFF";} if ($QA::FwHvOff == 1) { $qastate = QA::NOTE;} diff --git a/hmon/permanent/hmon_hub.pl b/hmon/permanent/hmon_hub.pl index 8623611..562364c 100755 --- a/hmon/permanent/hmon_hub.pl +++ b/hmon/permanent/hmon_hub.pl @@ -191,7 +191,14 @@ sub isFeeHub { my $hubs = "8401 8411 8601 8701 8801 8800 8880 0x8204,0x8206,0x8212,0x8213,0x8214,0x8215,0x8216,0x8217,0x8221,0x8222,0x8223,0x8224,0x8225,0x8226,0x8227,0x8228,0x8229, 0x8231,0x8239,0x8240,0x8241,0x8242,0x8243,0x8244,0x8245,0x8246,0x8247,0x8248,0x8249,0x824a,0x8251,0x8252,0x8254,0x8256,0x8258,0x8259, 0x8260,0x8261,0x8262,0x8263,0x8264,0x8265,0x8266,0x8267,0x8268,0x8269,0x826a,0x8271,0x8279,0x8281,0x8282,0x8283,0x8284,0x8285,0x8286,0x8287,0x8288,0x8289, - 0x8292,0x8293,0x8294,0x8295,0x8296,0x8297,0x82a4,0x82a6, 8a00 8a01 8a02 8a03 8a04 8a05 83c0 83c1 83c2 83c3 83c4 83c5 83c6 83c7 83c8 83c9 83ca 83cb 83cc"; + 0x8292,0x8293,0x8294,0x8295,0x8296,0x8297,0x82a4,0x82a6, 8a00 8a01 8a02 8a03 8a04 8a05 83c0 83c1 83c2 83c3 83c4 83c5 83c6 83c7 83c8 83c9 83ca 83cb 83cc + 84c0 84c1 84c2 84c3 84c4 84c5 + 86c0 86c1 86c2 86c3 86c4 86c5 + 8b00 8b01 8b02 8b03 8b10 8b11 8b12 8b13 8b14 8b15 + 8890 + 8c00 8c10 + 8d00 +"; my $hs = sprintf("%04x",$h); # print $h."\n"; if (index($hubs,$hs) != -1) { diff --git a/hmon/permanent/hmon_icinga.pl b/hmon/permanent/hmon_icinga.pl old mode 100755 new mode 100644 diff --git a/hmon/permanent/hmon_magnet.pl b/hmon/permanent/hmon_magnet.pl index 2e6627e..195a064 100755 --- a/hmon/permanent/hmon_magnet.pl +++ b/hmon/permanent/hmon_magnet.pl @@ -30,7 +30,7 @@ my %range_list = ( 'TC1238' => {'min' => 4.6 , 'max' =>4.9 }, 'TC1248' => {'min' => 4.5 , 'max' =>4.7 }, 'FI1400' => {'min' => 0.36 , 'max' =>0.49 }, - 'PSUI_rbk' => {'min' => 2490 , 'max' =>2500 }, + 'PSUI_rbk' => {'min' => 2990 , 'max' =>3210 }, 'PSUV_rbk' => {'min' => 0 , 'max' =>1 }, 'BBI' => {'min' => 419 , 'max' =>450 }, 'LL1708' => {'min' => 55.2 , 'max' =>63.0 }, diff --git a/hmon/permanent/hmon_qaplots.pl b/hmon/permanent/hmon_qaplots.pl index 836ae6e..b0da3d6 100755 --- a/hmon/permanent/hmon_qaplots.pl +++ b/hmon/permanent/hmon_qaplots.pl @@ -33,6 +33,9 @@ my $out = $title;
    • Main
    • Start
      +
    • Hodo
      +
    • InnerTOF
      +
    • ForwardDet
    • RICH
    • MDC
    • MDC Expert
      @@ -54,7 +57,7 @@ open ($fh,"> ".Hmon::HMONDIR."/files/qa.htm") or die; print $fh $out; close $fh; -my @pages = qw(Main Start RICH MDCMon MDCTimes MDCTimesRaw MDCExpert MDCTimesCal TOFMon RPC WALLMon EcalMon Physics); +my @pages = qw(Main Start InnerTOF Hodo ForwardDet RICH MDCMon MDCTimes MDCTimesRaw MDCExpert MDCTimesCal TOFMon RPC WALLMon EcalMon Physics); my $files = {}; # $files->{'Main'} = ["MainPTScaler", "MainTRBNetDebugInfo", "MainTrigger", "MainTriggerTrend"]; @@ -73,7 +76,12 @@ $files-> { "Main" } = [ "MainTrigger" , "MainTriggerTrend" , "MainPTScaler" , # $files-> { "Hodo" } = [ "HodoMult" , "HodoTime" ]; # $files-> { "PionTrackerRaw" } = [ "Mult" , "TS" , "Strip" , "Pileup" , "Overflow" , "ADCStrip" , "TSStrip" , "XY" , "RawPTHodoDt" ]; # $files-> { "PionTrackerCal" } = [ "CalTS" , "CalADCStrip" , "CalTSStrip" , "CalPTHodoDt" ]; -$files-> { "Start" } = [ "StartMain" ]; +$files-> { "Start" } = [ "StartMain", "StartTestEfficiency", "StartTestRawStripToT", "StartTestTDIFFvsTOTmod0", "StartTestTDIFFvsTOTmod1" ]; +$files-> { "InnerTOF" } = [ "InnerTofMultiplicity", "InnerTofRawHitPattern", "InnerTofRawHitPatternWithSum"]; + +$files-> { "Hodo" } = [ "HODOMain" ]; +$files-> { "ForwardDet" } = [ "StrawCounts", "StrawToT", "StrawLeadTime", "ToT", "DriftTime", "Multiplicity"]; + $files-> { "RICH" } = [ "RICHMult" , "RICHCharge" , "RICHColRow" , "RICHHitMult" , "RICHDirClus" ]; $files-> { "MDCMon" } = [ "MDCMain" , "Errors" ]; $files-> { "MDCTimes" } = [ "potato" ]; @@ -85,7 +93,7 @@ $files-> { "RPC" } = [ "RPCMain" , "RPCRawRPCMult" , "RPCRawSecMult" , "RPCR $files-> { "WALLMon" } = [ "WALLMain" , "WALLHit" , "WALLControl" , "WALLControlLATCH" ]; # $files-> { "SHOWERMon" } = [ "SHOWERMain" , "SHOWERMults" , "SHOWERSUMS" , "SHOWERCAL" , "SHOWERSUMTREND" ]; $files-> { "Physics" } = [ "PhysMultCand" , "PhysMatch" , "PhysMultDist" , "PhysBetaMomSys0" , "PhysBetaMomSys1" , "PhysVertex" , "PhysToTmips" ]; -$files-> { "EcalMon"} = []; +$files-> { "EcalMon"} = ["RawMult", "SlowTot"]; # while(1) { diff --git a/hmon/permanent/hmon_rpchv.pl b/hmon/permanent/hmon_rpchv.pl index 666a0ae..1adfdd4 100755 --- a/hmon/permanent/hmon_rpchv.pl +++ b/hmon/permanent/hmon_rpchv.pl @@ -49,6 +49,8 @@ my $errortimer = 0; my @i_integrated=(0,0,0,0,0,0,0,0,0,0,0,0); my $ChnlsOn = 0; +my $ChnlsLow = 0; + my $cnt; while(1) { @@ -59,10 +61,12 @@ while(1) { my $data = Perl2Epics::GetAll(); $ChnlsOn=0; + $ChnlsLow=0; for(my $i = 0; $i <=5; $i++) { for(my $j = 0; $j<=1; $j++) { $cnt = ($i*2)+$j; if ($data->{"U$cnt"}->{val}>=5490){$ChnlsOn++;} + elsif ($data->{"U$cnt"}->{val}>=4990){$ChnlsLow++;} } } @@ -73,14 +77,15 @@ while(1) { my $longtext = sprintf("HV channels On: %i/12",$ChnlsOn); $qastate = QA::GetQAState('above', $ChnlsOn, @QA::RpcHvLimits); - if ($ChnlsOn == 0){ $qastate = QA::WARN_2;} + if ($ChnlsOn == 0){ $qastate = QA::ERROR;} + if ($ChnlsLow == 12){ $qastate = QA::WARN;} if ($QA::RpcHvOff == 1) { $qastate = QA::NOTE;} $timer++; $str = ""; - if($timer%8 == 0) { - + if($timer%2 == 0) { + print $ChnlsOn." ".$ChnlsLow."\n"; if ($ChnlsOn>0 and $ChnlsOn<12) { for(my $i = 1; $i <=6; $i++) { for(my $j = 1; $j<=2; $j++) { @@ -107,7 +112,10 @@ $timer++; } # $value = sprintf("%i/652",$ChnlsOn); $longtext = sprintf("HV channels On: %i/12
      Check the current and voltage monitoring plots!
      %s",$ChnlsOn,$str); - } + } + elsif($ChnlsLow==12) { + $value = sprintf("HV is reduced"); + } elsif($ChnlsOn==0) { $value = sprintf("HV is OFF"); $longtext = sprintf("HV is OFF"); diff --git a/hmon/permanent/hmon_sequencer.pl b/hmon/permanent/hmon_sequencer.pl index 59322a9..db3cb24 100755 --- a/hmon/permanent/hmon_sequencer.pl +++ b/hmon/permanent/hmon_sequencer.pl @@ -128,7 +128,7 @@ while(1) { $longtxt = "All sequencers running" if $longtxt eq ""; my $value = ((scalar @names)-$count)."/".(scalar @names); - QA::WriteQALog($flog,"hv2","sequencer",20,$qastate,"HV Sequencer",$value,$longtxt); + QA::WriteQALog($flog,"misc","sequencer",20,$qastate,"HV Sequencer",$value,$longtxt); if($qastate == QA::FATAL) { if(!($errorcounter%15)){ Hmon::Speak('nobeam', "High Voltage Control is not working"); diff --git a/hmon/permanent/hmon_starthv.pl b/hmon/permanent/hmon_starthv.pl old mode 100755 new mode 100644 diff --git a/hmon/permanent/hmon_tofhv.pl b/hmon/permanent/hmon_tofhv.pl index 3c29e9d..c64a549 100755 --- a/hmon/permanent/hmon_tofhv.pl +++ b/hmon/permanent/hmon_tofhv.pl @@ -92,7 +92,7 @@ while(1) { my $longtext = sprintf("HV channels On: %i/768",$ChnlsOn); $qastate = QA::GetQAState('above', $ChnlsOn, @QA::TofHvLimits); - if ($ChnlsOn == 0){ $qastate = QA::WARN_2;} + if ($ChnlsOn == 0){ $qastate = QA::ERROR;} if ($QA::TofHvOff == 1) { $qastate = QA::NOTE;} diff --git a/hmon/speakdaemon.pl b/hmon/speakdaemon.pl index ff8c774..746513c 100755 --- a/hmon/speakdaemon.pl +++ b/hmon/speakdaemon.pl @@ -26,7 +26,8 @@ if($f) { if ($inhibit == 0) { # system("espeak -vus-mbrola-1 -s125 \"$a\" 2>/dev/null #-ven+m2 -s 130 -g 1 "); -ven-us+f2 -p50 -s120 # system("espeak -ven-us+f2 -p60 -s150 -g 1 \"oh-oh -- $a\" 2>/dev/null"); - system("espeak -ven-german -s120 -p 90 \"$a\" 2>/dev/null"); + system("espeak-ng -ven-german -s140 -p 90 \"$a\" 2>/dev/null"); +# system("espeak -s120 -p 90 \"$a\" 2>/dev/null"); } } } diff --git a/hmon/start.sh b/hmon/start.sh index c311686..28c0c35 100755 --- a/hmon/start.sh +++ b/hmon/start.sh @@ -35,18 +35,21 @@ mkdir `pwd`/vertex mkdir `pwd`/pion -DISPLAY=:0 ssh -f -X lxhadeb06p "ping -i 100 lxhadesdaqp" &>/dev/null & +#DISPLAY=:0 ssh -f -X lxhadeb06p "ping -i 100 lxhadesdaqp" &>/dev/null & #sshfs -o allow_other hades-qa@lxhadeb06p:/home/hades-qa/online/mar19/pics/vertex `pwd`/vertex #sshfs -o allow_other hades-qa@lxhadeb06p:/home/hades-qa/online/mar19/pics `pwd`/qa +#sshfs -o allow_other hadaq@lxhadeb06p:/home/hadaq/local/hydra2/online/feb21_master/online/pics/vertex `pwd`/vertex +#sshfs -o allow_other hadaq@lxhadeb06p:/home/hadaq/local/hydra2/online/feb21/online/pics `pwd`/qa + # sshfs -o allow_other hadaq@lxhadeb06p:/data01/tmp/ `pwd`/pion echo " Linking files to server..." ln -fs `pwd`/archive /srv/www/htdocs/mon/ -ln -fs `pwd`/qa /srv/www/htdocs/mon/ -ln -fs `pwd`/vertex /srv/www/htdocs/mon/ +#ln -fs `pwd`/qa /srv/www/htdocs/mon/ +#ln -fs `pwd`/vertex /srv/www/htdocs/mon/ ln -fs `pwd`/files /srv/www/htdocs/mon/ ln -fs `pwd`/doc /srv/www/htdocs/mon/ ln -fs `pwd`/doc.cgi /srv/www/htdocs/mon/ diff --git a/hmon/test.pl b/hmon/test.pl index 41914b3..74beb46 100755 --- a/hmon/test.pl +++ b/hmon/test.pl @@ -3,43 +3,58 @@ use warnings; use strict; use Data::Dumper; +use Data::TreeDumper; +use Hmon; +use QA; use HADES::TrbNet; - - - -trb_init_ports() or die trb_strerror(); -$|=1; - -my $res; -my $daq_rate; -while (1) { - my $rh_rate = trb_register_read(0x0003, 0xa001);# or sleep 5 and next; - if (!defined $rh_rate) { - $res = trb_strerror(); - print "error output: $res\n"; - if ($res =~ /^RPC:/) { - sleep 1; - trb_init_ports(); - next; - } - else { - sleep 1; - exit; - } +use HPlot; +use Time::HiRes qw(usleep); +use List::Util qw[min max]; + + +HPlot::PlotInit({ + name => "StartPositionWK", + file => "files/StartPositionWK", + entries => 200, + type => HPlot::TYPE_HISTORY, + output => HPlot::OUT_PNG, + titles => ["X position","Y position","Xrms","Yrms"], + xlabel => "Seconds", + ylabel => "Strips", + sizex => 970, + sizey => 350, + ymin => "0", + ymax => "10", + curves => 4, + xscale => 10, + buffer => 1, + }); + + +my $str = Hmon::MakeTitle(13, 8, "Start Position",0); +$str .= qq@\n@; +$str .= Hmon::MakeFooter(); +Hmon::WriteFile("StartPositionWK",$str); + + +HPlot::PlotDraw('StartPositionnWK'); + +exit; + + +foreach (1..10) { + foreach (1) { + #HPlot::PlotAdd("StartPositionWK",1.2,0); + #exit; + #HPlot::PlotAdd("StartPositionWK",2.2,1); + #HPlot::PlotAdd("StartPositionWK",3.5,2); + #HPlot::PlotAdd("StartPositionWK",4.6,3); } - print Dumper $rh_rate; - if ( !defined $rh_rate) { - $daq_rate = 0; - } - else { - $daq_rate = $rh_rate->{0x0003} & 0xfffff; # only 20bits - } - - printf "%8d ", $daq_rate; + HPlot::PlotDraw('StartPositionWK'); + print "draw done\n"; + sleep 2; + print "test \n"; sleep 1; } - - - diff --git a/hmon/hmon_micha_test.pl b/hmon/test/hmon_micha_test.pl similarity index 100% rename from hmon/hmon_micha_test.pl rename to hmon/test/hmon_micha_test.pl diff --git a/hub/addresses_hub_trb3.db b/hub/addresses_hub_trb3.db index f80605d..16e2b7f 100644 --- a/hub/addresses_hub_trb3.db +++ b/hub/addresses_hub_trb3.db @@ -22,12 +22,18 @@ #new TOF 0x86c0 241 5 0 0 -0x86c1 088 5 0 0 +0x86c1 264 5 0 0 0x86c2 006 5 0 0 0x86c3 242 5 0 0 -0x86c4 113 5 0 0 +0x86c4 265 5 0 0 0x86c5 094 5 0 0 #fRPC 0x8c00 237 5 0 0 0x8c10 244 5 0 0 + + +#Wall + 0x8700 267 5 0 0 + 0x8701 074 5 0 0 + 0x8702 266 5 0 0 diff --git a/hub/register_configgbe_2019.db b/hub/register_configgbe_2019.db index 3df41b5..b699c95 100644 --- a/hub/register_configgbe_2019.db +++ b/hub/register_configgbe_2019.db @@ -61,6 +61,9 @@ 0x86c5 1 0x86c5 1 1 0x86c6 1 0x86c6 1 1 + 0x8700 1 0x8700 1 1 + 0x8701 1 0x8701 1 1 + 0x8702 1 0x8702 1 1 0x8800 1 0x8800 1 1 0x8810 1 0x8810 1 1 diff --git a/hub/register_configgbe_ip.db b/hub/register_configgbe_ip.db index 4e6e4fc..b81ecd4 120000 --- a/hub/register_configgbe_ip.db +++ b/hub/register_configgbe_ip.db @@ -1 +1 @@ -register_configgbe_ip_2021.db \ No newline at end of file +register_configgbe_ip_2021-test.db \ No newline at end of file diff --git a/hub/register_configgbe_ip_2021-test.db b/hub/register_configgbe_ip_2021-test.db new file mode 100644 index 0000000..603e677 --- /dev/null +++ b/hub/register_configgbe_ip_2021-test.db @@ -0,0 +1,316 @@ +########################################################################################### +# JAM 17-10-2018 - introduce even more new server lxhadeb11, lxhadeb12, skip lxhadeb05 +# JAM2018 - setup for usage of NEW SERVERS lxhadeb08. lxhadeb09, lxhadeb10 - BNET only +# JAM DEC-2019 - prepare for new trb3 datasources of rpc and tof +# 0x84c0 - 0x84c5 : 6 new subevents for new RPC electronics. +# 0x86c0 to 0x86c6 are the new hubs for TOF (1 TRB3 each, 128 channels each, 7 TRB3 total) +####### +# JAM july 2021: add new eventbuilders lxhadeb14,15,16; new setup with 7 inputs and 5 builders + +# Eventbuilders: +# EB 0 is now used to define BNET destinations: + +# we define 7 input nodes in the setup for EB0- +# BNET_IN 1: lxhadeb08 enp97s0f1 192.168.100.8 0xc0a86408 ports 50768 - 50805 +# BNET_IN 2: lxhadeb09 enp97s0f1 192.168.100.9 0xc0a86409 ports +# BNET_IN 3: lxhadeb10 enp97s0f1 192.168.100.10 0xc0a8640a ports +# BNET_IN 4: lxhadeb11 eno2 192.168.105.11 0xc0a8690b +## BNET_IN 5: lxhadeb12 eno2 192.168.105.12 0xc0a8690c +# lxhadeb14 enp67s0f0 192.168.105.14 0xc0a8690e +# lxhadeb15 enp67s0f0 192.168.105.15 0xc0a8690f +# lxhadeb16 enp67s0f0 192.168.105.16 0xc0a86910 + +# the 5 builder nodes lxhadeb08 -lxhadeb11 are assigned in start_eb_gbe.pl +##################### + + + +# EB 1: lxhadeb09 enp97s0f1 192.168.100.9 0xc0a86409 ports 50000 - 50099 +# EB 2: lxhadeb10 enp97s0f1 192.168.100.10 0xc0a8640a ports 50000 - 50099 +# EB 3: lxhadeb11 eth4 192.168.100.15 0xc0a8690b ports 50000 - 50099 +# EB 4: lxhadeb08 enp97s0f1 192.168.100.8 0xc0a86408 ports 50256 - 50293 +# EB 5: lxhadeb09 enp97s0f1 192.168.100.9 0xc0a86409 ports 50256 - 50293 +# EB 6: lxhadeb10 enp97s0f1 192.168.100.10 0xc0a8640a ports 50256 - 50293 +# EB 7: lxhadeb11 eno2 192.168.105.11 0xc0a8690b ports 50256 - 50293 +# EB 8: lxhadeb08 enp97s0f1 192.168.100.8 0xc0a86408 ports 50512 - 50549 +# EB 9: lxhadeb09 enp97s0f1 192.168.100.9 0xc0a86409 ports 50512 - 50549 +# EB 10: lxhadeb10 enp97s0f1 192.168.100.10 0xc0a8640a ports 50512 - 50549 +# EB 11: lxhadeb11 eno2 192.168.105.11 0xc0a8690b ports 50512 - 50549 +# EB 12: lxhadeb08 enp97s0f1 192.168.100.8 0xc0a86408 ports 50768 - 50805 +# EB 13: lxhadeb09 enp97s0f1 192.168.100.9 0xc0a86409 ports 50768 - 50805 +# EB 14: lxhadeb10 enp97s0f1 192.168.100.10 0xc0a8640a ports 50768 - 50805 +# EB 15: lxhadeb11 eno2 192.168.105.11 0xc0a8690b ports 50768 - 50805 + +########################################################################################### + + +#Broadcast to all GbE-Entities: 0xff7f + +!Register table +# Type # C0 # C1 # C2 # C3 # C4 # C5 # C6 # C7 # C8 # +########################################################################################### +# #old register set +# 17 0xc100 0xc101 0xc102 0xc103 0xc104 0xc105 0xc106 0xc107 0xc108 +# #new memory locations +# 0 0x8100 0x8101 0x8102 0x8103 0x8104 0x8105 0x8106 0x8107 0x8108 +# 1 0x8110 0x8111 0x8112 0x8113 0x8114 0x8115 0x8116 0x8117 0x8118 +# 2 0x8120 0x8121 0x8122 0x8123 0x8124 0x8125 0x8126 0x8127 0x8128 +# 3 0x8130 0x8131 0x8132 0x8133 0x8134 0x8135 0x8136 0x8137 0x8138 +# 4 0x8140 0x8141 0x8142 0x8143 0x8144 0x8145 0x8146 0x8147 0x8148 +# 5 0x8150 0x8151 0x8152 0x8153 0x8154 0x8155 0x8156 0x8157 0x8158 +# 6 0x8160 0x8161 0x8162 0x8163 0x8164 0x8165 0x8166 0x8167 0x8168 +# 7 0x8170 0x8171 0x8172 0x8173 0x8174 0x8175 0x8176 0x8177 0x8178 +# 8 0x8180 0x8181 0x8182 0x8183 0x8184 0x8185 0x8186 0x8187 0x8188 +# 9 0x8190 0x8191 0x8192 0x8193 0x8194 0x8195 0x8196 0x8197 0x8198 +# 10 0x81A0 0x81A1 0x81A2 0x81A3 0x81A4 0x81A5 0x81A6 0x81A7 0x81A8 +# 11 0x81B0 0x81B1 0x81B2 0x81B3 0x81B4 0x81B5 0x81B6 0x81B7 0x81B8 +# 12 0x81C0 0x81C1 0x81C2 0x81C3 0x81C4 0x81C5 0x81C6 0x81C7 0x81C8 +# 13 0x81D0 0x81D1 0x81D2 0x81D3 0x81D4 0x81D5 0x81D6 0x81D7 0x81D8 +# 14 0x81E0 0x81E1 0x81E2 0x81E3 0x81E4 0x81E5 0x81E6 0x81E7 0x81E8 +# 15 0x81F0 0x81F1 0x81F2 0x81F3 0x81F4 0x81F5 0x81F6 0x81F7 0x81F8 + + +#Sliced tables for broadcast settings follow: +# Type # C0 # C1 # C2 # C5 # C8 # +####################################################### + 100 0x8100 0x8101 0x8102 0x8105 0x8108 + 101 0x8110 0x8111 0x8112 0x8115 0x8118 + 102 0x8120 0x8121 0x8122 0x8125 0x8128 + 103 0x8130 0x8131 0x8132 0x8135 0x8138 + 104 0x8140 0x8141 0x8142 0x8145 0x8148 + 105 0x8150 0x8151 0x8152 0x8155 0x8158 + 106 0x8160 0x8161 0x8162 0x8165 0x8168 + 107 0x8170 0x8171 0x8172 0x8175 0x8178 + 108 0x8180 0x8181 0x8182 0x8185 0x8188 + 109 0x8190 0x8191 0x8192 0x8195 0x8198 + 110 0x81A0 0x81A1 0x81A2 0x81A5 0x81A8 + 111 0x81B0 0x81B1 0x81B2 0x81B5 0x81B8 + 112 0x81C0 0x81C1 0x81C2 0x81C5 0x81C8 + 113 0x81D0 0x81D1 0x81D2 0x81D5 0x81D8 + 114 0x81E0 0x81E1 0x81E2 0x81E5 0x81E8 + 115 0x81F0 0x81F1 0x81F2 0x81F5 0x81F8 + +#Table for individual settings +# Type # C3 # C4 # C6 # C7 # +############################################## + 0 0x8103 0x8104 0x8106 0x8107 + 1 0x8113 0x8114 0x8116 0x8117 + 2 0x8123 0x8124 0x8126 0x8127 + 3 0x8133 0x8134 0x8136 0x8137 + 4 0x8143 0x8144 0x8146 0x8147 + 5 0x8153 0x8154 0x8156 0x8157 + 6 0x8163 0x8164 0x8166 0x8167 + 7 0x8173 0x8174 0x8176 0x8177 + 8 0x8183 0x8184 0x8186 0x8187 + 9 0x8193 0x8194 0x8196 0x8197 + 10 0x81A3 0x81A4 0x81A6 0x81A7 + 11 0x81B3 0x81B4 0x81B6 0x81B7 + 12 0x81C3 0x81C4 0x81C6 0x81C7 + 13 0x81D3 0x81D4 0x81D6 0x81D7 + 14 0x81E3 0x81E4 0x81E6 0x81E7 + 15 0x81F3 0x81F4 0x81F6 0x81F7 + + + + + +!Value table + + + + +# Dest Port Src MAC Src IP Src Port # # TDC Calib flag +# Hub # Type # C3 # C4 # C6 # C7 # EB IP # 1:NO 1:linear 2:complex 11:linear with ToT 15ns +########################################################################################################## +# JAM 25-may-2018: this first EB will be also used as pseudo node to setup the dabc bnet +# JAM 17-oct-2018: adjusted for new server hardware only +# last column will distribute to bnet input nodes +# EB_LUT must be 0x1 in CTS for bnet mode +# 0xc0a86408 lxhadeb08 mac 90:e2:ba:f7:9b:b5 192.168.100.8 +# 0xc0a86409 lxhadeb09, mac 90:e2:ba:f7:cf:a1 192.168.100.9 +# 0xc0a8640a lxhadeb10, mac 90:e2:ba:e2:c9:95 192.168.100.10 +# 0xc0a8690b lxhadeb11 mac ac:1f:6b:66:2a:29 192.168.105.11 +## 0xc0a8690c lxhadeb12 mac ac:1f:6b:64:73:17 192.168.105.12 +# note: lxhadeb12 will be only master node (and spare) JAM 26-07-2021 +# 0xc0a8690e lxhadeb14 mac 40:a6:b7:3c:b2:0c 192.168.105.14 +# 0xc0a8690f lxhadeb15 mac 40:a6:b7:3c:5e:0c 192.168.105.15 +# 0xc0a86910 lxhadeb16 mac 40:a6:b7:3c:6d:98 192.168.105.16 + + +# note that we also need to set same destination ips in the hub table at the end of this file! +# +#lxhadebXX, EB1 XX +# 0x8000 0 0xc65B 0xdead8000 0xc0a86480 0xc65B 0xc0a86408 0 # OLD cts -lxhadeb08 + 0x8700 0 0xc65A 0xdead8700 0xc0a8648C 0xc65A 0xc0a86910 1 # fw new 1 lxhadeb16 + 0x8701 0 0xc65B 0xdead8701 0xc0a8648C 0xc65B 0xc0a86910 1 # fw new 2 lxhadeb16 + 0x8702 0 0xc65C 0xdead8702 0xc0a8648C 0xc65C 0xc0a86910 1 # fw new 3 lxhadeb16 + 0x8800 0 0xc650 0xdead8800 0xc0a8648B 0xc650 0xc0a8690b 0 # central-cts lxhadeb11 + 0x8880 0 0xc65D 0xdead8A00 0xc0a8648D 0xc65D 0xc0a86409 2 # start - lxhadeb09 + 0x8890 0 0xc65F 0xdead8890 0xc0a8648F 0xc65F 0xc0a86409 2 # veto lxhadeb09 +# 0x8900 0 0xc65C 0xdead8900 0xc0a8648C 0xc65C 0xc0a86409 0 # pion1 lxhadeb09 +# 0x8910 0 0xc65E 0xdead8910 0xc0a8648E 0xc65E 0xc0a86409 0 # pion2 lxhadeb09 + 0x1000 0 0xc660 0xdead1000 0xc0a86490 0xc660 0xc0a86408 0 # mdc - lxhadeb08 + 0x1010 0 0xc661 0xdead1010 0xc0a86491 0xc661 0xc0a86408 0 # mdc - lxhadeb08 + 0x1020 0 0xc662 0xdead1020 0xc0a86492 0xc662 0xc0a86408 0 # mdc - lxhadeb08 + 0x1030 0 0xc663 0xdead1030 0xc0a86493 0xc663 0xc0a86408 0 # mdc - lxhadeb08 + 0x1040 0 0xc664 0xdead1040 0xc0a86494 0xc664 0xc0a86408 0 # mdc - lxhadeb08 + 0x1050 0 0xc665 0xdead1050 0xc0a86495 0xc665 0xc0a86408 0 # mdc - lxhadeb08 + 0x1100 0 0xc666 0xdead1100 0xc0a86496 0xc666 0xc0a86910 0 # mdc - lxhadeb16 ->min for 16 + 0x1110 0 0xc667 0xdead1110 0xc0a86497 0xc667 0xc0a8690f 0 # mdc - lxhadeb15 ->min for 15 + 0x1120 0 0xc668 0xdead1120 0xc0a86498 0xc668 0xc0a86409 0 # mdc - lxhadeb09 - min for 09 + 0x1130 0 0xc669 0xdead1130 0xc0a86499 0xc669 0xc0a8640a 0 # mdc - lxhadeb10 - min for 10 + 0x1140 0 0xc66A 0xdead1140 0xc0a8649A 0xc66A 0xc0a8690b 0 # mdc - lxhadeb11 - min for 11 + 0x1150 0 0xc66B 0xdead1150 0xc0a8649B 0xc66B 0xc0a8690e 0 # mdc - lxhadeb14 - min for 14 + 0x8a00 0 0xc676 0xdead8a00 0xc0a864A6 0xc676 0xc0a86409 1 # ecal- lxhadeb09 + 0x8a01 0 0xc677 0xdead8a01 0xc0a864A7 0xc677 0xc0a86409 1 # ecal- lxhadeb09 + 0x8a02 0 0xc678 0xdead8a02 0xc0a864A8 0xc678 0xc0a86409 1 # ecal- lxhadeb09 + 0x8a03 0 0xc679 0xdead8a03 0xc0a864A9 0xc679 0xc0a86409 1 # ecal- lxhadeb09 + 0x8a04 0 0xc67a 0xdead8a04 0xc0a864AA 0xc67A 0xc0a8690e 1 # ecal- lxhadeb14 + 0x8a05 0 0xc67b 0xdead8a05 0xc0a864AB 0xc67B 0xc0a8690e 1 # ecal- lxhadeb14 + 0x83c0 0 0xc67c 0xdead83c0 0xc0a864AC 0xc67C 0xc0a8690e 11 # rich lxhadeb14 + 0x83c1 0 0xc67d 0xdead83c1 0xc0a864AD 0xc67D 0xc0a8690e 11 # rich lxhadeb14 + 0x83c2 0 0xc67e 0xdead83c2 0xc0a864AE 0xc67E 0xc0a8690e 11 # rich lxhadeb14 + 0x83c3 0 0xc67f 0xdead83c3 0xc0a864AF 0xc67F 0xc0a8640a 11 # rich lxhadeb10 + 0x83c4 0 0xc680 0xdead83c4 0xc0a864B0 0xc680 0xc0a8640a 11 # rich lxhadeb10 + 0x83c5 0 0xc681 0xdead83c5 0xc0a864B1 0xc681 0xc0a8640a 11 # rich lxhadeb10 + 0x83c6 0 0xc682 0xdead83c6 0xc0a864B2 0xc682 0xc0a8690e 11 # rich lxhadeb14 + 0x83c7 0 0xc683 0xdead83c7 0xc0a864B3 0xc683 0xc0a8690e 11 # rich lxhadeb14 + 0x83c8 0 0xc684 0xdead83c8 0xc0a864B4 0xc684 0xc0a86408 11 # rich lxhadeb08 + 0x83c9 0 0xc685 0xdead83c9 0xc0a864B5 0xc685 0xc0a86408 11 # rich lxhadeb08 + 0x83ca 0 0xc686 0xdead83ca 0xc0a864B6 0xc686 0xc0a8690b 11 # rich lxhadeb11 + 0x83cb 0 0xc687 0xdead83cb 0xc0a864B7 0xc687 0xc0a8690b 11 # rich lxhadeb11 + 0x8810 0 0xc653 0xdead8810 0xc0a864B8 0xc653 0xc0a8690b 0 # central-aux lxhadeb11 + 0x84c0 0 0xc654 0xdead84c0 0xc0a864B9 0xc654 0xc0a8640a 2 # rpc sector 1 lxhadeb10 + 0x84c1 0 0xc655 0xdead84c1 0xc0a864BA 0xc655 0xc0a8640a 2 # rpc sector 2 lxhadeb10 + 0x84c2 0 0xc656 0xdead84c2 0xc0a864BB 0xc656 0xc0a8640a 2 # rpc sector 3 lxhadeb10 + 0x84c3 0 0xc657 0xdead84c3 0xc0a864BC 0xc657 0xc0a8690b 2 # rpc sector 4 lxhadeb11 + 0x84c4 0 0xc658 0xdead84c4 0xc0a864BD 0xc658 0xc0a8690b 2 # rpc sector 4 lxhadeb11 + 0x84c5 0 0xc651 0xdead84c4 0xc0a864BE 0xc651 0xc0a8690b 2 # rpc sector 4 lxhadeb11 + 0x86c0 0 0xc690 0xdead86c0 0xc0a864C0 0xc690 0xc0a86408 2 # tof hub 0 lxhadeb08 + 0x86c1 0 0xc691 0xdead86c1 0xc0a864C1 0xc691 0xc0a86409 2 # tof hub 1 lxhadeb09 + 0x86c2 0 0xc692 0xdead86c2 0xc0a864C2 0xc692 0xc0a8640A 2 # tof hub 2 lxhadeb10 + 0x86c3 0 0xc693 0xdead86c3 0xc0a864C3 0xc693 0xc0a8690B 2 # tof hub 3 lxhadeb11 + 0x86c4 0 0xc694 0xdead86c4 0xc0a864C4 0xc694 0xc0a8690B 2 # tof hub 4 lxhadeb11 + 0x86c5 0 0xc695 0xdead86c5 0xc0a864C5 0xc695 0xc0a8690E 2 # tof hub 5 lxhadeb14 + 0x86c6 0 0xc696 0xdead86c6 0xc0a864C6 0xc696 0xc0a8690E 2 # tof hub 6 lxhadeb14 + 0x8b00 0 0xc6B0 0xdead8b00 0xc0a864D0 0xc6B0 0xc0a8690f 2 # STS1 0 lxhadeb15 + 0x8b01 0 0xc6B1 0xdead8b01 0xc0a864D1 0xc6B1 0xc0a8690f 2 # STS1 1 lxhadeb15 + 0x8b02 0 0xc6B2 0xdead8b02 0xc0a864D2 0xc6B2 0xc0a8690f 2 # STS1 2 lxhadeb15 + 0x8b03 0 0xc6B3 0xdead8b03 0xc0a864D3 0xc6B3 0xc0a8690f 2 # STS1 3 lxhadeb15 + 0x8b10 0 0xc6B4 0xdead8b10 0xc0a864D9 0xc6B4 0xc0a86910 2 # STS2 0 lxhadeb16 + 0x8b11 0 0xc6B5 0xdead8b11 0xc0a864DA 0xc6B5 0xc0a86910 2 # STS2 1 lxhadeb16 + 0x8b12 0 0xc6B6 0xdead8b12 0xc0a864DB 0xc6B6 0xc0a86910 2 # STS2 2 lxhadeb16 + 0x8b13 0 0xc6B7 0xdead8b13 0xc0a864DC 0xc6B7 0xc0a86910 2 # STS2 3 lxhadeb16 + 0x8b14 0 0xc6B8 0xdead8b14 0xc0a864DD 0xc6B8 0xc0a86910 2 # STS2 4 lxhadeb16 + 0x8b15 0 0xc6B9 0xdead8b15 0xc0a864DE 0xc6B9 0xc0a86910 2 # STS2 5 lxhadeb16 + 0x8c00 0 0xc6BA 0xdead8c00 0xc0a864C0 0xc6BA 0xc0a8690f 2 # fw-RPC 0 lxhadeb15 + 0x8c10 0 0xc6BB 0xdead8c01 0xc0a864C0 0xc6BB 0xc0a8690f 2 # fw-RPC 1 lxhadeb15 + 0x8d00 0 0xc6BC 0xdead86c1 0xc0a864C1 0xc6BC 0xc0a86409 2 # inner-tof lxhadeb09 + + ####################################################################################################################### +####################################################################################################################### + + + +# hub setup - destination macs and ips + +############################################################################# +# +# lxhadeb08 enp97s0f1 90:e2:ba:f7:9b:b5 192.168.100.8 0xc0a86408 +# lxhadeb09 enp97s0f1 90:e2:ba:f7:cf:a1 192.168.100.9 0xc0a86409 +# lxhadeb10 enp97s0f1 90:e2:ba:e2:c9:95 192.168.100.10 0xc0a8640a +# lxhadeb11 eno2 ac:1f:6b:66:2a:29 192.168.105.11 0xc0a8690b +# lxhadeb12 eno2 ac:1f:6b:64:73:17 192.168.105.12 0xc0a8690c + +# second gbe +# lxhadeb11 enp19s0f1 ac:1f:6b:8b:62:f1 192.168.105.11 0xc0a8690b +# lxhadeb12 enp19s0f1 ac:1f:6b:8b:60:1f 192.168.105.12 0xc0a8690c + +# lxhadeb14 enp67s0f0 40:a6:b7:3c:b2:0c 192.168.105.14 0xc0a8690e +# lxhadeb15 enp67s0f0 40:a6:b7:3c:5e:0c 192.168.105.15 0xc0a8690f +# lxhadeb16 enp67s0f0 40:a6:b7:3c:6d:98 192.168.105.16 0xc0a86910 + +# EB 3: lxhadeb05 eth4 192.168.100.15 0xc0a8640f + + +# Dest MAC Dest MAC Dest IP Src MAC Packet Size +# Hub # Type # C0 # C1 # C2 # C5 # C8 # +##################################################################################### + # 0xff7f 100 0xbaf79bb5 0x90e2 0xc0a86408 0x0230 0x0578 #lxhadeb08 EB0 90:e2:ba:f7:9b:b5 192.168.100.8 + # JAM 27-apr-2018: for DABC-BNET (Type 100) the destination ips have to be set here for individual hubs +# the ip entries in above table for eb1 needs to match this to configure EBs! + # 0xff7f 100 0x2157b095 0x001B 0xc0a8640f 0x0230 0x0578 #dummies to lxhadeb05, EB3 00:1b:21:57:b0:95 192.168.100.15 +# + 0x8700 100 0xb73c6d98 0x40a6 0xc0a86910 0x0230 0x0578 # fw new 1 lxhadeb16 + 0x8701 100 0xb73c6d98 0x40a6 0xc0a86910 0x0230 0x0578 # fw new 2 lxhadeb16 + 0x8702 100 0xb73c6d98 0x40a6 0xc0a86910 0x0230 0x0578 # fw new 3 lxhadeb16 + 0x8800 100 0x6b8b62f1 0xac1f 0xc0a8690b 0x0230 0x0578 # central-cts lxhadeb11 ###### + 0x8880 100 0xbaf7cfa1 0x90e2 0xc0a86409 0x0230 0x0578 # start - lxhadeb09 + 0x8890 100 0xbaf7cfa1 0x90e2 0xc0a86409 0x0230 0x0578 # veto lxhadeb09 +# 0x8900 100 0xbaf7cfa1 0x90e2 0xc0a86409 0x0230 0x0578 # pion1 lxhadeb09 +# 0x8910 100 0xbaf7cfa1 0x90e2 0xc0a86409 0x0230 0x0578 # pion2 lxhadeb09 + 0x1000 100 0xbaf79bb5 0x90e2 0xc0a86408 0x0230 0x0578 # mdc - lxhadeb08 + 0x1010 100 0xbaf79bb5 0x90e2 0xc0a86408 0x0230 0x0578 # mdc - lxhadeb08 + 0x1020 100 0xbaf79bb5 0x90e2 0xc0a86408 0x0230 0x0578 # mdc - lxhadeb08 + 0x1030 100 0xbaf79bb5 0x90e2 0xc0a86408 0x0230 0x0578 # mdc - lxhadeb08 + 0x1040 100 0xbaf79bb5 0x90e2 0xc0a86408 0x0230 0x0578 # mdc - lxhadeb08 + 0x1050 100 0xbaf79bb5 0x90e2 0xc0a86408 0x0230 0x0578 # mdc - lxhadeb08 + 0x1100 100 0xb73c6d98 0x40a6 0xc0a86910 0x0230 0x0578 # mdc - lxhadeb16 - min if others are off + 0x1110 100 0xb73c5e0c 0x40a6 0xc0a8690f 0x0230 0x0578 # mdc - lxhadeb15 - min if others are off + 0x1120 100 0xbaf7cfa1 0x90e2 0xc0a86409 0x0230 0x0578 # mdc - lxhadeb09 - minimum if rich is off + 0x1130 100 0xbae2c995 0x90e2 0xc0a8640a 0x0230 0x0578 # mdc - lxhadeb10 - minimum if ecal is off + 0x1140 100 0x6b8b62f1 0xac1f 0xc0a8690b 0x0230 0x0578 # mdc - lxhadeb11 - minimum subevent for 11 + 0x1150 100 0xb73cb20c 0x40a6 0xc0a8690e 0x0230 0x0578 # mdc - lxhadeb14 - minimum sub for 14 +# 0x1160 100 0x6b662a29 0xac1f 0xc0a8690b 0x0230 0x0578 # mdc - OLD lxhadeb11 ##### old? + 0x8a00 100 0xbaf7cfa1 0x90e2 0xc0a86409 0x0230 0x0578 # ecal- lxhadeb09 + 0x8a01 100 0xbaf7cfa1 0x90e2 0xc0a86409 0x0230 0x0578 # ecal- lxhadeb09 + 0x8a02 100 0xbaf7cfa1 0x90e2 0xc0a86409 0x0230 0x0578 # ecal- lxhadeb09 + 0x8a03 100 0xbaf7cfa1 0x90e2 0xc0a86409 0x0230 0x0578 # ecal- lxhadeb09 + 0x8a04 100 0xb73cb20c 0x40a6 0xc0a8690e 0x0230 0x0578 # ecal- lxhadeb14 + 0x8a05 100 0xb73cb20c 0x40a6 0xc0a8690e 0x0230 0x0578 # ecal- lxhadeb14 + 0x83c0 100 0xb73cb20c 0x40a6 0xc0a8690e 0x0230 0x0578 # rich -lxhadeb14 + 0x83c1 100 0xb73cb20c 0x40a6 0xc0a8690e 0x0230 0x0578 # rich -lxhadeb14 + 0x83c2 100 0xb73cb20c 0x40a6 0xc0a8690e 0x0230 0x0578 # rich -lxhadeb14 + 0x83c3 100 0xbae2c995 0x90e2 0xc0a8640a 0x0230 0x0578 # rich - lxhadeb10 + 0x83c4 100 0xbae2c995 0x90e2 0xc0a8640a 0x0230 0x0578 # rich - lxhadeb10 + 0x83c5 100 0xbae2c995 0x90e2 0xc0a8640a 0x0230 0x0578 # rich - lxhadeb10 + 0x83c6 100 0xb73cb20c 0x40a6 0xc0a8690e 0x0230 0x0578 # rich - lxhadeb14 + 0x83c7 100 0xb73cb20c 0x40a6 0xc0a8690e 0x0230 0x0578 # rich - lxhadeb14 + 0x83c8 100 0xbaf79bb5 0x90e2 0xc0a86408 0x0230 0x0578 # rich - lxhadeb08 + 0x83c9 100 0xbaf79bb5 0x90e2 0xc0a86408 0x0230 0x0578 # rich - lxhadeb08 + 0x83ca 100 0x6b8b62f1 0xac1f 0xc0a8690b 0x0230 0x0578 # rich - lxhadeb11 + 0x83cb 100 0x6b8b62f1 0xac1f 0xc0a8690b 0x0230 0x0578 # rich - lxhadeb11 + 0x8810 100 0x6b8b62f1 0xac1f 0xc0a8690b 0x0230 0x0578 # central aux - lxhadeb11 + 0x84c0 100 0xbae2c995 0x90e2 0xc0a8640a 0x0230 0x0578 # rpc sector 1 lxhadeb10 + 0x84c1 100 0xbae2c995 0x90e2 0xc0a8640a 0x0230 0x0578 # rpc sector 2 lxhadeb10 + 0x84c2 100 0xbae2c995 0x90e2 0xc0a8640a 0x0230 0x0578 # rpc sector 3 lxhadeb10 + 0x84c3 100 0x6b8b62f1 0xac1f 0xc0a8690b 0x0230 0x0578 # rpc sector 4 lxhadeb11 + 0x84c4 100 0x6b8b62f1 0xac1f 0xc0a8690b 0x0230 0x0578 # rpc sector 5 lxhadeb11 + 0x84c5 100 0x6b8b62f1 0xac1f 0xc0a8690b 0x0230 0x0578 # rpc sector 6 lxhadeb11 + 0x86c0 100 0xbaf79bb5 0x90e2 0xc0a86408 0x0230 0x0578 # tof hub 0 lxhadeb08 + 0x86c1 100 0xbaf7cfa1 0x90e2 0xc0a86409 0x0230 0x0578 # tof hub 1 lxhadeb09 + 0x86c2 100 0xbae2c995 0x90e2 0xc0a8640a 0x0230 0x0578 # tof hub 2 lxhadeb10 + 0x86c3 100 0x6b8b62f1 0xac1f 0xc0a8690b 0x0230 0x0578 # tof hub 3 lxhadeb11 + 0x86c4 100 0x6b8b62f1 0xac1f 0xc0a8690b 0x0230 0x0578 # tof hub 4 lxhadeb11 + 0x86c5 100 0xb73cb20c 0x40a6 0xc0a8690e 0x0230 0x0578 # tof hub 5 lxhadeb14 + 0x86c6 100 0xb73cb20c 0x40a6 0xc0a8690e 0x0230 0x0578 # tof hub 6 lxhadeb14 + 0x8b00 100 0xb73c5e0c 0x40a6 0xc0a8690f 0x0230 0x0578 # STS1 0 lxhadeb15 + 0x8b01 100 0xb73c5e0c 0x40a6 0xc0a8690f 0x0230 0x0578 # STS1 1 lxhadeb15 + 0x8b02 100 0xb73c5e0c 0x40a6 0xc0a8690f 0x0230 0x0578 # STS1 2 lxhadeb15 + 0x8b03 100 0xb73c5e0c 0x40a6 0xc0a8690f 0x0230 0x0578 # STS1 3 lxhadeb15 + 0x8b10 100 0xb73c6d98 0x40a6 0xc0a86910 0x0230 0x0578 # STS2 0 lxhadeb16 + 0x8b11 100 0xb73c6d98 0x40a6 0xc0a86910 0x0230 0x0578 # STS2 1 lxhadeb16 + 0x8b12 100 0xb73c6d98 0x40a6 0xc0a86910 0x0230 0x0578 # STS2 2 lxhadeb16 + 0x8b13 100 0xb73c6d98 0x40a6 0xc0a86910 0x0230 0x0578 # STS2 3 lxhadeb16 + 0x8b14 100 0xb73c6d98 0x40a6 0xc0a86910 0x0230 0x0578 # STS2 4 lxhadeb16 + 0x8b15 100 0xb73c6d98 0x40a6 0xc0a86910 0x0230 0x0578 # STS2 5 lxhadeb16 + + 0x8c00 100 0xb73c5e0c 0x40a6 0xc0a8690f 0x0230 0x0578 # fwRPC-0 - lxhadeb15 + 0x8c10 100 0xb73c5e0c 0x40a6 0xc0a8690f 0x0230 0x0578 # fwRPC-1 - lxhadeb15 + 0x8d00 100 0xbaf7cfa1 0x90e2 0xc0a86409 0x0230 0x0578 # inner-tof lxhadeb09 + + + + + + diff --git a/hub/register_configgbe_ip_2021.db b/hub/register_configgbe_ip_2021.db index d003666..3c0725b 100644 --- a/hub/register_configgbe_ip_2021.db +++ b/hub/register_configgbe_ip_2021.db @@ -142,6 +142,9 @@ # 0x8420 0 0xc658 0xdead8420 0xc0a86488 0xc658 0xc0a8690b 0 # OLD rpc old lxhadeb11 # 0x8600 0 0xc659 0xdead8600 0xc0a86489 0xc659 0xc0a8690b 0 # tof lxhadeb11 # 0x8700 0 0xc65A 0xdead8700 0xc0a8648A 0xc65A 0xc0a8690b 0 # fw lxhadeb11 + 0x8700 0 0xc65A 0xdead8700 0xc0a8648C 0xc65A 0xc0a86409 1 # fw new 1 lxhadeb09 + 0x8701 0 0xc65B 0xdead8701 0xc0a8648C 0xc65B 0xc0a86409 1 # fw new 2 lxhadeb09 + 0x8702 0 0xc65C 0xdead8702 0xc0a8648C 0xc65C 0xc0a86409 1 # fw new 3 lxhadeb09 0x8800 0 0xc650 0xdead8800 0xc0a8648B 0xc650 0xc0a8690b 0 # central-cts lxhadeb11 0x8880 0 0xc65D 0xdead8A00 0xc0a8648D 0xc65D 0xc0a86409 2 # start - lxhadeb09 0x8890 0 0xc65F 0xdead8890 0xc0a8648F 0xc65F 0xc0a86409 2 # veto lxhadeb09 @@ -192,16 +195,16 @@ 0x86c4 0 0xc694 0xdead86c4 0xc0a864C4 0xc694 0xc0a8690B 2 # tof hub 4 lxhadeb11 0x86c5 0 0xc695 0xdead86c5 0xc0a864C5 0xc695 0xc0a8690C 2 # tof hub 5 lxhadeb12 0x86c6 0 0xc696 0xdead86c6 0xc0a864C6 0xc696 0xc0a8690C 2 # tof hub 6 lxhadeb12 - 0x8b00 0 0xc6B0 0xdead8b00 0xc0a864D0 0xc6B0 0xc0a86409 1 # STS1 0 lxhadeb09 - 0x8b01 0 0xc6B1 0xdead8b01 0xc0a864D1 0xc6B1 0xc0a86409 1 # STS1 1 lxhadeb09 - 0x8b02 0 0xc6B2 0xdead8b02 0xc0a864D2 0xc6B2 0xc0a8690C 1 # STS1 2 lxhadeb12 - 0x8b03 0 0xc6B3 0xdead8b03 0xc0a864D3 0xc6B3 0xc0a8690C 1 # STS1 3 lxhadeb12 - 0x8b10 0 0xc6B4 0xdead8b10 0xc0a864D9 0xc6B4 0xc0a8640a 1 # STS2 0 lxhadeb10 - 0x8b11 0 0xc6B5 0xdead8b11 0xc0a864DA 0xc6B5 0xc0a8640a 1 # STS2 1 lxhadeb10 - 0x8b12 0 0xc6B6 0xdead8b12 0xc0a864DB 0xc6B6 0xc0a8640a 1 # STS2 2 lxhadeb10 - 0x8b13 0 0xc6B7 0xdead8b13 0xc0a864DC 0xc6B7 0xc0a8690b 1 # STS2 3 lxhadeb11 - 0x8b14 0 0xc6B8 0xdead8b14 0xc0a864DD 0xc6B8 0xc0a8690b 1 # STS2 4 lxhadeb11 - 0x8b15 0 0xc6B9 0xdead8b15 0xc0a864DE 0xc6B9 0xc0a8690b 1 # STS2 5 lxhadeb11 + 0x8b00 0 0xc6B0 0xdead8b00 0xc0a864D0 0xc6B0 0xc0a86409 2 # STS1 0 lxhadeb09 + 0x8b01 0 0xc6B1 0xdead8b01 0xc0a864D1 0xc6B1 0xc0a86409 2 # STS1 1 lxhadeb09 + 0x8b02 0 0xc6B2 0xdead8b02 0xc0a864D2 0xc6B2 0xc0a8690C 2 # STS1 2 lxhadeb12 + 0x8b03 0 0xc6B3 0xdead8b03 0xc0a864D3 0xc6B3 0xc0a8690C 2 # STS1 3 lxhadeb12 + 0x8b10 0 0xc6B4 0xdead8b10 0xc0a864D9 0xc6B4 0xc0a8640a 2 # STS2 0 lxhadeb10 + 0x8b11 0 0xc6B5 0xdead8b11 0xc0a864DA 0xc6B5 0xc0a8640a 2 # STS2 1 lxhadeb10 + 0x8b12 0 0xc6B6 0xdead8b12 0xc0a864DB 0xc6B6 0xc0a8640a 2 # STS2 2 lxhadeb10 + 0x8b13 0 0xc6B7 0xdead8b13 0xc0a864DC 0xc6B7 0xc0a8690b 2 # STS2 3 lxhadeb11 + 0x8b14 0 0xc6B8 0xdead8b14 0xc0a864DD 0xc6B8 0xc0a8690b 2 # STS2 4 lxhadeb11 + 0x8b15 0 0xc6B9 0xdead8b15 0xc0a864DE 0xc6B9 0xc0a8690b 2 # STS2 5 lxhadeb11 0x8c00 0 0xc6BA 0xdead8c00 0xc0a864C0 0xc6BA 0xc0a86408 2 # fw-RPC 0 lxhadeb08 0x8c10 0 0xc6BB 0xdead8c01 0xc0a864C0 0xc6BB 0xc0a86408 2 # fw-RPC 1 lxhadeb08 0x8d00 0 0xc6BC 0xdead86c1 0xc0a864C1 0xc6BC 0xc0a86409 2 # inner-tof lxhadeb09 @@ -245,6 +248,9 @@ # 0x8420 100 0x6b8b62f1 0xac1f 0xc0a8690b 0x0230 0x0578 # OLD rpc old lxhadeb11 ###### # 0x8600 100 0x6b8b62f1 0xac1f 0xc0a8690b 0x0230 0x0578 # tof lxhadeb11 # 0x8700 100 0x6b8b62f1 0xac1f 0xc0a8690b 0x0230 0x0578 # fw lxhadeb11 + 0x8700 100 0xbaf7cfa1 0x90e2 0xc0a86409 0x0230 0x0578 # fw new 1 lxhadeb09 + 0x8701 100 0xbaf7cfa1 0x90e2 0xc0a86409 0x0230 0x0578 # fw new 2 lxhadeb09 + 0x8702 100 0xbaf7cfa1 0x90e2 0xc0a86409 0x0230 0x0578 # fw new 3 lxhadeb09 0x8800 100 0x6b8b62f1 0xac1f 0xc0a8690b 0x0230 0x0578 # central-cts lxhadeb11 ###### 0x8880 100 0xbaf7cfa1 0x90e2 0xc0a86409 0x0230 0x0578 # start - lxhadeb09 0x8890 100 0xbaf7cfa1 0x90e2 0xc0a86409 0x0230 0x0578 # veto lxhadeb09 diff --git a/hub/startup.script b/hub/startup.script index 80bfa0f..8b6a7bb 100644 --- a/hub/startup.script +++ b/hub/startup.script @@ -13,6 +13,17 @@ wait trbcmd setbit 0xfffd 0x22 0x08000000 #enable retransmission on oep trbcmd setbit 0xfe11 0x22 0x08000000 #enable retransmission on mdchub +#Remove Ecal +#trbcmd clearbit 0x8013 0xc0 0x3f +#trbcmd clearbit 0x8013 0xc1 0x3f +#trbcmd clearbit 0x8013 0xc3 0x3f + + +#Remove missing iTOF sectors +trbcmd clearbit 0x8d00 0xc0 0x4d +trbcmd clearbit 0x8d00 0xc1 0x4d +trbcmd clearbit 0x8d00 0xc3 0x4d + @@ -27,6 +38,14 @@ trbcmd clearbit 0x8800 0xc0 0xc trbcmd clearbit 0x8800 0xc1 0xc trbcmd clearbit 0x8810 0xc0 0x4 trbcmd clearbit 0x8810 0xc1 0x4 +trbcmd clearbit 0x8800 0xc0 0x40 #beam abort +trbcmd clearbit 0x8800 0xc1 0x40 +#trbcmd clearbit 0x8800 0xc3 0x40 + + +#trbcmd clearbit 0x8014 0xc0 0x40 +#trbcmd clearbit 0x8014 0xc1 0x40 +#trbcmd clearbit 0x8014 0xc3 0x40 #Remove both SCS from Trigger Distribution diff --git a/main/address_range.db b/main/address_range.db index 2948365..42573f1 100644 --- a/main/address_range.db +++ b/main/address_range.db @@ -12,6 +12,7 @@ TOF 0x5c00 0x5cff TRB3 iTOF 0x5d00 0x5dff TRB3sc ECal 0x6000 0x60FF TRB3sc STS 0x6400 0x64FF TRB3 +Wall 0x6700 0x67FF TRB3 fRPC 0x6800 0x68FF TRB3 Rich 0x7000 0x7FFF DiRich Central-Hub 0x8000 0x80FF TRB3sc @@ -19,7 +20,7 @@ Rich-Comb 0x8200 0x82ff DiRichConcentrator Rich-Hub 0x83c0 0x83df TRB3sc RPC-Hub 0x8400 0x84FF TRB3sc TOF-Hub 0x8600 0x86FF TRB3 -Wall-Hub 0x8700 0x87FF TRB3sc +Wall-Hub 0x8700 0x87FF TRB3 CTS-Hub 0x8800 0x887F TRB3sc StartHub 0x8880 0x888F TRB3sc VetoHub 0x8890 0x88FF TRB3 diff --git a/main/data_sources.db b/main/data_sources.db index 2fe06ea..8c64298 100644 --- a/main/data_sources.db +++ b/main/data_sources.db @@ -3,8 +3,8 @@ # Addr On/Off Name DataSize #Start must be the first for EvtId 0x8800 1 CentralCTS low -0x8880 1 StartTRB3 low -0x8890 1 Veto mid +0x8880 0 StartTRB3 low +0x8890 0 Veto mid 0x84c0 1 RPCnew1 mid 0x84c1 1 RPCnew2 mid 0x84c2 1 RPCnew3 mid @@ -29,7 +29,9 @@ 0x1130 1 MDC34sec4 mid 0x1140 1 MDC34sec5 high 0x1150 1 MDC34sec6 high -0x8a00 1 ECal0 mid +0x8700 1 FW0 mid +0x8701 1 FW1 mid +0x8702 1 FW2 mid 0x8a01 1 ECal1 mid 0x8a02 1 ECal2 mid 0x8a03 1 ECal3 mid @@ -57,6 +59,6 @@ 0x8b13 1 STS2-3 mid 0x8b14 1 STS2-4 mid 0x8b15 1 STS2-5 mid -0x8c00 1 FRPC-0 mid +#0x8c00 0 FRPC-0 mid 0x8c10 1 FRPC-1 mid -0x8d00 1 ITOF mid +0x8d00 0 ITOF mid diff --git a/main/startup_briccolage.sh b/main/startup_briccolage.sh index d491c03..7efdd00 100755 --- a/main/startup_briccolage.sh +++ b/main/startup_briccolage.sh @@ -58,6 +58,8 @@ trbcmd w 0x1031 0xc0 0xfbf trbcmd w 0x1031 0xc1 0xfbf trbcmd w 0x1031 0xc3 0xfbf +#switchport.pl 0x1104 2 off #2309 , didn't like spike rejection 0x10 (means off), mt 2021.02.14 + #Quick network test trbcmd i 0xffff | wc diff --git a/mdc/addresses_oep.db b/mdc/addresses_oep.db index 821c6bc..225cbd9 100644 --- a/mdc/addresses_oep.db +++ b/mdc/addresses_oep.db @@ -125,27 +125,27 @@ 0x2107 311 1 12 0 #ok #20100730: switched 2107 and 2109 0x210a 452 1 12 0 #ok 0x210b 496 1 12 0 #ok -0x210c 354 1 12 0 #ok -0x210d 276 1 12 0 #ok -0x210e 405 1 12 0 #ok -0x210f 304 1 12 0 #ok +0x210c 354 1 12 0 #ok 354 +0x210d 276 1 12 0 #ok 276 +0x210e 405 1 12 0 #ok 405 +0x210f 304 1 12 0 #ok 304 ################################################### -0x2110 375 1 12 0 -0x2111 475 1 12 0 -0x2112 382 1 12 0 -0x2113 442 1 12 0 -0x2114 472 1 12 0 -0x2115 279 1 12 0 # 20120302 487 exchanged by 279 -0x2116 302 1 12 0 -0x2117 310 1 12 0 -0x2118 386 1 12 0 -0x2119 441 1 12 0 -0x211a 212 1 12 0 -0x211b 215 1 12 0 -0x211c 357 1 12 0 -0x211d 332 1 12 0 -0x211e 387 1 12 0 -0x211f 388 1 12 0 +0x2110 375 1 12 0 #375 +0x2111 475 1 12 0 #475 +0x2112 382 1 12 0 #382 +0x2113 442 1 12 0 #442 +0x2114 472 1 12 0 #472 +0x2115 279 1 12 0 #279 20120302 487 exchanged by 279 +0x2116 302 1 12 0 #302 +0x2117 310 1 12 0 #310 +0x2118 386 1 12 0 #386 +0x2119 441 1 12 0 #441 +0x211a 212 1 12 0 #212 +0x211b 215 1 12 0 #215 +0x211c 357 1 12 0 # correct 357 +0x211d 332 1 12 0 # correct 332 +0x211e 387 1 12 0 # correct 387 +0x211f 388 1 12 0 # correct 388 ################################################### 0x2120 331 1 12 0 0x2121 478 1 12 0 diff --git a/mdc/register_thresholds_current.db b/mdc/register_thresholds_current.db index bf15ef8..36e0177 120000 --- a/mdc/register_thresholds_current.db +++ b/mdc/register_thresholds_current.db @@ -1 +1 @@ -register_thresholds_current_2238high.db \ No newline at end of file +thresholds/register_thresholds_jul14.db \ No newline at end of file diff --git a/mdc/startup.script b/mdc/startup.script index e980e8a..96f86e6 100644 --- a/mdc/startup.script +++ b/mdc/startup.script @@ -260,4 +260,3 @@ wait trbcmd setbit 0xfe11 0x22 0x08000000 #enable retransmission on mdchub trbcmd w 0xfffd 0x20 0x30 # Clear statistics registers - trbcmd w 0xfe15 0x4100 1 diff --git a/oracle/boards.txt b/oracle/boards.txt index 29f4594..54f35c1 100644 --- a/oracle/boards.txt +++ b/oracle/boards.txt @@ -1,3 +1,4 @@ + CTS 303 1e00000a6244da28 0010 CTS 900 9300000270e8dd28 0002 TRB3sc 1421 2c00000940a5fa28 8800 TRB3sc 3101 2900000a63092028 8810 @@ -1459,8 +1460,8 @@ DiRichConcentrator 109 6800000a5236b428 8266 TRB3 1541 9e0000070ee47628 8b15 TRB3 1551 360000070f366e28 8b11 TRB3 1571 b90000070f3dd528 8b14 - TRB3sc 4051 0c00000348060928 5003 - TRB3sc 4071 eb000003480c9c28 5002 + TRB3sc 4051 0c00000348060928 5002 + TRB3sc 4071 eb000003480c9c28 5003 TRB3sc 4091 5a00000347f16228 5001 TRB3sc 4391 d5000003480c5428 5000 TRB3sc 4121 3e000003480c5128 8880 diff --git a/oracle/daq2stdout.pl b/oracle/daq2stdout.pl index 90c538d..900f4f1 100755 --- a/oracle/daq2stdout.pl +++ b/oracle/daq2stdout.pl @@ -133,6 +133,7 @@ sub readDB() #&readSerialsDB("../hub/serials_hub.db", "Pion-Hub",0); #&readSerialsDB("../hub/serials_hub.db", "StartHub",0); &readSerialsDB("../cts/serials_cts.db", "CTS",1); +&readSerialsDB("../../daqtools/base/serials_trb3sc.db", "CTS",1); &readSerialsDB("../mdc/serials_mdcaddon.db", "MDC-AddOn",1); &readSerialsDB("../mdc/serials_oep.db", "MDC-OEP",1); # &readSerialsDB("../ecal/serials_trb3sc.db", "ECal"); @@ -179,6 +180,8 @@ sub readDB() &readAddressesDB("../hub/addresses_hub_trb3sc.db","iTOF-Hub"); &readAddressesDB("../cts/addresses_cts.db", "CTS"); + &readAddressesDB("../start/addresses_trb3sc.db", "CTS"); + &readAddressesDB("../mdc/addresses_mdcaddon.db", "MDC-AddOn"); &readAddressesDB("../mdc/addresses_oep.db", "MDC-OEP"); &readAddressesDB("../ecal/addresses_ecal.db", "ECal"); diff --git a/oracle/runinfo2orastart_parallel.sh b/oracle/runinfo2orastart_parallel.sh index bae727e..fdd062e 100755 --- a/oracle/runinfo2orastart_parallel.sh +++ b/oracle/runinfo2orastart_parallel.sh @@ -14,30 +14,31 @@ export LD_LIBRARY_PATH=$ORACLE_HOME/lib:$LD_LIBRARY_PATH sleep 1 /home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb09/eb_runinfo2ora_2.txt > /home/hadaq/log/runinfo2ora_2_log.txt 2>&1 & sleep 1 -/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb10/eb_runinfo2ora_3.txt > /home/hadaq/log/runinfo2ora_3_log.txt 2>&1 & +/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb14/eb_runinfo2ora_3.txt > /home/hadaq/log/runinfo2ora_3_log.txt 2>&1 & sleep 1 -/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb11/eb_runinfo2ora_4.txt > /home/hadaq/log/runinfo2ora_4_log.txt 2>&1 & +/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb15/eb_runinfo2ora_4.txt > /home/hadaq/log/runinfo2ora_4_log.txt 2>&1 & sleep 1 -/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb08/eb_runinfo2ora_5.txt > /home/hadaq/log/runinfo2ora_5_log.txt 2>&1 & +/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb16/eb_runinfo2ora_5.txt > /home/hadaq/log/runinfo2ora_5_log.txt 2>&1 & sleep 1 -/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb09/eb_runinfo2ora_6.txt > /home/hadaq/log/runinfo2ora_6_log.txt 2>&1 & +/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb08/eb_runinfo2ora_6.txt > /home/hadaq/log/runinfo2ora_6_log.txt 2>&1 & sleep 1 -/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb10/eb_runinfo2ora_7.txt > /home/hadaq/log/runinfo2ora_7_log.txt 2>&1 & +/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb09/eb_runinfo2ora_7.txt > /home/hadaq/log/runinfo2ora_7_log.txt 2>&1 & sleep 1 -/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb11/eb_runinfo2ora_8.txt > /home/hadaq/log/runinfo2ora_8_log.txt 2>&1 & +/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb14/eb_runinfo2ora_8.txt > /home/hadaq/log/runinfo2ora_8_log.txt 2>&1 & sleep 1 -/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb08/eb_runinfo2ora_9.txt > /home/hadaq/log/runinfo2ora_9_log.txt 2>&1 & +/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb15/eb_runinfo2ora_9.txt > /home/hadaq/log/runinfo2ora_9_log.txt 2>&1 & sleep 1 -/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb09/eb_runinfo2ora_10.txt > /home/hadaq/log/runinfo2ora_10_log.txt 2>&1 & +/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb16/eb_runinfo2ora_10.txt > /home/hadaq/log/runinfo2ora_10_log.txt 2>&1 & sleep 1 -/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb10/eb_runinfo2ora_11.txt > /home/hadaq/log/runinfo2ora_11_log.txt 2>&1 & +/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb08/eb_runinfo2ora_11.txt > /home/hadaq/log/runinfo2ora_11_log.txt 2>&1 & sleep 1 -/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb11/eb_runinfo2ora_12.txt > /home/hadaq/log/runinfo2ora_12_log.txt 2>&1 & +/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb09/eb_runinfo2ora_12.txt > /home/hadaq/log/runinfo2ora_12_log.txt 2>&1 & sleep 1 -/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb08/eb_runinfo2ora_13.txt > /home/hadaq/log/runinfo2ora_13_log.txt 2>&1 & +/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb14/eb_runinfo2ora_13.txt > /home/hadaq/log/runinfo2ora_13_log.txt 2>&1 & sleep 1 -/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb09/eb_runinfo2ora_14.txt > /home/hadaq/log/runinfo2ora_14_log.txt 2>&1 & +/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb15/eb_runinfo2ora_14.txt > /home/hadaq/log/runinfo2ora_14_log.txt 2>&1 & sleep 1 -/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb10/eb_runinfo2ora_15.txt > /home/hadaq/log/runinfo2ora_15_log.txt 2>&1 & +/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb16/eb_runinfo2ora_15.txt > /home/hadaq/log/runinfo2ora_15_log.txt 2>&1 & sleep 1 -/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb11/eb_runinfo2ora_16.txt > /home/hadaq/log/runinfo2ora_16_log.txt 2>&1 & +/home/hadaq/trbsoft/daq/oracle/runinfo2ora.pl -f /home/hadaq/oper/lxhadeb08/eb_runinfo2ora_16.txt > /home/hadaq/log/runinfo2ora_16_log.txt 2>&1 & +# last is just dummy to get number of processes right diff --git a/oracle/runstatsfromora.pl b/oracle/runstatsfromora.pl index 964bc51..8fa4f0e 100755 --- a/oracle/runstatsfromora.pl +++ b/oracle/runstatsfromora.pl @@ -133,7 +133,8 @@ my $runtype = 'BEAM'; #my $runEnd = "$dtEnd->ymd('-') $dtEnd->hms(':')"; # this one is for testing -my $runBegin = '2019-02-20 00:00:00'; +#my $runBegin = '2019-02-20 00:00:00'; +my $runBegin = '2021-02-10 00:00:00'; # default is begin of beam time with real beam # will be replaced by last timestamp from summary file. diff --git a/oracle/runstatsfromora_testplot.sh b/oracle/runstatsfromora_testplot.sh index 08d4414..766e78a 100755 --- a/oracle/runstatsfromora_testplot.sh +++ b/oracle/runstatsfromora_testplot.sh @@ -1,10 +1,14 @@ #!/bin/bash +# $(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 + offset=2419200 cat < /tmp/beam_trend.txt # timestamp real propaganda -$(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)) +$(date -d @1612990204 "+%Y-%m-%d %H:%M:%S") 0 0 +$(date -d @$((1612990204+offset)) "+%Y-%m-%d %H:%M:%S") $(($offset*25/3600)) $(($offset*20/3600)) EOF gnuplot -p </dev/null` | awk '{print $1,$2,$4,$3,$5}' | grep -v " " >> trigger.cmd; done; +for i in {40960..41983}; do echo "w " $i `trbcmd r 0x0010 $i 2>/dev/null` | awk '{print $1,$3,$2,$4}' | grep "^w 0x"; done; diff --git a/trg/register_trigger.db b/trg/register_trigger.db index 09bc1b7..3df3377 100644 --- a/trg/register_trigger.db +++ b/trg/register_trigger.db @@ -3,8 +3,8 @@ !Register table -#simple or -############################################################################################################ +#simple or #Trb3sc Pairs: 3,4,1,2. Trb3 pairs: TRG 4,3 - Clk 3,4 +############################################################################################################ #TrgEnOut1 TrgEnOut1 TrgEnOut2 TrgEnOut2 TrgEnOut3 TrgEnOut3 TrgEnOut4 TrgEnOut4 #Ch00-31 Ch32-63 Ch00-31 Ch32-63 Ch00-31 Ch32-63 Ch00-31 Ch32-63 200 0xdf00 0xdf01 0xdf04 0xdf05 0xdf08 0xdf09 0xdf0c 0xdf0d @@ -31,6 +31,24 @@ #23..16 Lim0 15..8OutSel0 15..8OutSel2 111 0xdf32 0xdf34 0xdf37 +#4 coincidence registers +########################################################################################################### + 300 0xdf40 0xdf41 0xdf42 0xdf43 + +#simple coincidence +########################################################################################################### + 400 0xdf28 0xdf2c 0xdf34 #34 overlap with 111 ! + + +#Monitoring for 64 channels +########################################################################################################### + 900 0xdf80 0xdf85 + 902 0xdf80 + 901 0xdf81 0xdf86 #invert + + + + !Value table @@ -52,6 +70,8 @@ ################################## 0xfe4c 200 0x0000ffff 0 0xffff0000 0 0 0x0000ffff 0 0 0xfe4c 201 0xffffffff 0xffff 0xffffffff 0xffff 3 + 0x5010 201 0xffffffff 0xffff 0 0 3 + 0x5011 201 0xffffffff 0xffff 0 0 3 0x6403 200 0x0000ffff 0 0xffff0000 0 0 0 0 0 0x6413 200 0x0000ffff 0 0xffff0000 0 0 0 0 0 @@ -62,8 +82,8 @@ 0x6474 200 0 0 0 0 0 0 0 0 0x6475 200 0 0 0 0 0 0 0 0 - 0x6452 200 0 0 0 0 0 0 0 0 #noisy at 23.12.20 - 0x6453 200 0 0 0 0 0 0 0 0 #noisy at 23.12.20 +# 0x6452 200 0 0 0 0 0 0 0 0 #noisy at 23.12.20 +# 0x6453 200 0 0 0 0 0 0 0 0 #noisy at 23.12.20 0x5010 200 0x0000ffff 0 0xffff0000 0 0 0 0 0 @@ -71,41 +91,73 @@ 0x5012 200 0 0 0 0 0 0 0 0 -#TOF, fRPC, Veto, STS central FPGA: 'or' of all peripherals to output 3 +#TOF, fRPC, Veto, STS central FPGA: 'or' of all peripherals to output 3 and 4 ################################## - 0xfe40 200 0 0 0 0 0xffff 0 0 0 - 0xfe40 201 0xffff 0 0 0 5 + 0xfe40 200 0 0 0 0 0xffff 0 0xffff 0 + 0xfe40 201 0xffff 0 0 0 3 + +#TOF, fRPC TDC: forward to central FPGA in groups of 16 + 0xfe47 200 0x0000ffff 0 0xffff0000 0 0 0x0000ffff 0xffffffff 0 + 0x6810 100 0xF 0 0x30000 0x400 #mult2 for PMT signals +#fRPC: 1 and 2 or 3 and 4 + 0x8c00 111 0 0x80000 0 + 0x8c00 300 0x80000703 0x80000F0B 0 0 + 0x8c10 111 0 0x80000 0 + 0x8c10 300 0x80000703 0x80000F0B 0 0 + 0x8c10 200 0 0 0 0 4 0 0 0 #PMT signal + +#Veto + 0x8890 200 0 0 0 0 0x088 0 0 0 + 0x5010 400 0xffff 0xffff0000 0x8 #left/right coincidence for bars + 0x5011 400 0xffff 0xffff0000 0x8 + +#Wall: all to second output + 0x6700 200 0 0 0xffffffff 0 + 0x6701 200 0 0 0xffffffff 0 + 0x6702 200 0 0 0xffffffff 0 + 0x6703 200 0 0 0xffffffff 0 + 0x6710 200 0 0 0xffffffff 0 + 0x6711 200 0 0 0xffffffff 0 + 0x6712 200 0 0 0xffffffff 0 + 0x6713 200 0 0 0xffffffff 0 + 0x6720 200 0 0 0xffffffff 0 + 0x6721 200 0 0 0xffffffff 0 + 0x6722 200 0 0 0xffffffff 0 + 0x6723 200 0 0 0xffffffff 0 + + #Start: or of all channels, in groups of 16 on Pair 1-3, or on Pair 4 ################################## - 0x5000 200 0 0x0000ffff 0xffffffff 0xffff 0x0000ffff 0 0xffff0000 0 - 0x5001 200 0 0x0000ffff 0xffffffff 0xffff 0x0000ffff 0 0xffff0000 0 - 0x5002 200 0 0x0000ffff 0xffffffff 0xffff 0x0000ffff 0 0xffff0000 0 - 0x5003 200 0 0x0000ffff 0xffffffff 0xffff 0x0000ffff 0 0xffff0000 0 + 0x5000 200 0 0x000000ff 0xfffffc00 0x000000ff 0x0000fc00 0 0xffff0000 0 + 0x5003 200 0 0x000000ff 0xfffffc00 0x000000ff 0x0000fc00 0 0xffff0000 0 + 0x5001 200 0 0x0000fc00 0xffff00ff 0x0000fc00 0x000000ff 0 0xffff0000 0 + 0x5002 200 0 0x0000fc00 0xffff00ff 0x0000fc00 0x000000ff 0 0xffff0000 0 + #iTOF: or of all channels, multiplicity in groups of 12/16 on Pair 2,3,4 and or on 1 ################################## - 0x5d00 110 0x00000fff 0 0x0fff0000 0 0 0x00000fff - 0x5d01 110 0x00000fff 0 0x0fff0000 0 0 0x00000fff - 0x5d02 110 0x00000fff 0 0x0fff0000 0 0 0x00000fff - 0x5d03 110 0x00000fff 0 0x0fff0000 0 0 0x00000fff - 0x5d04 110 0x00000fff 0 0x0fff0000 0 0 0x00000fff - 0x5d05 110 0x00000fff 0 0x0fff0000 0 0 0x00000fff - 0x5d00 111 0x03030300 0x00000800 0x00000201 - 0x5d01 111 0x03030300 0x00000800 0x00000201 - 0x5d02 111 0x03030300 0x00000800 0x00000201 - 0x5d03 111 0x03030300 0x00000800 0x00000201 - 0x5d04 111 0x03030300 0x00000800 0x00000201 - 0x5d05 111 0x03030300 0x00000800 0x00000201 - - 0x5d00 200 0 0 0 0 0xffffffff 0xffff 0 0 - 0x5d01 200 0 0 0 0 0xffffffff 0xffff 0 0 - 0x5d02 200 0 0 0 0 0xffffffff 0xffff 0 0 - 0x5d03 200 0 0 0 0 0xffffffff 0xffff 0 0 - 0x5d04 200 0 0 0 0 0xffffffff 0xffff 0 0 - 0x5d05 200 0 0 0 0 0xffffffff 0xffff 0 0 +# 0x5d00 110 0 0 0 0 0 0 + 0x5d01 110 0x00007bde 0 0x7bde0000 0 0 0x00007bde +# 0x5d02 110 0 0 0 0 0 0 +# 0x5d03 110 0 0 0 0 0 0 + 0x5d04 110 0x00007bde 0 0x7bde0000 0 0 0x00007bde +# 0x5d05 110 0 0 0 0 0 0 +# 0x5d00 111 0x03030300 0x00000800 0x00000201 + 0x5d01 111 0x03030300 0x00000800 0x00000201 +# 0x5d02 111 0x03030300 0x00000800 0x00000201 +# 0x5d03 111 0x03030300 0x00000800 0x00000201 + 0x5d04 111 0x03030300 0x00000800 0x00000201 +# 0x5d05 111 0x03030300 0x00000800 0x00000201 + +# 0x5d00 200 0 0 0 0 0x7bde7bde 0x7bde 0 0 + 0x5d01 200 0 0 0 0 0x7bde7bde 0x7bde 0 0 +# 0x5d02 200 0 0 0 0 0x7bde7bde 0x7bde 0 0 +# 0x5d03 200 0 0 0 0 0x7bde7bde 0x7bde 0 0 + 0x5d04 200 0 0 0 0 0x7bde7bde 0x7bde 0 0 +# 0x5d05 200 0 0 0 0 0x7bde7bde 0x7bde 0 0 #Secondary trigger box ################################## @@ -113,16 +165,40 @@ #from STS: STS-1 #16..19, STS-2 #32..37 #from fRPC: #42,46 -##Setup 1: or of all 12 half sectors on output 1 - needs update -# 0x0100 200 0x00003e3e -# 0x0100 201 0x00003e3e 0 0 0 0 +##Setup 1: or of all 12 Ecal half sectors on output 1 - needs update +#Setup 2: or of all Veto channels +#Setup 3: or of all STS boards on output 3 +#Setup 4: from fRPC (PMT mult2 plus both ends of RPC) -##Setup 2: mult 2 on half sectors on output 2 - needs update -# 0x0100 100 0x00003e3e 0 0x00020000 0x00000200 + 0x0100 200 0 0x00003e3e 0x40000 0 0x00000037 0x000f0000 0x00000c00 0 + 0x0100 201 0 0x00003e3e 0 0 0 -#Setup 3: or of all STS boards - 0x0100 200 0x0000003f 0x000f0000 + +#Monitoring Enable +################################## + 0xfe60 900 0xffffffff 0xffffffff + 0xfe61 900 0xffffffff 0xffffffff + 0xfe71 900 0xffffffff 0xffffffff + 0xfe73 900 0xffffffff 0xffffffff + 0xfe47 902 0xffffffff + 0xfe4c 900 0xffffffff 0xffff + 0xfe40 902 0x000fffff + 0x0100 900 0xffffffff 0xffffffff #secondary box + + 0x5000 900 0xffff0015 0x000000ff #disable unused channels in Start 0xffff0000 + 0x5001 900 0xffff00ff 0x0000fc00 + 0x5002 900 0xffff00ff 0x0000fc00 + 0x5003 900 0xfffffc00 0x000000ff + + 0x5d00 900 0 0 #innerTOF + 0x5d01 900 0x7fff7fff 0x7fff + 0x5d02 900 0 0 + 0x5d03 900 0 0 + 0x5d04 900 0x7fff7fff 0x7fff + 0x5d05 900 0 0 + + 0xfe4c 901 0xffffffff 0xffff #invert monitor for STS/Veto diff --git a/trg/startup.script b/trg/startup.script index d63e320..8da04b3 100644 --- a/trg/startup.script +++ b/trg/startup.script @@ -1,34 +1,5 @@ -#All monitoring channels on crate masters -trbcmd w 0xfe60 0xdf80 0xffffffff -trbcmd w 0xfe60 0xdf85 0xffffffff - -trbcmd w 0xfe61 0xdf80 0xffffffff -trbcmd w 0xfe61 0xdf85 0xffffffff - -trbcmd w 0xfe71 0xdf80 0xffffffff -trbcmd w 0xfe71 0xdf85 0x0000ffff -trbcmd w 0xfe74 0xdf80 0xffffffff -trbcmd w 0xfe74 0xdf85 0x0000ffff - -trbcmd w 0xfe73 0xdf80 0xffffffff -trbcmd w 0xfe73 0xdf85 0x0000ffff - -trbcmd w 0xfe47 0xdf80 0xffffffff -trbcmd w 0xfe4c 0xdf80 0xffffffff -trbcmd w 0xfe4c 0xdf85 0x0000ffff - -trbcmd w 0xfe40 0xdf80 0x000fffff - -trbcmd w 0x0100 0xdf80 0xffffffff -trbcmd w 0x0100 0xdf85 0xffffffff - -trbcmd w 0xfe4c 0xdf81 0xffffffff #invert monitor for STS/Veto -trbcmd w 0xfe4c 0xdf86 0x0000ffff - - - exec_cmd{local} /home/hadaq/trbsoft/daqtools/tools/loadregisterdb_file.pl /home/hadaq/trbsoft/daq/trg/register_trigger.db - +exec_cmd{local} trbcmd -f /home/hadaq/trbsoft/daq/trg/triggerbox.trbcmd