for panda, mt

diff --git a/thresholds/logger_threshold.conf b/thresholds/logger_threshold.conf
index d1552bbfb456fab1868424f51b279ac324884108..e5b200cbe4bfafdaa7c055fb5718df29437fa2b0 100644 (file)
--- 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 6b2caa574a025009c99a32d6b8fadb9e9ae2185a..201ff9c9ab8d7c0eee9ad19faad94dbca422156e 100755 (executable)
--- 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();
 }