changed scaling factor due to wrong frequency setting

diff --git a/web/htdocs/tools/scaler.pl b/web/htdocs/tools/scaler.pl
index c2ec2e3069062837727551d014414f75c4a6e7d9..6a45e2b4a0f4c104968435be35da6d893e9e92b9 100755 (executable)
--- 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;