hmon/qa
hmon/logs
hmon/vertex
+*~
+*.bak
+*.log
sub set_window()
{
if( $opt_mode eq "mon" ){
- system("/home/hadaq/trbsoft/daq/evtbuild/mon_cts.pl -m set -e $opt_etrax -a $opt_access &");
+ print "/home/hadaq/trbsoft/hadesdaq/control/ctsmon/mon_cts.pl -m set -e $opt_etrax -a
+$opt_access 2>/dev/null </dev/null &\n";
+ system("bash -c \"/home/hadaq/trbsoft/hadesdaq/control/ctsmon/mon_cts.pl -m set -e $opt_etrax -a $opt_access 2>/dev/null >/dev/null 1</dev/null 2</dev/null &\"");
}
elsif( $opt_mode eq "set" ){
$errorType = "";
-eb.conf.oct12
\ No newline at end of file
+eb.conf.oct12_noRFIO
\ No newline at end of file
ebctrl_registerRecordDeviceDriver(pdbbase)
## Load record instances
-dbLoadRecords("db/stats.db", "PREFIX=HAD:IOC:,IOC=${HOSTNAME}")
+dbLoadRecords("db/stats.db", "PREFIX=HAD:IOC:,IOC=\${HOSTNAME}")
dbLoadRecords("db/evtbuild.db","eb=$ebnum")
dbLoadRecords("db/netmem.db","eb=$ebnum")
dbLoadRecords("db/errbit1.db","eb=$ebnum")
-./start_eb_gbe.pl -v -e restart -n 1-16 -d on -p ri -r off
+./start_eb_gbe.pl -e restart -n 1-16 -d off -p --
#Mount RAM file system
#mount -t tmpfs none /var/spool/ramdisk -o size=256m
+mkdir /dev/shm/hmon
#Kill old tunnel, make new one. Better: Check if tunnel still exists, if not restart.
echo " <Hmon> Renewing tunnels and environment..."
pgrep -f 'hmon_ssh -R 8888' >/dev/null
if [ $? -eq 1 ]; then
echo " <Hmon> No tunnel found, digging new one";
-./hmon_ssh -R 8888:hades33.gsi.de:80 cerberus.x-matter.uni-frankfurt.de -N &
+./hmon_ssh -fR 8888:hades33.gsi.de:80 cerberus.x-matter.uni-frankfurt.de -N &
fi
killall speakdaemon.pl
0x8000 0 Central low #off
0x8100 0 innerMDC low #off
0x8110 0 outerMDC low #off
-0x8300 1 RICH12 mid
-0x8310 1 RICH34 mid
-0x8320 1 RICH56 mid
+0x8300 0 RICH12 mid
+0x8310 0 RICH34 mid
+0x8320 0 RICH56 mid
0x8400 0 RPC123 mid
0x8410 0 RPC456 mid
-0x8600 0 TOF low
+0x8600 1 TOF low
0x8700 0 FW low
0x1000 0 MDC12sec1 high
0x1010 0 MDC12sec2 high
my $txt = "\nError! Could not open file \"$expect_script\" for output. Exit.\n";
print STDERR $txt;
print $txt;
+ die;
exit(128);
}
my $txt = "\nError! Could not open file \'$name\'. Exit.\n";
print STDERR $txt;
print $txt;
+ die;
exit(128);
}
my $txt = "\nError! Could not open file \"$log\" for output. Exit.\n";
print STDERR $txt;
print $txt;
+ die;
exit(128);
}
my $outConf_register = $var_dir . "/tmp/" . $outConf;
my $ret_register = "/home/hadaq/tmp/" . $outConf;
- $fh = new FileHandle(">$outConf_register");
+ $fh = new FileHandle(">$outConf_register") || die "could not open $outConf_register";
foreach my $addr ( sort keys %{$reg_href} ){
foreach my $ref (@{$reg_href->{$addr}}){
-ri1324616114601
\ No newline at end of file
+ri1332909181501
\ No newline at end of file
-/home/hadaq/trbsoft/daq/rich/peds/ri1324616114601/register_thresholds.db
\ No newline at end of file
+/home/hadaq/trbsoft/daq/rich/peds/ri1332909181501/register_thresholds.db
\ No newline at end of file
use Fcntl qq(SEEK_SET);
use Getopt::Long;
-my $chat_fn = $ENV{'HOME'} . "/trbsoft/hadesdaq/tools/chat.log";
+my $chat_fn = $ENV{'HOME'} . "/trbsoft/hadesdaq/utils/chat.log";
my $opt_help;
my $opt_device;
'h|help' => \$opt_help,
);
-my $c = qq|tmux new-session -n chat "tail -n 200 -f ~/trbsoft/hadesdaq/tools/chat.log" \\; split-window -t chat -l3 "PERL_RL=' o=0' ~/bin/chat_push" \\; attach|;
+my $c = qq|tmux new-session -n chat "tail -n 200 -f ~/trbsoft/hadesdaq/utils/chat.log" \\; split-window -t chat -l3 "PERL_RL=' o=0' ~/bin/chat_push" \\; attach|;
#print "command: $c\n";
system($c);