From 66f020d081c54c7de34cc4d5d39f53cb622bba18 Mon Sep 17 00:00:00 2001 From: HADES DAQ Date: Fri, 30 Jan 2015 17:19:27 +0100 Subject: [PATCH] new colleagues, mt --- thresholds/thresholds_automatic.pl | 4 ++-- thresholds/write_thresholds.pl | 16 ++++++++-------- 2 files changed, 10 insertions(+), 10 deletions(-) diff --git a/thresholds/thresholds_automatic.pl b/thresholds/thresholds_automatic.pl index b3f49d3..e31f17e 100755 --- 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 6bd9d9a..c0ef4f2 100755 --- 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; -- 2.43.0