]> jspc29.x-matter.uni-frankfurt.de Git - daqtools.git/commitdiff
less debug output
authorJan Michel <j.michel@gsi.de>
Wed, 21 Aug 2013 12:10:58 +0000 (14:10 +0200)
committerJan Michel <j.michel@gsi.de>
Wed, 21 Aug 2013 12:10:58 +0000 (14:10 +0200)
tools/loadregisterdb.pl
tools/merge_serial_address.pl

index 07e096c3c7684357e2415b012d40d59663a41036..0ae844f097dcf28981ebf70d5cbbecd884afd01a 100755 (executable)
@@ -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";
index 8684ecdf277ba218da0997615960e0880897d649..afb2f692bacdbf126f717afa30a65433a6e167e3 100755 (executable)
@@ -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'});