From 3b3fdd12a95cfdd60e69fc7aa29d5d1bfcb46fb2 Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Mon, 9 Dec 2013 18:21:06 +0100
Subject: [PATCH] changed scaling factor due to wrong frequency setting

---
 web/htdocs/tools/scaler.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/web/htdocs/tools/scaler.pl b/web/htdocs/tools/scaler.pl
index c2ec2e3..6a45e2b 100755
--- a/web/htdocs/tools/scaler.pl
+++ b/web/htdocs/tools/scaler.pl
@@ -27,7 +27,7 @@ if($ENV{'QUERY_STRING'} =~ /get/) {
   my $data = trb_registertime_read_mem(0x3820,0xc001,0,64) or die trb_strerror();
   my $delay = ($data->{0x3820}->{time}->[0]||0) - ($olddata->{0x3820}->{time}->[0]||0);
   $delay += 0x10000 if ($delay < 0);
-  $delay *= 16.;
+  $delay *= 16.*125/100;
   $delay = 1E6 if $delay == 0;
   print STDERR $delay." ".$data->{0x3820}->{time}->[0]."\n";
   my $rate;
-- 
2.43.0