new colleagues, mt

diff --git a/thresholds/thresholds_automatic.pl b/thresholds/thresholds_automatic.pl
index b3f49d36d5ddd20c972af68fc23a8bc4dc0165f5..e31f17e1ae956d6faa9f6ffda7091361b7ba4cb8 100755 (executable)
--- a/thresholds/thresholds_automatic.pl
+++ b/thresholds/thresholds_automatic.pl
@@ -32,8 +32,8 @@ my @valid_interval = (0x8000, 0x9000);
 my $interval_step = ($valid_interval[1] - $valid_interval[0])/2;
 my $start_value = int ( ($valid_interval[1] + $valid_interval[0])/2 );
 
-my $sleep_time = 1.0;
-my $accepted_dark_rate = 150;
+my $sleep_time = 0.2;
+my $accepted_dark_rate = 10;
 my $number_of_iterations = 40; # at least 15 are recommended
 
 my $endpoint = 0x0303;

diff --git a/thresholds/write_thresholds.pl b/thresholds/write_thresholds.pl
index 6bd9d9a7218db5f5adebde842514f23c368ab41e..c0ef4f22ca16b990bb98b6dbfa8e0440cf33055a 100755 (executable)
--- a/thresholds/write_thresholds.pl
+++ b/thresholds/write_thresholds.pl
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 use Data::Dumper;
-use Dmon;
+#use Dmon;
 use Getopt::Long;
 use HADES::TrbNet;
 use POSIX qw(strftime);
@@ -48,13 +48,13 @@ my @f = <$fh>;
 
 
 #Put Information to logfile and timestamp to billboard information
-chomp $f[0];
-system("echo \"".strftime("%Y-%m-%d %H:%M:%S",localtime()).'\t'.time.'\t'.
-              $offset.'\t'.$f[0]."\">>threshold_log.txt");
-my ($t) = $f[0] =~ /(\d{10})/;
-system("echo $t>thresh/billboard_timestamp");
-my $offsetV = (32768 + $offset) & 0xffff;;
-system("echo $offsetV > thresh/billboard_offset");
+#chomp $f[0];
+#system("echo \"".strftime("%Y-%m-%d %H:%M:%S",localtime()).'\t'.time.'\t'.
+#              $offset.'\t'.$f[0]."\">>threshold_log.txt");
+#my ($t) = $f[0] =~ /(\d{10})/;
+#system("echo $t>thresh/billboard_timestamp");
+#my $offsetV = (32768 + $offset) & 0xffff;;
+#system("echo $offsetV > thresh/billboard_offset");
 
 
 my $count=0;