From: Jan Michel <j.michel@gsi.de>
Date: Wed, 21 Aug 2013 12:10:58 +0000 (+0200)
Subject: less debug output
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=5dee1ef4956c7d9805b40f7885b9f88792ecd6b3;p=daqtools.git

less debug output
---

diff --git a/tools/loadregisterdb.pl b/tools/loadregisterdb.pl
index 07e096c..0ae844f 100755
--- a/tools/loadregisterdb.pl
+++ b/tools/loadregisterdb.pl
@@ -15,7 +15,7 @@ while (my $a = <FILE>) {
     my @vals = split(/\s+/,$str);
     my $i = 0;
     foreach my $t (@vals) {
-       print "$t\n";
+#        print "$t\n";
       if($t =~ /0x(\w\w\w\w)/) {
         $reglist->{$set}->{$i++}=$1;
         }
@@ -23,7 +23,7 @@ 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+0x\w+)+)/) {
-      print "$addr : $set : $str\n";
+#       print "$addr : $set : $str\n";
     my @vals = split(/\s+/,$str);
     shift(@vals) if($vals[0] eq '');
     my $i = 0;
@@ -60,5 +60,4 @@ while (my $a = <FILE>) {
 #$cmd .= "trbcmd w 0xfffd 0x20 0x200\n";
 # print $cmd;
 system($cmd);
-system("logger -p local1.info -t DAQ MDC \\<N\\> Loaded settings from file $ARGV[0]");
-print "Done.\n\n";
+# print "Done.\n\n";
diff --git a/tools/merge_serial_address.pl b/tools/merge_serial_address.pl
index 8684ecd..afb2f69 100755
--- a/tools/merge_serial_address.pl
+++ b/tools/merge_serial_address.pl
@@ -45,9 +45,9 @@ foreach my $cur_ln (<$fh2>) {
 
 foreach my $serial_nr (keys %trb) {
     next if(!$trb{$serial_nr}->{'address'} || !defined $trb{$serial_nr}->{'uid'});
-    printf "0x%4.4x  ", $trb{$serial_nr}->{'address'};
-    print $trb{$serial_nr}->{'uid'} . "  ";
-    printf "0x%2.2x\n", $trb{$serial_nr}->{'endpoint_nr'};
+    //printf "0x%4.4x  ", $trb{$serial_nr}->{'address'};
+    //print $trb{$serial_nr}->{'uid'} . "  ";
+    //printf "0x%2.2x\n", $trb{$serial_nr}->{'endpoint_nr'};
 
     no warnings 'portable';
     my $uid = hex($trb{$serial_nr}->{'uid'});