From: PANDA DIRDAQ <M.Traxler@gsi.de>
Date: Sun, 6 Jul 2014 18:13:19 +0000 (+0200)
Subject: for panda, mt
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=2e2c5d960cdf3f717b7d99416bc87c8b4bf12076;p=daqtools.git

for panda, mt
---

diff --git a/thresholds/logger_threshold.conf b/thresholds/logger_threshold.conf
index d1552bb..e5b200c 100644
--- a/thresholds/logger_threshold.conf
+++ b/thresholds/logger_threshold.conf
@@ -15,6 +15,23 @@ log4perl.appender.D1.layout=Log::Log4perl::Layout::PatternLayout
 log4perl.appender.D1.layout.ConversionPattern=%d %m%n
 
 
+# log4perl.logger.padiwa_threshold_read=DEBUG, A2
+# log4perl.appender.A2=Log::Dispatch::File
+# log4perl.appender.A2.filename=padiwa_threshold_read.log
+# log4perl.appender.A2.mode=append
+# log4perl.appender.A2.layout=Log::Log4perl::Layout::PatternLayout
+# #log4perl.appender.A1.layout.ConversionPattern=%d %p> %F{1}:%L %M %P - %m%n
+# log4perl.appender.A2.layout.ConversionPattern=%d %p> %M %P - %m%n
+
+# results of threshold scan
+log4perl.logger.padiwa_threshold_dump=DEBUG, D2
+log4perl.appender.D2=Log::Dispatch::File
+log4perl.appender.D2.filename=padiwa_threshold_dump.log
+log4perl.appender.D2.mode=append
+log4perl.appender.D2.layout=Log::Log4perl::Layout::PatternLayout
+log4perl.appender.D2.layout.ConversionPattern=%d %m%n
+
+
 # for thresholds for the DAQ
 #log4perl.logger.mdc_threshold_analyze=DEBUG, A2
 #log4perl.appender.A2=Log::Dispatch::File
diff --git a/thresholds/read_threshold.pl b/thresholds/read_threshold.pl
index 6b2caa5..201ff9c 100755
--- a/thresholds/read_threshold.pl
+++ b/thresholds/read_threshold.pl
@@ -84,12 +84,12 @@ $endpoint = hex($endpoint);
 
 Log::Log4perl->init("logger_threshold.conf");
 
-my $logger = get_logger("padiwa_threshold_read.log");
+#my $logger = get_logger("padiwa_threshold_read.log");
 my $logger_data = get_logger("padiwa_threshold_dump");
 
 
 my $startup_str = sprintf "startup with: endpoint: $endpoint, chain: $chain, offset: $offset, polarity: $polarity";
-$logger->info($startup_str);
+#$logger->info($startup_str);
 
 trb_init_ports() or die trb_strerror();
 
@@ -243,7 +243,7 @@ sub send_command_error {
   my $s= sprintf "error output for access to endpoint 0x%04x: $res\n", $endpoint;
   print $s;
   $s=~s/\n/, /g;
-  $logger->error($s);
+  #$logger->error($s);
   $logger_data->error($s);
   exit();
 }