baselines für MBO 115

diff --git a/tools/HPlot.pm b/tools/HPlot.pm
index b559cdf0e7201fb164281a34323be179a1cc5cd6..821a80dce13be1d0da57277fbd02215432dedda2 100755 (executable)
--- a/tools/HPlot.pm
+++ b/tools/HPlot.pm
@@ -227,7 +227,7 @@ sub PlotInit {
     }
     else {
       #plot_write($fh,"plot '-' matrix with image, '-' matrix using 1:2:(sprintf('%i', \$3)) with labels tc rgb \"#ffffff\" font ',10'");
-      $p->{$name}->{plot_string} .= "plot '-' matrix with image, '-' matrix using 1:2:(sprintf('%i', \$3)) with labels tc rgb \"#ffffff\" font ',10'";
+      $p->{$name}->{plot_string} .= "plot '-' matrix with image, '-' matrix using 1:2:(sprintf('%.".($p->{$name}->{showvalues}-1)."f', \$3)) with labels tc rgb \"#ffffff\" font ',10'";
       ####      plot_write($fh,"plot '-' matrix with image, '-' matrix using 1:2:(sprintf('%i', \$3)):3 with labels tc palette  font ',10'");
     }
     plot_write($fh, $p->{$name}->{plot_string});

diff --git a/tools/loadregisterdb.pl b/tools/loadregisterdb.pl
index 19227f24d0a17da83c9785808058fe3f7db1bb2c..7d0d5befada27e6a0935216082cea79f3e873c00 100755 (executable)
--- a/tools/loadregisterdb.pl
+++ b/tools/loadregisterdb.pl
@@ -23,13 +23,13 @@ while (my $a = <FILE>) {
     }
 #0x2000       1     0x38     0x38     0x38     0x38     0x38     0x38
   if(my ($addr,$set,$str) = $a =~ /^\s*0x(\w\w\w\w)\s+(\d+)((\s+0?x?\w+)+)/) {
-#       print "$addr : $set : $str\n";
     my @vals = split(/\s+/,$str);
     shift(@vals) if($vals[0] eq '');
     my $i = 0;
     #print Dumper \@vals;
     foreach my $t (@vals) {
       if($t =~ /0?x?(\w+)/) {
+#        $cmd .= "echo $addr;trbcmd w 0x$addr 0x$reglist->{$set}->{$i++} $t\n";
         $cmd .= "trbcmd w 0x$addr 0x$reglist->{$set}->{$i++} $t\n";
        #print "cmd: $cmd\n";
         }

diff --git a/web/htdocs/apacheEnv.pm b/web/htdocs/apacheEnv.pm
index 1047d689cce28c85a0061d741cfbb27ecf2e3d60..3b882c69173147aac52f107efa64a74b50c6142c 100644 (file)
--- a/web/htdocs/apacheEnv.pm
+++ b/web/htdocs/apacheEnv.pm
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #This file sets the environment in case that the daqtools are run within an Apache web-server.
 
-$ENV{'DAQOPSERVER'} = 'hades46:84';
+$ENV{'DAQOPSERVER'} = 'hadesp31';
 
 
 1;